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PREFACE 


This document, prepared by the Dynamics and Loads Section, Martin Marietta Corporation, 
Denver Division, under Contract NAS5-1 1996, presents the results of a study for the purpose 
of developing a computer program system for dynamic simulation and stability analysis of 
passive and actively controlled spacecraft. The study was performed from May 1973 to 
April 1975 and was administered by the Goddard Space Flight Center, National Aeronautics 
and Space Administration, Greenbelt, Maryland, under the direction of Joseph P. Young. 

Upon delivery, the computer program and associated documentation was checked in detail 
by Harold P. Frisch. This document incorporates both the original Martin work and the 
supplementary material prepared at the Goddard Space Flight Center. 

The digital computer program, DISCOS (Dynamic Interaction Simulation of Controls and 
Structure), has been extensively annotated and tested on a range of problems that should 
have exposed nearly all theoretical errors and programming bugs. 

From its inception in 1973, DISCOS has been designed to grow as new needs and more 
efficient computational techniques developed. This feature makes it impossible to define 
a final version. To circumvent this problem the official release version will contain only 
those additions to the delivered program that enhance program documentation and user 
interface capability and correct programming errors. 

Included in this version are more than 10,000 comment cards and a capability to routinely 
direct the computer to output on the line printer virtually all computation along with 
explanatory alphanumeric statements. A large percentage of the comment cards are in sub- 
routines DEF1, DEF2, . . ., and DEF5. These subroutines are composed entirely of comment 
cards and provide the user with an area in the source file for keeping documentation current. 
In particular, subroutine DEF5 contains a narrative description of the program and its 
current capabilities. 

For the uninitiated reader, it probably would be best to speed-read subroutine DEF5 to 
obtain a quick overview of the capabilities of the program and the solution techniques 
applied before reading this document. 

The potential user should be aware of the fact that DISCOS is not intended for simple 
problems. It is primarily for problems which were heretofore intractable. Consequently, 
the theoretical basis for the program is highly advanced, and the computation algorithms 
are designed for the efficient processing of the equations associated with large multidegree- 
of-freedom systems. 
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As an aid to the user, the paper on which the derivation of the coupled flexible-body equations 
of motion is based, a paper that outlines the solution method, and comments on results ob- 
tained from several DISCOS applications appear as reference material at the end of Volume I. 
Volume I contains all relevant theoretical work. 

Volume 2 describes the DISCOS program and its support programs. The user is encouraged 
to refer to the comment cards provided in all DISCOS subroutines for additional descriptive 
information. The comment cards found in the DISCOS subroutines are intended to provide 
a link between the computer code and the theoretical equations provided in Volume 1. 

To effectively interface with the program the user must be able to write the subroutines 
that will define all non-gyroscope forces and torques. The user is provided with a clean inter- 
face. When the load vector associated with the effects of springs, dampers, motors, gas jets, 
etc. is defined and properly stored in the computer memory, DISCOS will automatically 
transform it into the appropriate generalized form required by the formulation. 

The inclusion of effects such as aerodynamic loading and thermodynamic deformation is 
more difficult. However, the methodology is analogous to that used for including gravity 
gradient effects. 

The methodology for including loads associated with springs, dampers, motors, gas jets, 
constraints, etc. is found in Volume II and in the comment cards of the appropriate sub- 
routine referred to in Volume II. 

DISCOS is probably the most powerful computational tool to date for the computer simula- 
tion of actively controlled coupled multiflexible-body systems. It is not an easy program 
to understand and effectively apply, but it is not intended for simple problems. The user 
is expected to have an extensive working knowledge of rigid- and flexible-body dynamics, 
finite-element techniques, numerical methods, and frequency-domain analysis. 
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A DIGITAL COMPUTER PROGRAM 
FOR THE DYNAMIC INTERACTION SIMULATION OF 
CONTROLS AND STRUCTURE (DISCOS) 
VOLUME II 

Carl S. Bodley, A. Darrell Devers, and A. Colton Park 

Martin Marietta Corporation 
Denver, Colorado 

and 

Harold P. Frisch 

Goddard Space Flight Center 
Greenbelt, Maryland 


I. PROGRAM SYSTEM OVERVIEW 

This volume is intended to provide sufficient understanding of program system DISCOS 
(Dynamic Interaction Simulation of Controls and Structure) and its capabilities to permit 
a user to use the program as a basic tool for analyzing the behavior of a wide range of 
dynamical problems. Specific emphasis is on a simulation for multiple-interconnected spin- 
ning elastic bodies responding under the combined influences of external environments and 
either active or passive control. 

The authors at Martin Marietta Corporation acknowledge the assistance provided by 
Goddard Space Flight Center personnel. Harold Frisch and James Donohue contributed 
many valuable technical comments and suggestions throughout the program. In particular, 
they developed the basic approach to be used for data input, defined exactly what should be 
included in the transfer function and stability analysis portion of the program, and defined 
'eight of the eleven demonstration problems. They provided the associated data that were 
used to verify both the nonlinear time response and linear transfer function and the stability 
analysis portions of the program. Raymond Welch provided the subroutine used to generate 
root-locus plots. Dr. William Case provided valuable advice on interfacing with NASTRAN 
output and generated the demonstration problem used to validate the interface subroutine 
(NASFOR).* During the early program development stage, Dr. James Mason offered signifi- 
cant advice on the need to compute internal forces at the interconnect points. Reginald 


*The NASFOR subroutine has been superseded by a special NASTRAN DMAP program and associated preprocessor 
program written by Harold P. Frisch. 



Mitchell contributed invaluable advice on requirements for making the program compatible 
with the GSFC IBM 360/95 computer system. In addition, he supplied the contractor with 
a 360-compatible plot package, furnished the contractor with a self-authored subroutine 
for reading NASTRAN output, and was responsible for running all demonstration problems 
on the 360/95 computer. Finally, the authors acknowledge the encouragement and efforts 
of Joseph P. Young, Technical Monitor, who made numerous valuable comments and sug- 
gestions throughout the study. 

A. Introduction 

The simulation employs a state-space approach that was developed in detail in Volume I. 

The state-space formulation provides an attractive basis for simulating nonlinear dynamical 
problems in a general sense, as well as permitting linearization of the governing equations to 
provide an additional foundation with which to evaluate frequency-domain and linearized 
time-domain characteristics. 

An attempt has been made to relieve the user of having to communicate with the digital 
program by means of large amounts of bulk data input Although many options are available, 
the program data stream has been organized to require only a minimal amount of basic in- 
put data for a particular simulation. The data requirements have been further consolidated 
in a manner that is quite definitive for the physical system being simulated. In summary, 
the user can easily relate to the particular elements of the program requirements and, thus, 
minimize the setup time required for preparing data input for a given problem. In addition, 
a set of self-checking features has been included for identifying and checking certain com- 
patabilities that are necessary for a proper simulation of a physically realizable system. 

In an overall sense, the user can use the digital program to obtain: 

• Nonlinear time response 

• Interaction constraint forces 

• Total system resonance properties 

• Frequency domain response and stability information 

• Linearized time response 

The program outputs consist of printed and plotted* results depicting: 

• Dynamic model construction 

• Time-domain response 

• Frequency-domain characteristics 


‘Plotting uses SC 4020 plot routines that are resident in the IBM-360 system at the Goddard Space Flight Center. 
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The printed outputs are of a fixed form, and the user controls the plotted information 
through the input data stream.* 

B. Simulation Overview and Nomenclature 

This discussion identifies the basic nomenclature used for synthesizing a typical assembly of 
interconnected bodies. The theoretical development and program annotation make exten- 
sive reference to various terminologies that are clarified here. Figure 1 provides a visual 
display that illustrates many of the items being discussed and will be referred repeatedly 
to in the ensuing discussions. 

The user identifies the overall system “topology” by means of the input integer array, 
ITOPOL, that contains the necessary information describing which “hinges” interface which 
bodies. Each body contains a body reference point that is the origin of an orthogonal 
Cartesian body axis system. This point need not coincide with the body center of mass. 

Contiguous “bodies” are interfaced through a “hinge.” “Interfaced” is used in lieu of “con- 
nected” to emphasize that the common “hinge” point between contiguous bodies may 
actually permit relative translational motion of the two bodies at the hinge. The user identi- 
fies the degree of fixity at the hinge by means of the input integer array, IHDATA. A typical 
body may contain “sensor” points that identify particular points at which additional infor- 
mation is required for completing the desired simulation. Although a sensor point might sense 
on position or rate for the control-system inputs, it could also represent a point on a body 
at which certain other information is desired, such as a momentum- wheel location or a point- 
of-force/torque application. The integer input array, IFTSMW, identifies the body on which 
a particular sensor point is located. 

A body may also contain “momentum wheels.” This special consideration accommodates 
a disk or rotating mass with a single relative rotational degree of freedom into the simulation 
without introducing another body. The momentum-wheel capability is more efficient for 
simulating a single degree-of-freedom rotating mass than for constraining five of six rigid- 
body degrees of freedom by constraint equations. All momentum wheels must have an 
associated sensor point A wheel may be either active or constant speed. An active wheel 
has a variable spin rate and receives an input torque (usually by some sensor output relation- 
ship). A shaft torque is applied to the wheel inducing an angular wheel acceleration. The 
array, IMO, identifies whether or not the wheel is active, and which axis is the spin axis. 

The reference axis for the wheel is the same as the sensor-point axis system on which the 
wheel is located. The array, AMO, identifies the wheel spin rates (initial rate only for the 
active wheel) and the wheel spin inertia about the spin axis. 

The system state vector is arranged in a specific manner within the program, and the user 
must be very familiar with this arrangement for a number of reasons. First, the user must 


*An option exists for printing most of the significant computations in the primary subroutines if desired. 
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TYPICAL MULTIBODY CONFIGURATION 




© Body Reference' Point 
• Hinge Point 
Q Sensor Point 
<S» Momentum Wheel 



TYPICAL TWO BODY /HINGE POINT ARRANGEMENT 



Note : 

1. Motion of the q frame on Body n is measured relative ti 


the p frame on Body m, 

2. The p and q frames are positioned vith respect to Body 
m and n reference axis systems, 

3. Hinge j Is Identified via array ITOPOL, 

4. Array IHDATA contains additional hinge Information. 

Figure 1. Simulation nomenclature (Sheet 1 of 4). 
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PROGRAM SIMULATION INTEGER ARRAYS 



Topology, Site - 2 x NH 
1 2 3 4 5 

— i 

Body n has frame 
Body m has frame 


q 

P 


Example: Refer, to Column 3 (Hinge 3) and 

note Body 4 Interfaces with Body 
1 via Hinge 3. 



Example : 


No. of Elastic Modes/Body, Size ■ 1 x NB 


Body No. 4 has 2 elastic modes, 
Body No. 2 has no elastic modes. 


| IFTSMW | 
Sensor Pt .— 


Sensor Point Locations, Size 
1 2 3 4 5 6 


1 3 4 2 4 4 7] 


1 x NS 


Example: Sensor Point \5^ Is located on Body 4 

(as are Sensor Points and 



Additional Remarks : 

1. The number of Betas in the state vector 
equals the sum of "zeros" plus the sum 
of the "twos" (excluding row 1) in the 
array. 

2. The number of Lambdas (constraints) 
equals the number of "nonzeros" 
(excluding row 1) in the array. 


IMO 



12 3 


1 A** 3 1 


5 14 

2 1 3 

110 


0 i 02 0 3 

J, J 2 J 3 


Momentum Wheel Information, Size - 3 x NO FTC and 

2 x NOFMO 

Momentum Wheel No. 

Sensor Point No. 

Spin Axis (1, 2, or 3) 

1 » Active; 0 » Constant Speed 
Wheel Rates (Initial) 

Wheel Inertia about Spin Axis 


Figure 1. Simulation nomenclature (Sheet 2 of 4). 
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EULER ANGLE PERMUTATION CANDIDATES ^ I TYPE 




ITYPE - 

1 

2 

3 

4 

5 

6 

7 

7 

9 

10 

11 

12 

1st 

Rotation 

Axis of 0 j 

1 

1 

1 

T 

2 

2 

2 

2^ 

3 

3 

3 

3 

2nd 

Rotation 

Axis of 6 2 

2 

2 

3 


3 

3 

1 

‘I 

1 

1 

2 

2 

3 rd 

Rotation 

Axis of 63 

3 

1 

1 

ii 

ii 

2 

2 

2 i 

2 

3 

3 

1 


Example: Using ITYPE - 6 




0i about axis 2 


02 about axis 3 



*« 


'<=3 

0 

-S 3 


'c 2 

S 2 

o' 


'Cl 

0 

-Si 

Ui\ 


— 

0 

1 

0 


-S 2 

C 2 

0 


0 

1 

0 

l a2 l 

u. 


.S 3 

0 

C 3 


0 

0 



. S 1 

0 

Cl. 

l* 3 J 


‘i ■ i r j 


CONSOLIDATION OF KINEMATICAL COEFFICIENTS 
(The ”b" Coefficients) 



(B) 1 
(B ) 2 

< > 

( fi ) 3 

fBJi, 


Note : 

1 . Only a single entry is in partition for 
Hinge 1 and it is a q type parti- 
tion from the connection kinematical 
array above, 

2 . All ocher row partitions have both a p 
and a q constituent for each "hinge" 
between contiguous bodies. 


Figure 1. Simulation nomenclature (Sheet 3 of 4). 
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CONNECTION KINEMATICS ^ TYPICAL HINGE 


a "p" Point 


a M q" Point 


< 


A0 j 
A02 
A03 


-n - 1 R R 
q p p n 


-x* 1 R R o 
q p p m p 

•Hi' 1 R 
q n 


' 

■Hr -1 R o 
q n q 

Ax x 


- R S 

- R 

- R h 

R R S 

R R 

R R h 

A *2 


pm mp 

p m 

p m p 

p q q n nq 

p q q n 

p q q n q 

**3j 









Note : I | w \ 


i J 


is a rotation transformation from 
the j to the 1 reference frame. 


2. In general, ^R^ and 


it -1 Is a transformation relating Euler 
rates to body axes projections of 
the angular velocity vector. 

Is a modal slope matrix In the 1 
frame, 



h. Is a modal deflection matrix In the 
1 frame, 

S. Is a skew symmetric matrix whose 
J elements are the components of the 
vector i to J in the 1th frame. 



W 


CONSTRAINT FORCE /TORQUE VECTOR 


STATE VECTOR ARRANGEMENT 


{y> 


i\) 


<V 2 

‘V* 

<V 2 

<v 3 

( V 3 

(TlK 

(F x\ 

( V- 


(T 2 )5 

(T 3 )s 


‘V* 


refers to Hinge 1 


, > 
<U> 3 


'(u)i' 

fu} 2 


(U) 2 

<u) 3 


<u) 3 

(UK 

; (y> - 

fuU 

uvr 


Vo'l 

U) 2 


(c) 2 

U) 3 


(C>3 

Ich 


<{) 4 

'll' 


V 

b 2 


0 2 

03 


03 

04 


04 

65 


05 

06 


06 

67 

> < 

i 

07 

6 8 


08 

B 9 


09 

8 10 


010 

6 1! 


011 

0 1 2 


01 2 

s 13 


013 

Sli* 


014 

015 


Sl_5 

0 16 


016 ' 

S 17 


fl7_ 

7," 


Y x " 

« 2 


« 2 

*3 


03 



4. 


where {U)j ■ 


-For this example, prescribed 
as function of time, l.e., a 
rheonomlc constraint as 
noted in IHDATA 


Figure 1 . Simulation nomenclature (Sheet 4 of 4). 
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know where certain variables are located so that he can couple the control law into the 
simulation, and, secondly, the user must know the order of the state variables in order to 
interpret results. Figure 1 presents the state variable order consistent with the illustrative 
problem and other related information. The state variables shown represent a typical 
arrangement in that all of the various types of variables resulting from the multiple options 
available within the simulation are present. The order of the constraints, A, is also noted. 
Note that, although the user introduces the control variables into the state vector, these 
variables, 5, will always appear after the betas, ft. Furthermore, the user may also introduce 
auxiliary variables (plant sensor signals and control-system outputs) for use in the linearized 
studies. These auxiliary variables should be placed (by the user) after the control variables, 

5, and in the order: plant sensor signals, X ss , followed by control-system outputs, B. 

C. General Use Information 

A number of guidelines must be followed in setting up a particular simulation. Some were 
detailed previously and are concisely summarized here: 

• There must be at least two bodies; a single-body problem is simulated by including 
a dummy body that is not connected to the body to be analyzed. 

• Body 1 is always positioned relative to the inertial reference. 

• Bodies are numbered from 1 to NB in an arbitrary order. 

• Each body (except body 1) must have at least one hinge; body 1 must have at 
least two hinges. 

• Hinges are numbered from 1 to NH in an arbitrary order, but hinge 1 is, by defini- 
tion, the hinge on body 1 between body 1 and the inertial origin; hence, hinge 1 
can only appear on body 1 . 

• There must be at least one sensor point for a given simulation. 

• Sensor points are numbered from 1 to NS in an arbitrary manner. 

• A typical flexible body requires mass and modal data that reflects a coordinate 
system that is consistent with the body axis reference system for that body (e.g., 
a modal coupling approach that establishes modal properties for a given body 
would have to use the same reference body axis system). 

• For frequency-domain studies, only as many control output variables can be 
identified for introducing into the state equations as there are control-system 
variables to begin with. Similarly, no more sensor-signal variables can be identified 
than plant variables that appear in the original independent state equations. 

• The user must ensure that the user-supplied package has dimensions consistent 
with NHM AX for the following arrays : 

SK(NSK, NHM AX), DK(NDK, NHMAX), and HNGT(NHT, NHMAX) 


8 



where 


NHMAX = dimensioned maximum number of hinges 

NSK = 3 or 6, depending on the nature of hinge freedom 

NDK = 3 or 6, depending on the nature of hinge freedom 

NHT = 3 or 6, depending on the nature of hinge freedom 

and, if rotation only, then NSK = NDK = NHT = 3; if rotation and translation, 
then NSK = NDK = NHT = 6. 


• The intertial properties of all the momentum wheels in a particular body must be 
included in that body’s inertia description (whether rigid or flexible) because 
inertial coupling is used. 


II. PROGRAM SEGMENTATION 

The digital code has been segmented into an executive overlay that governs the succeeding 
program flow and four supporting primary overlays, each with a separate and dedicated 
purpose. The basic program flow is depicted in figure 2. 



Figure 2. DISCOS program segmentation. 

Table 1 summarizes the intended purpose of the fundamental components in the program 
structure. 

The executive overlay (MAIN) initiates the simulation by reading job-identification informa- 
tion and then passes control to the first primary overlay (DYNS10), which represents the 
basic data input segment. This overlay may be viewed as the program segment that builds 
the model from the input data A series of topology checks are made as the data are loaded 
within this overlay to better ensure proper modeling of the physical system. This overlay 
utilizes two additional secondary overlays for processing certain types of inertial and modal data. 
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Table 1 

DISCOS Overlay Description 


Segment Name 

Purpose 

Primary Overlays 

MAIN 

Executive program control 

DYNS10 

Data input 

DYNS20 

Simulation of problem, linearization of state equations, 
and nonlinear time response 

DYNS30 

Plot results from nonlinear or linearized time response 

DYNS40 

Frequency-domain analysis, linearized time response, 
and frequency-domain displays (Bode, Nichols, Nyquist, 
Root Locus) 

Secondary Overlays (called from DYNS10) 

MSMODL 

Flexible-body data inputs for lumped mass representation 

MSMODC 

Flexible-body data inputs for consistent mass representation 


After overlay DYNS10 has structured the basic data for simulation, control is returned to 
the executive overlay that, in turn, passes control to the second overlay, DYNS20. This 
overlay performs the actual problem mechanization and develops the nonlinear formulation 
that is the foundation for the entire dynamic simulation program. 

During a given simulation, the executive overlay always calls both the first and the second 
primary overlays, DYNS10 and DYNS20, but, depending on certain input control param- 
eters, may or may not call the time-history plot overlay, DYNS30, or the linearized system- 
analysis overlay, DYNS40. 

Simulation of a particular problem has its basis within the algorithms contained in the pro- 
gram subroutine, YDOT, which establishes the canonical first-order differential equations 
that govern the dynamical motion. In turn, this routine addresses another subprogram, 
TORQUE, which, in turn, activates the user-supplied modules that relate to the particular 
simulation being considered. The following section describes these modules in further detail. 

III. DELINEATION OF USER-SUPPLIED MODULES 

The program has been written under the assumption that certain user-supplied modules are 
available for completing a given problem. In this manner, the user has considerable latitude 
concerning how certain particulars related to a given simulation should be handled. Control- 
law specification, external torque inputs, and identification of plant sensor signals and 
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control-system outputs are examples of items handled by the user. With this concept in 
mind, several subprograms have been placed under user control, but with certain restrictions 
and guidelines to which the user must adhere. Later comments will identify certain require- 
ments associated with these user-supplied modules. 

A. Logic Flow 

It is worthwhile to consider a flow-chart segment of the program (figure 3) and its chronol- 
ogy within the solution process. The order in which the user-supplied modules are called 
is indicated by integers 1 through 7 for subroutines and 8 and 9 for functions. 



Figure 3. Chronology of addressing user -pack. 
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B. User-Supplied Module Specifics 

Each user-supplied subprogram has specific intended purposes and has been coded to fulfill 
these goals. The user can extend the scope of any of these modules with his own code, but 
these routines must perform certain tasks. Because the potential user should be familiar 
with many details of the user-supplied package, the following paragraphs are devoted to each 
of the user-supplied modules. Because reference will be made to some of the programming 
logic contained in the DISCOS subroutine TORQUE, this logic has been put into flow-chart 
form as figure 4. Additional comments and rules to be followed in coding the user modules 
can be found in the comment cards included in the program listing of the default form of 
each of the routines and in subroutine DEF5. 

7. CONTRL 

CONTRL is the first of the user-supplied subroutines and is always called by DYNS20. The 
primary purpose of CONTRL is to establish the time derivatives of the control-system variables. 
These variables may be required by some of the other user routines that are activated after 
CONTRL has been addressed. The routine must also establish the number of plant sensor 
signals, NXSS, and the number of control-system outputs, NBTQ, that are transmitted through 
the common block, /LDSIZE/,* to the remainder of the program. For transfer-function 
studies, the user must also identify whether or not transfer-function polynomials are to be 
used. This is accomplished in a data statement (in CONTRL) with the variable, NPLY, which 
is the number of polynomial ratio pairs (numerator and denominator) to be used. For 
NPLY =£ 0, the first call to CONTRL will read in the polynomial coefficients. 

Subroutine CONTRL contains a good deal of information pertaining to the simulation by 
virtue of its common blocks. Section III-C identifies the constituents of the common blocks 
contained in this and other modules. The program user can establish additional common 
blocks to transfer information between the separate user-pak modules.^ 

2. EX TOR 

Subroutine EXTOR establishes the external system torques. Typically, this module can 
accommodate items such as reaction-control system (RCS) forces and torques, aerodynamics, 
and/or solar wind. The user can also extend this routine to include other state-dependent 
torques. In summary, EXTOR can be used as a “catchall” for including any additional 
forces and torques that affect the system. A single call to EXTOR from subroutine TORQUE 
establishes an integer array, ISNP, whose elements identify which sensor points are to be 
used for force/ torque inputs. A vector containing torque and force components (ordered: 

T , T T , F F . F ) is then established for each of the force/torque sensor points and is 

a y l a Y 2 


•Internal logic loops requite that NXSS be set greater than zero. 
tSee subroutine DEF1 and DEF5. 
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Creates external torques/forces 


Note: {G} is force/torque 

vector % RHS of equation 
of motion 

Adda momentum wheel shaft 
torques to {G} 


Adds hinge spring torques to |g} 
and sums spring energy to 
potential energy 

Gets due to thermal 
environment 


Now have RHS of equations 
of motion 


Creates additional equations 
for similarity transformation 
(used in linearization and 
stability package) 


Figure 4. Subroutine TORQUE flow diagram. 
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placed ias a column into the array, TEX. The vector of discrete forces and torques (referred 
to the local sensor-axis system) is returned to subroutine TORQUE from EXTOR. These 
forces and torques are then transformed and added to the total system external force/torque 
array |Gi. The user can bypass EXTOR-related calculations by setting the variable, NTEX, 
equal to zero. 

3. SHAFTT 

Subroutine SHAFTT establishes the shaft torque for each of the nonconstant-speed momen- 
tum wheels. Zeros are inserted for the torque contributions to the external torque vector 
for a constant-speed wheel. 

4. KHINGE 

Subroutine KHINGE sets up hinge-spring and dashpot torques/forces and accounts for 
potential energy contributions caused by hinge-spring deflections. The user must identify 
where spring rates and dashpot constants should be found. This can be easily handled by a 
user-specified equivalence statement within subroutine KHINGE to locate the leading stiff- 
ness and damping elements within the data block identified as CNTDTA. Note that sub- 
routine KHINGE (see subroutine listing) contains statements of the following form: 

DIMENSION SK(3, NHMAX), DK(3, NHMAX), HNGT(3, NHMAX) 


DO 101=1,3 


DO 15 1=1,3 


DO 20 1=1,3 


where integer 3 reflects the fact that consideration has been restricted to admitting only 
rotational springs at each hinge. If the user wants to also include springs or dashpots in 
relative translation at the hinge points, the 3 in the foregoing statements must be changed 
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to a 6, and appropriate spring rates and/or dashpots included within the data input array, 
CNTDTA, Further, the equivalence statement that locates the first spring rate, SK(1), and 
dashpot constant, DK(1), reflect an order that is consistent with the hinge order (i.e., the 
first three elements in CNTDTA beginning with the location corresponding to the leading 
element of SK represents in order Kg 3 , Kg 2 , and Kg 3 for the first hinge). A similar relation- 
ship exists for the array, DK. For example, in KHINGE, note that: 

EQUIV ALENCE(CNTDT A(K), SK( 1 )),(CNTDTA(L),DK( 1 )) 
and the array, CNTDTA, would be: 


CNTDTA = 
element (K) 
element (L) 


'fll Kfl2 ^ s 3 

Kg j Kg j Kg 3 

Hinge 1 

Hinge NH 

(springs) 

(springs) 

■6 1 Cfl 2 Cg 3 . . . 

Q J Cg 2 Cg 3 

Hinge 1 

Hinge NH 

(dashpots) 

(dashpots) 


where the order of 0 3 2 3 is consistent with the Euler rotation type for the hinge “q” triad, 
specified by user in array IHDATA. 


The remainder of KHINGE is concerned with the proper placement of the spring/dashpot 
forces and torques onto the composite NB bodies (generalization of forces and torques) and 
should remain unchanged. 


The user can modify the referenced torques and forces immediately after the (DO 10 L=l, 
NH) loop if he desires, but must be careful to ensure that the proper force or torque is cor- 
rectly applied to accomplish the desired result. 


5. GMISC 

Subroutine GMISC is reserved for implementing torque/force contributions from thermal 
gradient effects. The entire state vector, along with component position and attitude infor- 
mation, is available by means of transfer through labeled common arrays. Paragraph III.C 
provides more detail on the information contained in these common blocks. 


6. EQADD 

Subroutine EQADD establishes additional equations for use in the linearized time-domain 
analyses. It must identify the number of additional equations introduced by the variable, 
NAUX (number of auxiliary equations): These equations relate plant sensor signals, X‘ s , 
and control-system output forces/torques, B 1 , to the system state in the specified order. 
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The additional variables will be automatically placed in the state vector and become an 
integral part of system transfer-function evaluations. (See comment cards for subroutines 
EQADD and DEF5.) 

7. LTORQL 

Subroutine LTORQL establishes the b ik U k portion of the right-hand side of 

z* = A..zJ + b. k U k 


which is used for the linearized time response. This corresponds to the external excitations 
for the transformed variables, z 1 , leading to evaluation of the perturbation response. 

8. ADT (Function) 

Function ADT is used in conjunction with subfunction ADDT to implement prescribed 
kinematical motion in the hinge coordinates. With reference to figure 1 , the array, 
IHDATA(I,J),I>1, may have 2 as an entry, indicating that the 1 th hinge has velocity and 
acceleration prescribed in that coordinate. The argument of this subfunction is: 

ADT(IC,T) with IC=6*(J-1)+(I-1) corresponding to IHDATA(I,J)=2. The integer, IC, and 
the time, T, are passed into ADT via argument by the calling subroutine so that the velocity, 
a, may be established for the proper hinge coordinate as a function of time. 

For a given rheonomic constraint, note that both a and a must be set by subfunction. 

It is conceivable that the user knows a as the exact mathematical time derivative of a. It 
would seem that the natural thing to do is to create ADT and ADDT subfunctions to return 
consistent a and hi, respectively. This is not the best thing to do, however, because of 
numerical integration characteristics. The numerical integration of { U J reflects the use 
of a. The resulting |u| reflects a numerically integrated a that cannot be consistent with 
a value obtained by any method other than numerical integration. The consequences of 
this are seen as slight errors in motion response and a large spurious change in system 
momenta 

The best way to effect rheonomic constraints is to use values of a obtained from numeri- 
cally integrating a. This can be easily done by using additional differential equations that 
are accommodated in the state vector as additional “control variables” or { 5}. Thus, when 
all actual control variable rates are established (in subroutine CONTRL), the user need 
only code additional expressions to set 5 (additional) = oi (desired). The statements within 
subfunction ADT merely return ADT=Y(K); the state vector, Y, is available in labeled 
common /VECTOR/, and K corresponds to the location in Y where the 5 = a control 
variable resides. Of course, IC must be tested so that the appropriate a = 5 is returned. 
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9. ADDT (Function) 

Function ADDT is discussed with regard to its relationship to ADT (paragraph III.B.8). 

This function has arguments, ADDT(IC,T), identical to those of ADT, and returns values 
of a for appropriate IC and T consistent with the a returned by ADT. Note that, in figure 
3, the chronology is such that subroutine CONTRL is addressed before function ADDT so 
that CONTRL can establish a value of 5 (additional) = a (desired) to put in the state-vector 
time derivative, YDT (also available in labeled common/VECTOR/). Now, for the appro- 
priate time, T, and IC, it is necessary only to set ADDT=YDT(K), where K again corresponds 
to the location in Y at which the 5 = a auxiliary control variable resides. 

C. Selected Common-Block Information 

To compute specific variables required for the user-supplied modules, the program user will 
often require certain information that is calculated and stored within the program. Such 
information about the simulation is stored in multidimensional array form within labeled 
common blocks. These data provide a good supplement to the state variable content that 
has been discussed previously in that the user can extract both total and relative positions 
and rates for any component of the simulated dynamical system if he has a firm under- 
standing of where certain data reside within the program. The following subsections discuss 
selected common-block arrays to familiarize the potential user with their content.* 

1. IBHBSFtDI 

Common block /BHBSRD/ contains three separate groups of information that the user 
may require. This information is concisely summarized in double- and/or triple-subscripted 
arrays as 


BS(6,6+NMDBOD,NSPMAX) 

ROL(3,3,NBMAX) 

DOL(3,NBMAX) 

where the following items are noted : 

NMDBOD = maximum-dimensioned number of modes per body 

NBMAX = maximum-dimensioned number of bodies 

NSPMAX = maximum-dimensioned number of sensor points 

The array, BS(ij,k), contains the kinematical coefficients for all of the “sensor” points. 
The rows (subscript i=l,2...6) of the array refer to (in order: a> x , tc y , co z , u, v, w) the 
components of absolute angular and translational velocity (sensor referenced) at sensor 


♦Also see subroutines DEF1 and DEF5. 
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point k. The columns of the array (subscript j) refer to the j = 1 ,2,. . .6 + number of elastic 
modes on body containing sensor point k. Thus, in general, the following expression can be 
used to determine the projection (the i th velocity component) onto the triad located at 
sensor point k: 


Vel. = BS(i,j 1 ,...,j L ,k) • U* 

The array, ROL(ij,k), contains the rotation transformations relating the body axis systems 
to the inertial reference. The elements of the array are the direction cosines between the 
body axes, e k , and the fixed inertial system, e Q . Subscript k denotes the body number. 

The array, DOL(i,k), contains the three vector components, X, Y, Z), from the inertial 
reference to the body axis system, e k , for each body. 

2. /SPECIF/ 

Common block /SPECIF/ contains information that the user may require. These arrays are: 

BETAH(6,NHMAX) 

BET AHD(6 ,NHM AX) 

RS(3,3,2*(NSPMAX)) 

DS(3,2*(NSPMAX)) 

where the following items are noted: 

NHMAX = maximum-dimensioned number of hinges 

NSPMAX = maximum-dimensioned number of sensor points 

The arrays, BETAH(ij) and BETAHD(i,j), contain the hinge BETA’S and rates for hinge j, 
respectively. The order (i subscript) is given as 
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where d { is the i th Euler angle rate consistent with ITYPE for hinge j, and A is the i th velocity 
component of point q relative to point p in the p frame for hinge j. 

The array, RS(iJ,k), contains the rotation transformations (direction cosines) between the 
sensor-point axis system and the body axis system (body on which sensor is located). Two 
sets of transformations are identified for a given sensor point. The first represents misalign- 
ment of the two triads without elastic deformation, and the second includes the elastic 
deformation. The ordering (subscript k) proceeds as follows: The i th sensor rotation 
(without elastic deformation) is located at k = 2*52-1 . The total rotation transformation 
for the i th sensor is located at k = 2*2. For a rigid body, these two transformations are 
identical. 

The array, DS(i,k), contains the three components of the vector from the body axis system 
to the body sensor points (in the body axis system). Here again, there are two sets of vectors 
(rigid body and rigid body + elastic) for each sensor point. The first is for rigid body and the 
second includes the elastic deformation. The addressing algorithm is the same as that for 
RS(ij,k). 

IV. PROGRAM INPUTS 

The dynamic simulation program utilizes some basic data input subroutines in an attempt 
to standardize a large amount of the bulk data input. Additional formatted inputs have been 
used when it is more meaningful (and more efficient) to do so. As stated in the following 
section, there is a large amount of data input via subroutines READ and READIM. There- 
fore, it is useful to familiarize the reader with these two routines before describing overall 
program data input requirements. 

A. Subroutines READ and READIM 

Subprograms READ and READIM are structured to read matrix arrays in floating-point 
(real) notation (subroutine READ) or fixed-point (integer) notation (subroutine READIM). 

A thorough discussion of the routines and their supporting subroutines is contained in 
Appendix A. The following discussion gives a cursory overview of their use. 

The routines are activated by a FORTRAN call of either of the following forms: 

CALL READ (A, NR, NC, KR, KC) 

CALL READIM (IA, NR, NC, KR, KC) 

where the arguments in the call statement are: 

A, (IA) = floating (fixed) matrix array of size NR by NC 

NR = number of rows in array 

NC = number of columns in array 
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KR = row dimension of array in calling program 
KC = column dimension of array in calling program 


A call to either of these input routines requires that the data be in the following formats: 

• Subroutine READ 

First card— Matrix name, NR, NC with format (A6, 14, 15) 

Middle cards— Data with format (215, 4D17.8) 

First 15 is row number 

Second 15 is column number of leading D1 7.8 field 
Next 4D17.8 are elements of the array 

Last card— Ten zeros in columns 1 through 10 

• Subroutine READIM 

First card— Matrix name, NR, NC with format (A6, 14, 15) 

Middle cards— Data with format (215, 1415) 

First 15 is row number 

Second 15 is column, number of leading 15 field 
Next 1415 are elements of the array 

Last card— Ten zeros in columns 1 through 10 

B. I nput Data Stream 

This section presents the program system input data stream, together with the data input 
control logic. The approach herein is to first introduce an overview of the data inputs and 
program control logic in the form of a flow diagram (figure 5) and to then identify the 
details in much the same way as the FORTRAN code accepts the data inputs. This method 
of presentation has been chosen because it most closely relates to the actual processing of 
the user inputs for a given simulation. In addition, the user can follow the program control 
or switching logic to determine just what data are required for completing a particular 
simulation. 

To keep this documentation current with the program, subroutine DEF3 will contain a 
detailed description of the input data. As new capability and data input requirements are 
added to DISCOS, documentation will be kept current by the insertion of suitable comment 
cards in subroutine DEF3. 

V. PROGRAM OUTPUTS 

This section discusses the various program output information and correlates the output 
data with both the input data and the problem simulation. This information is presented in 
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Figure 5. Program system DISCOS data stream flow (Sheet 1 of 12). 











Figure 5. Program system DISCOS data stream flow (Sheet 2 of 12). 
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Figure 5. Program system DISCOS data stream flow (Sheet 3 of 12). 
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Figure 5. Program system DISCOS data stream flow (Sheet 4 of 12). 









Figure 5. Program system DISCOS data stream flow (Sheet 5 of 12). 
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Figure 5. Program system DISCOS data stream flow (Sheet 6 of 12). 
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Figure 5. Program system DISCOS data stream flow (Sheet 7 of 12). 
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Figure 5. Program system DISCOS data stream flow (Sheet 8 of 12). 
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| DYNS30 | 



READ 

ICTITL 


[Master Plot Title (10A8) ] 

] [Number of Subsets of Data to be Plotted (1615)] 



[Number of Plot Variables, This Subset (1615)] 

[Vector of Global Locations of Plot Variables 
on Plot Tape, This Subset (1615)] 


[Local Location of Independent Variable, 
Dependent Variables, Number of Grids for 
One Plot Time History (1615)] 


Read TITLI, TITLD , PTITLE I [Axis Titles, Plot Title [2(A8,2X) ,6A8] ] 

T 


RETURN 


Figure 5. Program system DISCOS data stream flow (Sheet 10 of 12). 
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[Branch Indicator, Linearized Time or 
Frequency Response (20A4)] 



[Frequency-Response Control Data (READIM) ] 


[Exponents for Tolerances (READIM)] 


~<^for I CYC - 1,2,.. NCYC 


Yes 



Note : NCYC ** Number of transfer function cycles 

was defined when LRY was read (NCYC > 0) 


Read TITLE! [Title for Transfer Function Identification (20A4) ] 


Read lpname, LPTAPE, LEIGV, LPQLY | [Identification for Plot Display Modes (20A4) ] 




Figure 5. Program system DISCOS data stream flow (Sheet 1 1 of 12). 
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2 


Eigenvectors ? 


Read FQMIN, FQMAX I2F10.0 


for IOP = 1,2,..., 5 


Valid plot 
display 

identification? 


— Plot display 

s'' identification y es 

requesting » 

root locus 
display? 

I Read IJM [Root- Locus Plot Control (READIM) ] 

No "| 

Read W1 [Root- Locus Control (READ)] 

_. L - 1 

Read FMIN , FMAX, DBMIN , DBMAX, AMIN, AMAX [Frequency Response Control Data (6F10.0)] 


Figure 5. Program system DISCOS data stream flow (Sheet 12 of 12). 
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much the same manner as the input data stream of Section IV to better acquaint the reader 
with the actual formatted output as it is presented by the program. 

Note that the output stream will not reflect certain outputs that occur from routines that 
identify troublesome areas such as matrix singularities. Recall also that the basic input 
routines, READ and READIM, can also print out input matrix data as dictated by the user. 
These printouts will not be included. Refer to the theoretical volume (Volume I) and to 
the input data stream (Section IV) for correlating certain outputs with both the theory and 
the user input requirements. 

Again, DISCOS documentation is intended to grow as new capability is added. The user 
is referred to subroutines DEF4 and DEF5 for a detailed description of the standard DISCOS 
output. In addition to the standard output, if any or all of the “DEBUG” flags are set by 
subroutine START input data, additional output data are obtained. The setting of these 
DEBUG flags for initial checkout work is encouraged. The associated output will provide 
the user with a detailed definition of the computation performed internally and resultant 
parametric magnitudes. The comment cards in subroutine DEF5 and the associated sub- 
routines provide detailed definitions of parameters outputted. 

VI. AUXILIARY PROGRAMS 

This section describes three auxiliary digital codes that have been developed to aid the 
DISCOS program system user. The first code is a FORTRAN program that accepts the 
DISCOS code as input and, based on some additional user-supplied input, automatically 
redimensions the DISCOS source program to minimize core storage requirements. It can 
also be used to update the source tape with new versions of old subroutines. The other two 
digital codes are used to obtain NASTRAN-generated finite-element data, which define 
body flexibility, directly from NASTRAN and to process it into a DISCOS-acceptable 
format. 

A. REDIM— The Redimension Program 

The REDIM code was developed to aid the user in the efficient use of available digital- 
computer core-storage locations. Examination of existing digital-computer codes for 
generalized analyses of (possibly) large systems indicates that the nature of the code fre- 
- quently dictates that a great deal of core-storage locations are required because of the sizes 
of program DIMENSION and COMMON blocks. This often leads to inefficient use of core 
storage because the user must have available sufficient core-storage locations to satisfy the 
program size. As a large percentage of program executions probably do not require the 
maximum dimension sizes of program storage blocks, it is obvious that an automatic proce- 
dure for altering the program code to meet specific requirements of a user would be desirable. 
Program REDIM was developed to satisfy these requirements. 

REDIM is a self-contained code that contains an extensive list of format statements. The 
code reads the DISCOS source code from tape as coded data and reproduces it on the tape 
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unless it finds an identifying format number in columns 73 through 75. In this case, it 
rewrites the source code according to the format corresponding to the identification. There- 
fore, REDIM provides an efficient and foolproof method of recasting the source input code 
to meet the user’s requirements. 

The following is a more detailed explanation of the manner in which the REDIM program 
can be used. Input data for the REDIM program are as follows: 

• Data tapes: 

NIT =2 = (Input tape) the data-set reference number associated with the 
DISCOS source code to be redimensioned and/or updated 

NOT = 1 = (Output tape) the data-set reference number associated with the 
DISCOS source code that has been redimensioned and/or updated 


• Input Cards: 

Card 1 READ (5,109) NCHNG 
109 FORMAT (15) 

NCHNG = Total number of subroutines on the input tape that will be totally 
updated 

IF(NCHNG.EQ.O), this is the only data card required. The program immediately begins to 
read the source code from data set 2, to redimension it, and to output the redimensioned 
source on data set 1. 

IF(NCHNG.GT.O), exactly NCHNG subroutines are to be updated. Because all subroutines 
are consecutively numbered by the DEBUG numbers, the subroutines to be updated are 
defined by the following input data cards: 

READ(5,108) (NSUB(I), 1=1), NCHNG) 

108 FORMAT (1615) 

where 

NSUB(I) = DEBUG number associated with the I th -subroutine to be updated 

All updated subroutines are read by the card reader immediately after the cards used to 
define the elements of NSUB. They are assumed to be in order of increasing DEBUG number. 
No separation cards are required between subroutines. 

Subroutine DEF5 begins with a definition of the “maximum simulation model-size param- 
eters.” Each of these parameters can be altered in REDIM. The user is expected to simply 
change the appropriate variables in the REDIM source deck to accommodate specific redi- 
mensioning needs. 



A listing of program REDIM follows: 


CCC PROGRAM TO DIMENSION DISCOS PROGRAM 
CCCCC 

C REVISED NOV. 20, 1974. 

CCCCC 

C 

INTEGER IN ( 20 ) 

INTEGER NIN< 120) ,NSIJB< 120) 

LOGICAL FLAG 
DIMENSION I CARD (18) 

DATA NIT, NOT / 2, 1 / 

OATA IEN, 10 / AH EN, 4H0 / 

C 

DATA NBMAX,NHMAX,NSPMAX,NMWMAX,NMWBOD,NMDBOD,KY, JMAXC, JMAXL / 

« 6, 6, 15, 5, 4, 12,250, 7, 500 / 

DATA MAXZP, MX JVPL.MAXOUM / 

* 1000, 16, 1500 / 

DAT* MAXCNT / 

* 150 / 

DATA L 1 , L 5 / 99, 500 / 

CCC 

CCC LI MUST BE AN EVEN INTEGER. 

CCC IF NOT, IT WILL RE INCREMENTED B Y 1 

CCC — 

CCC 

C 

1002 FORMAT ( 1 8A4 , 13,15) 

708 FORMAT ( IX, 18A4. 13, 15) 

703 FORMAT I 1 H 1 ) 

1 FORMAT ( 5X1H*5X4HAMU( I2,1H,I2,1H,I2,5H),BW(I2^1H,I3,1H)37X,I3,I5) 

2 FORMAT (5X1H*5X5HBH(6, I2.1H, I2.7H ),BS(6,I2,1H,I2,10H),R0L(3,3,I2, 

* 8H ) ,00L< 3, 12, 1 H ) 16X, 13, 15 ) 

3 FORMAT (5X1H*5X4HGGS< I2,3H,9, 12, 1H)49X. 13, 15 ) 

4 FORMAT (5X1H*5X7HHATH(3,I2,IH, I 2 , 9H ) , S I GH ( 3 , I 2 . 1H , I 2 , 9H ) , HA T S ( 3 , 
*12, 1H, 12, 9H) , S I GS ( 3, 12, 1H, 12, 1 H ) AX , 13, 15) 

5 FORMAT ( 5X1H*5X3HAM( 13, 1H, I2,9H> , ACOF I 9, 12, 1H, 12, 

* 9H) ,RC0F<6, 12, IH, I 2,2H) ,22X, 13, I 5) 

6 FORMAT ( 5X1H*5X6HC0F11< I 2 , 1H , I 2 , 1H , I 2 , BH ) , COF 22 ( I 2 , 1H , I 2 , 1H , I 2 , 

* 8H) , C0F33 < I2,1H,I2,1H,I2,5H),AK(I2,1H,I2,1H,I2,2H),I3,I5> 

7 FORMAT ( 5X1H*5X6HC0F12( I2,1H,12,1H,I2,8H> ,C0F13( I 2 , 1H , I 2 . 1H , I 2 , 

* 8H) ,COF23 ( I2,1H,I2,1H,I2,5H),AD(I2,1H,I2,1H,I2,2H),I3,I5> 

8 FORMAT ( 5X1H*5X6HC0FXY< I2,1H,I2,1H,I2,8H) ,COFXZ (I2,1H,I2,1H,I2, 

* 8H ) , COF Y Z ( 12, 1H, I2,1H,I2,IH)14X, 13, 15) 

9 FORMAT ( 5X1H*5X5HIV(6, I 2, 1H) 53X, 13, I 5) 

10 FORMAT (5X1H*5X5HALAM( I 2 , 1H ) 5 3X , 1 3 , 15) 

11 FORMAT ( 5X1H*5X2HP( I 3 , 7H ) ,PMOM( I 2 , 24H ) , HTOT ( 3 ) , TOTL ( 3 ) , ENGKF ( 12, 

* 8H),ENGPE( I2*2H),9X, 13,15) 

12 FORMAT ( 5X1H45X6HNHP0I ( I2,9H ) , NSPO I ( I 2 , 1 H ) 4 1 X , I 3 , I 5 ) 

13 FORMAT (5X1H*5X8HPIN(3,3,I2»11H)» RP2 ( 3, 3, I 2, 1 1H ) , RP3(3,3,I2. 

* 1HI24X, 13, 15) 

14 FORMAT (5X1H*5X3HPR( 13,3H,5)52X, 13, 15) 

15 FORMAT (5X1H*5X4H0RK( I3,12H) , PRK ( 4 ) , NT42X,I3,I5) 

16 FORMAT (5X1H*5X8HBETAH(6,I2,11H),BETAHD(6, I 2, 8H ) , AMO ( 2, 12, 

* 9H ) , RHI 3 , 3 , 1 2 , 9H ) , R S l 3 , 3 , 1 2, ?H ) ,4X, I 3 , I 5 ) 

17 FORMAT ( 5 X1H*5 X5HDH (3,I2,7H),DS(3,I2, 8H ) , I MO (3,12, 

* 7H ) , NMOW ( I1,1H,I2»9H),IFTSMW(I2,2H),11X,I3,I5) 

18 FORMAT ( 5X1H*5X33HNB,NH,NSPT ,NOFMO , NOEL T A , I TOPOL ( 2, I 2, 

* 9H ) , IRGFLXI I2.11H), IHDATAI7, I 2 , 2H ) , I 3 , I 5 ) 

19 FORMAT (5X1H*5X5HL0CU( 12, 7H) ,LENU( 12, 11H) ,NU,NBFTA, 

* 8HNLAM,NF026X, 13, 15) 



20 

FORMAT 

( 5X1H*5X2HY ( 13 

,6H ) , YDT ( I 3, 1H )4 6X, I 3 , I 5 ) 

21 

FORMAT 

( 5X1H*5X6HINDEP( I3,1H)51X, 13, 15) 

41 

FORMAT 

( 6X9HNBMAX 

= 

I2,55X,I3, 15 ) 

42 

FORMAT 

( 6X9HNHMAX 

= 

I2.55X, 13, 15) 

43 

FORMAT 

( 6X9HNSPMAX 

= 

I2,55X,I3, 15) 

44 

FORMAT 

( 6X9HNMWMAX 

= 

I 2 , 5 5 X , 13,15) 

45 

FORMAT 

( 6X9HNMWR0D 

= 

I 2,55X, 13, 15) 

46 

FORMAT 

( 6X9HNM0B0D 

= 

I 2 , 5 5 X , 13,15) 

47 

FORMAT 

( 6X9HKMU 

= 

I 2,55X , 13, 15 ) 

48 

FORMAT 

( 6X9HKY 

= 

I 3 , 54X , 13,15) 

49 

FORMAT 

( 6X9HKU 

= 

I 3 , 54X , I 3 , 15) 

61 

FORMAT 

( 6X12H0IMENSI0N A(I3,1H,I3,4H),B(I3,1H,I3,5H),IV(I3 


* 5H),JVI 13,19H),C(6,6),PHR6(6,6),1X, 13, 15) 

62 FORMAT < 5X 1H*3X5HBC < 9 , I 2 , 6H ) , WS 1 < I 2 , 1H , I 2 , 6H ) , WS2 < I 2 , 1H, I 2 , 

* 6H) ,OM2( I3.8H) , 0MGA21 I 2 , 7H ) , JDOF ( 1 2, 3H, 6 ) 3X , I 3, I 5 > 

63 FORMAT ( 6X28HDAT A N I T , NOT , K AB , K JDOF / 5 , 6 , I 3 , 1 H , I 2 , 2H /30X,13,15) 

64 FORMAT ( 6X 1 2HD I MEN S I ON A ( I 4 , 1H , ! 2 , 4H ) , B ( I 4 , 1H , I 2 , 

* 4H),C(I4,1H,I2, 6H ) , AMU ( I 3 * 1 H* I3*1H)11X,I3* 15) 

66 FORMAT ( 6X 1 3HD IMENS I ON W S ( I 4 , 1 H , I 2 * 7H ) , U VE C ( I 4 , 

* 7H) ,WV( 3)28X, 13, 15 ) 

66 FORMAT (5X5H* / 5X , I 3 , 1H ,4X , I 2 , 4H /43X, 13,15) 

69- FORMAT ( 6X35HDIMENSI0N A ( KAR , 1 I » R(KAR,1), I VEC ( I 3 , 1H ) 27 X , I 3 , I 5 ) 

70 FORMAT ( 6X31H0 IMENS ION AZ(KAZ,1>, B ( KB, 1 ) , W( I 3 , 1H ) 31X , I 3, I 5 > 

71 FORMAT (6X13HIF ( NRR .GT. I3,11H) GO TO 9993 9X , I 3 , I 5 ) 

72 FORMAT ( 6X31H0IMENSI0N AZ(KAZ,1), B ( KB * 1 > * W ( I 3 , 1H ) 3 1 X , I 3, I 5 ) 

73 FORMAT I6XHHIF ( NRR . GT . I 3 t 1 3H .OR. NCB.GT.I3, 

* 33H .OR. NRR .GT . KAZ .OR. NCR . GT . K AZ ) 3X , I 3 , I 5 ) 

74 FORMAT ( 6 X 1 5 HO I M E NS I ON IC0N(I2,«H), I VEC ( I 2 , 7H ) , JCON ( I 3 , 

* 4H) ,R< I2,9H) , JBIGSTI I2,9H ) , JBIGFNI I2,1H)I3,I5> 

75 FORMAT ( 6X14HDIMENSI0N GG V ( I 3 ,4H ) , D ( I 2 , 4H ) , V ( I 2 , 9H ) , RDTO ( 6 , I 2 , 

■* 9H) , RDTP<6, 12 , 1H) 14X , 13 , 15 ) 

76 FORMAT ( 6X14HD1MEN-SI0N RMR ( I 2 , 1 H , I 2 , 7H ) , PM ( 6 , I 2 , 1H , I 2 , 1H ) 34X , I 3 , 

* 15) 

77 FORMAT ( 6X33HE0UI VALENCE ( BW ( 1 ) » BMR ( 1 ) ) , (HW(I4,8H),HM(1 ) ) 2 1 X , I 3 , 

* 15 ) 

78 FORMAT ( 6X 1 3HD I MENS I ON F Y ( I 3 . 6H , 3 ) , Z ( I 3 , 7H ) , ZNEW ( I 3 , 5H ) , I V ( I 3 , 

* 1H127X, 13, 15) 

79 FORMAT ( 6X30HE0DI VALENCF ( PR ( 1 ) , F Y ( 1 ) ) , ( PR < I 4 , 1 2H ) , Z ( 1 ) ) , ( P R ( I 4 , 

* 10H) , ZNFWI 1 ) )6X , 13, I 5 ) 

80 FORMAT ( 6 X29H0 I MEN S I ON A ( K A . 1 ) , R ( K A , 1 ) , CL ( I 3 , 1H ) 33X , I 3 , I 5 ) 

8 1 FORMAT ( 5X1H*8X8H ITOPW< 2 , I 2 ,8H ) , I OP ( 2, I 2, 8H) ,NR()OF ( I 2, 1 H ) 27X , I 3, 

* 15) 

8? FORMAT ( 6X14HD IMENS ION RMB ( I 2 , 1H, I 2 , 7.H ) , RM ( 6 , I 2 , 1H , I 2 , 

* 8H), I TOP ( I 2, 1H, I 2 , 5H ) , WR ( I 2, 1H ) 14X , I 3, I 5 ) 

83 FORMAT ( 6X15HD IMENS ION RW( 3 , I 2 , 5H ) ,CW ( 1 2, 

* 1 5H, 3 ) , VW( 9) , WV( 6 )27X, I 3, 15 ) 

84 FORMAT ( 6X40HD I ME N S I ON A ( KR A , 1 ) , 8 ( KRR , 1 ) , Z ( KR Z , 1 ) , WR ( I 3 , 

* ]H)22X, 13,15) 

86 FORMAT ( 6 X40HD I MEN S I ON A ( KR A , 1 ) , 8 ( K R H , 1 ) . Z ( KR Z , 1 ) , WR ( I 3 . 

* 1H)22X, 13, 15) 

86 FORMAT ( 6X44 HO I ME N S I ON A < 6 , 1 ) , R ( K MU , 1 ) * C ( 6 , 1 ) , I V < 6 , 1 ) , R W < I 2 , 

* IN) 19X, 13, 15) 

87 FORMAT ( 6 X 1 3 HO I ME N S I ON CW ( I 2 V 9H , 3 ) , RW ( 3 , I 2 , 5H ) , V 1 ( I 2 , 

* 17H) , WSK ( 3 , 3 ) ,TSHFT( I 2 , 2 H ) , 12X, 13, 15) 

88 FORMAT ( 5 X 1 H*5 X6HT E X ( 6 , I 2 , 7H ) , I S PN ( I 2 , 1 OH ) , V ( 6 ) , V2 ( I 2 , 1 H ) 

* 3 1 X , 13,15) 

89 FORMAT f 6X 1 3H0 I MENS 1 ON W V ( I 2 , 1 H ) 50X , I 3 , I 5 ) 

90 FORMAT ( 6X13H0 IMENS ION Z P ( I 4 , 1 H , I 2 , 6H ) , OUM ( I 4 , 7H ) , J VP L ( I 2 , 

* 1H)26X, 13, 15 ) 

91 FORMAT ( 6X20HDAT A KRPLOT , KCRLOT / I 4 , 1 H , I 2 , 1 H/ 38X , I 3 , I 5 ) 

92 FORMAT ( 6X1 7H0 IMENS ION HNGT ( 6 , I 2, 1H ) 46X , I 3 , I 5 ) 
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93 FORMAT < 6X 1 6HD ! MENS ION VCM I 3 , I 2 . 1 OH ) , T I N ( 3 , 3 . I 2 , 27H ) , S YSCMl 3 ) , SYS I 
*N< 3,3) .XMASI I2,1H)6X,I3,15> 

95 FORMAT ( 5 X 1 Hs 5 X 7HCN TO T A ( I 3 , l H ) 5 0 X I 3 , I 5 ) 

96 FORMAT (6X8HKC0NT = 13,53X13,15) 

97 FORMAT ( 6X 1 3HD I MENS I ON V I < I A , 5H ) , VD ( I 4 , 1H ) 39X I 3 , I 5 ) 

98 FORMAT (5X1H*5X7HASUMRY( 12,11H,6), ISUMRYl 12, 

* 10H, 3 ) ,KSUMRY29X, 13, I 5 ) 

99 FORMAT ( 6X9HKSUMRY = I 2 , 55X , I 3 , I 5 ) 

100 FORMAT ( 5X1H*5X16HIFL1 . IFL2,DRVEC( 13, 1H)41X, 13, 15 1 

910 FORMAT ( 6X. 12HDIMENSI0N 0 ( I 3 , 1H , , I 3 , 6H ) , VI ( I 3, 1H ) , 37X . 1 3 , I 5 ) 

411 FORMAT ( 6X , 29HEQU I VALENCE (0(1), Will)). (0( ,I4,8H),W2( 1) ) , 25X , 

<= 13,15) 

41? FORMAT ( 7X14HDIMENSI0N VS1 ( I3,6H) , VS2( 13, 1H138X, 13, 15) 412 

414 FORMAT ( 7X, 14HD I MENS ION RRN ( I 3 , 6H ) , R I N ( I 3 , 6H ) , RR D ( I 3 , 6H ) , R I D ( 414 

* I 3,6H ) ,R?R ( I 3 ,6H ) ,R? I ( I 3, 1H ) 2X1 3, I 5 ) 

415 FORMAT ( 6X , 1 7HD I MENS I ON ROOTRE ( I 3 , 9H ) , ROOT I E ( I 3 , 4H ) , W ( I 3 , 

* 9H , 4 ) , I ROW ( 1 3 , 3H , 2 ) ,12X, 13, 15) 

415 FORMAT ( 6X, 13HDIMENSI0N XR ( I 3 , 5H ) , X I< I 3 , 5H ) , VR ( 1 3 , 5H ) , V I ( I 3 , 1H ) , 

4 25X. 13,15) 

418 FORMAT ( 7X 1 6HD I MENS I ON I JM ( 2 , I 3 , 8H ) , L R Y ( 9 , I 3 , 


* 9H), IRY ( 3 , I 3, 10H ) , KBKR (3 ) , 13X, 13, 15 ) 418 

420 FORMAT ( 5X1H915X3HIVI I 3, 10H ) , JV ( I 3 , 1 H ) , 3 1 X , I 3 , I 5 ) 420 

422 FORMAT ( 5 X 1 HA 1 5 X 5HFBK N ( I 3 , 8H ) , FBNC(I3,8H), FBRD ( I 3 , 8H > , FBDCI 422 

* 13, 1HI9XI3, 15) 

424 FORMAT (5X1H815X2HR( I 3 , 1 1 H ) , RX ( I 3 , 1 H ) 3 1 X I 3 , 1 5 ) 424 

424 FORMAT ( 5 X 1 Hf. 1 5 X 5H V 1 (13, 8H), V2 (13, 8H), V 3 ( 1 3 , 1 H ) 20X I 3 , I 5 ) 428 

4?8 FORMAT ( 5X1H015X5HXV1 (13, 8H), XV 2 (13, 8H ) , XV3 (13, 428 

* fl H ) , XV4 ( 13, IH 19X13, 1-5 ) 

430 FORMAT (5X1HE15X5HY (13, 8H), YD ( I 3. 1H ) 31X1 3, I 5 > 430 

432 FORMAT ( 5X1HF15X3HW1 ( 13, 1H, 13, 6H) , W2 ( I 3 , 1H , I 3 , 1H ) 2 7X I 3 , I 5 ) 432 

434 FORMAT ( 6X1 7HEQU I VAL ENCE < V S 1 ( I3,9H),VS2( 1 ) 137X13, 15) 434 

436 FORMAT (6X6HKR = 13,57X13,15) 436 

438 FORMAT (6X6HKRT = 13,57X13,15) 438 

440 FORMAT ( 6X6HKRX = 13,57X13,15) 440 

442 FORMAT (6X6HKV1 = 13,57X13,15) 442 

444 FORMAT ( 6X6HKV2 = 13,57X13,15) 444 

4A-6 FORMAT (6X6HKVX = 13,57X13,15 ) 446 

447 FORMAT ( 5X1H«12X6HSAVE0( I 3,9H) , SAVER (13, 9H ) , SAVED (13, 447 

s 9H ) , SAVE A ( I 3 ,8H ) , KSAVE ,1X13,15) 

448 FORMAT ( 6 X 1 5HD I M E NS I ON IVEC(I3,8H), JVEC ( I 3 , 1H ) 36X I 3 , I 5 ) 

450 FORMAT ( 6X12HD IMENS ION A ( I 3 , 4H ) , R ( I 3 . 4H ) , W ( I 3 , 4H ) , B ( I 3 , 4H ) , C ( I 3 , 450 

9 5 H ) , SS ( 13, 1H)14XI3, 15) 

45? FORMAT ( 6X 1 4HD I MENS ION RAR(I3,7H), OAR ( I 3 , 1H ) 38X I 3 , I 5 ) 452 

454 FORMAT ( 6 X 1 6HD I ME NS I ON XS A VE ( I 3 , 8H ) , YS A VE ( I 3 , 1 H ) 35 X I 3 , I 5 ) 454 

456 FORMAT (5X12H1 6 , 13, 4H /, 48X13, 15) 456 

460 FORMAT ( 6 X 1 4HD I M ENS I ON PAR(I3,7H), OAR ( I 3 , 1 H ) 38X I 3 , I 5 ) 460 

46? FORMAT (5X1H110X15H TITLE(l) , WD(I3, 

1 25H) , T ABO ( 20 ) , TARUP(31 1,13X13, 15) 

464 FORMAT ( 5X1 H 3 1 OX 5HFNUM ( I 3 , 8H ) , F.D EN ( I 3 , 1H ) 36X 13 * 15) 464 

466 FORMAT ( 6X9H0ATA KWO / I 3 , 1 H/ , 5 3X I 3 , I 5 ) 

468 FORMAT (6X12HDATA K 0 S A VE / I 3 , 1H / 5 OX I 3 , I 5 ) 

470 FORMAT ( 6X22HDIMENSI0N PRK(4>, YDS ( I 3 , 8H, 3 ) , YS ( I 3 , 1H ) 29X I 3 , I 5 ) 470 

472 FORMAT ( 6X22HD I MENS I ON TITLE(l), X(I3,5H), Y ( I 3 , 1H ) 32X I 3 , I 5 ) 472 

474 FORMAT ( 6X 1 5 HD I M E NS I ON F A ZE ( I 3 , 1 H > 7H , DB AM R ( I 3 , 1 H ) 36 X I 3 , I 5 ) 474 

480 FORMAT (6X1 8HC0MMC1N /LWRKV1/ W ( I 3 , 1H ) 44X I 3 , I 5 ) 

C 

IOASMX = 150 
ML T AM X = 150 
MXBTAR = 150 


37 



MI.T3MX = 100 
MADMAX = 100 

IF (MOO (LI, 2) .EQ. 1) LI = LI + 1 

L 2 = 2*L1 + 7 

L 3 = Ll*Ll/2 + 1 

LA = 2*L2 

L 2 P 1 = L2 + 1 

L01 = NRMAX 

L 02 = NHMAX 

L03 = NSPMAX 

LOA = NMWMAX 

LOR = NMWBOD 

L 06 = NMOBOD 

L07 = KY 

L08 = 6 + NMDROO + NMWROD 
L09 = 6*NHMAX 

L 1 0 = NBMAX*<6 + NMDROO ) + NMWMAX 
L 1 1 = 6 + NMOROO 
L 1 2 = 2*NHMAX - 1 
L 1 3 = 2* ( NHMAX - 1 ) 

L1A = 6*NBMAX 
L 1 5 = 6* ( NHMAX - 1 ) 

L 1 6 = 7 $ ( N H M A X - 1) 

L 1 7 = 2*NSPMAX 
L1H = 2 + NMWROO 
L 1 9 = 2*NRMAX + 2 

L20 = L09*L09 + 1 
LAO = 25 

IF ( L06 .GT. 12) LAO =2*L06+1 

LAI = JMAXC 

LA2 = 6*JMAXC 

L A3 = JMAXL 

LAA = 13 

L A5 = NMDROO 

L A6 = IGASMX 

L A 7 = MLTAMX 

LAB = MXBTAB 

LA9 = 3YL07+1 

L50 = A*L07+l 

L 5 1 = MLT3MX 

L52 = MADMAX 

L 53 = MAXZP 

L 5 A = MXJVPL 

L 55 = MAXDUM 

L56 = MAXCNT 

L 57 = MAXOf 9, NMDROO ) 

L58 = MAXOt 10, NMDROO) 

L 59 = ( ( L06 + 6 )* ( L06 + 7 ) ) /2 
L 60 = MAXO ( L02 , L03 ) 

C 

Kf.l = L09*L10 
KC2 = L09*L09+6*L08*L12 
IF ( KC2 .GT. KC1) L10 = KC2/L09 + 1 
C 

CCCCCCCC 

REWIND NIT 
CCCCCCCC 

DO R05 1=1,120 
805 N I N ( I ) = 2 

READ ( 5 , 109 ) NCHNG 
WR I TE ( 6, 209 ) NCHNG 
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209 FORMAT (15,' UPDATED SUBROUTINES WILL BE READ IN') 

IF(NCHNG.EQ.O) GO TO 812 

READ ( 5 , 108 ) ( NSUB ( I ) , 1 =1 ,NCHNG ( 

WRITE <5. 208) ( NSUB ( I ) . i = 1 , NCHNG ) 

208 FORMAT (' DEBUG NUMBERS FOR THE SUBROUTINES ARE: ',1615) 

DO 805 1=1 , NCHNG 
NN = N SUB ( I ) 

806 NIN(NN) = 5 
812 CONTINUE 

I CNT = 1 
M = 0 

500 CONTINUE 
M = M + 1 
NNN = N 1 N ( I CNT ) 

READ (NNN, 1002, ENO = TOO) 1 C ARD ,N » MM 
I F ( ICARD( 2) ,E0. IEN. AND. ICARDI 3) .EQ. ID) GO TO 810 
GO TO 808 

810 IF(NIN( FCNT1.E0.5) WR I TE ( NOT , 1002 ) TC ARD, N« M 

807 IFtNINI 1CNT) .EQ.2) GO TO 809 
READ! 2, 1002,END = 700) I CARD, N , MM 

IF( ICAR0<2) ,E0. IEN. AND. ICARO( 3 I ,E0. 10) GO TO 811 
GO TO 807 

811 I CNT = I CNT + 1 
GO TO 500 

809 ICNT = ICNT + 1 
C 

808 CONTINUE 

IF (N .GT. 0) GO TO 800 
WRITE (NOT, 1002) ICARD,N,M 
GO TO 500 

800 IE (N ,UT. 11) GO TO 801 
IF IN .LT. 21 ) GO TO 802 
IF (N .LT. 89) GO TO 603 
IF (N .LT. 70) GO TO 60 A 
IF (N .LT. 80)'' GO TO 605 
IF IN .LT.101) GO TO 606 
IF IN .LT. A 2 B ) GO TO 610 
IF IN .LT. A50 ) GO TO 612 
GO TO 615 

601 IFIN.EO. 1IWRITE (NOT.l) LOB , L08 , LO 1 , L 09 , L l 0 , N , M 

IFIN.EO. 2IWRITE (NOT, 2) L 1 i , L 1 2 , L 1 l , L 03 , LO 1 , LO 1 . N , M 
IFIN.EO. 3IWRITE (NOT, 3) L06,L01,N,M 

IFIN.EO. AIWRITE (NOT, A) L06 , L 1 3 , L06 , L 1 3 , L 06 , L03 , L06, L03 , N , M 
IFIN.EO. 51WRITE (NOT, 5) L59 , LO 1 , LOB , L 0 1 , L 06 , LO 1 , N , M 

IFIN.EO. 6IWR1TE (NOT, 6) L06 , LOB , L 0 l , L06 , L 06 , LO 1 , L06 , LOB , LO 1 , 

* L06, L06, L01 ,N,M 

IFIN.EO. 7IWRITE (MOT, 7) LOB , L06 , L 0 1 , L 06 , LOB , LO 1 , L06 , L06 , LO 1 , 

* LOB, LOB , LO 1 ,N,M 

IFIN.EO. 81WRITE (NOT, 8) LOB , L06 , L 0 l , LOB , LOB , LO 1 , LOB , LOB , LO 1 , N , M 
IFIN.EO. 9.) WR I TE (NOT, 9) LO?,N,M 
IFIN.EO. 10JWRITE (NOT, 10) L09,N,M 
GO TO 500 

602 IFIN.EO. 11 (WRITE (NOT, 11) L 1 0 , L 1 A , L 0 1 , LO 1 , N , M 
IFIN.EO. 12IWRITE (NOT, 12) L01,L01,N,M 
IFIN.EO. 13IWRITE (NOT, 13) L02 , L02 , L02 , N , M 
IFIN.EO. 1AIWRITE <NOT,lA) L07,N,M 

IFIN.EO. 15IWRITE (NOT, 15) L07,N,M 

IFIN.EO. 161WRITE (NOT, 16) LO? , L02 , LOA , L 1 5 , L 1 7 , N , M 
IFIN.EO. 171WR1TE (NOT, 17) L 16 , L 1 7 , LOA , L 1 8 , L01 . L03 , N , M 
IFIN.EO. 181WRITE (NOT, 18) LO? , LO 1 , L02 , N , M 
IFIN.EO. 191WRITE (NOT, 19) L19,L19,N,M 
IFIN.EO. 20)WRITE (NOT, 20) L07,L07,N,M 
GO TO 500 
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603 IF(N.E0.?1 (WRITE (NOT, 21) L07,N,M 
IFIN.E0.61 1WRITE (NOT, 41) L01,N,M 

IF(N.EQ.62)WRITE (NOT, 62) L02.N.M 

IFIN.EQ. 63 (WRITE (NOT, 63) L03,N,M 

IF(N.E0.66)WRITE (NOT, 66) L06,N,M 
IF(N.E0.65)WRITE (NOT, 65) L05,N,M 

IFIN.EO. 661WRITE (NOT, 66) L06,N,M 

IF<N.EQ.67)WRITE (NOT, 67) L08,N,M 

IF(N.E0.68)WRITE (NOT, 68) L07,N,M 
GO TO 500 

606 IF(N.E0.69)WRITE (NOT, 69) L10,N,M 

IF(N.E0.61)WRITE (NOT, 61) L62 , L 62 , L62 , L6 2 , L62 , L62 , N , M 

IF(N.EO. 62) WRITE (NOT, 62) L06, L06 , L06 , L06 , L06 , L62 , L 1 1 , L6 1 , N , M 

IFIN.EO. 63 (WRITE (NOT, 63) L62.L61,N,M 

IF(N.E0.66)WRITE(NOT,66) L63 , L65 , L63 , L65 , L63 , L65 , L 1 1 . L 1 1 , N , M 
IF(N.E0.65 (WRITE (NOT, 65) L63,L66,L63,N,M 

IF ( N. E0.66 ) WRITE! N0T.66 ) L63,L65,N,M 

IF(N.EQ.69)WRITE (NOT, 69) L66,N,M 

GO TO 500 

605 IF(N.E0.70)WRITE (NOT, 70) L67,N,M 

IFIN.EO. 71 (WRITE (NOT, 71) L67,N,M 

I F ( N.EQ.72)WRITE (NOT, 72) L68,N,M 

IF(N.E0.73)WRITE (NOT, 73) L68,L68,N,M 

IF(N.E0.76)WRITE (NOT, 76) L09 , L 09, L 1 0 , L09 , L02 , L 02 , N , M 

IF(N.E0.75)WRITE (NOT, 75) L 10 , L09 , 1.09 , L 1 1 , L 1 1 , N , M 
IF(N.E0.76)WRITE (NOT, 76) L09 , L09 , LOS , L 1 2 , N , M 

IF(N.E0.77)WRITE (NOT, 77) L20,N,M 

IF(N.E0.78)WRITE (NOT, 78) L07 , L07 , L07 , L07 , N , M 

IF(N.E0.79)WRIT£ (NOT, 79) L69,L50,N,M 

GO TO 500 

606 IFIN.EO. 801WRITE (NOT, 80) L08,N,M 

IFIN.EO. 81 (WRITE (NOT, 81) L02 , L02 , LO 1 , N , M 

IFIN.E0.821WRITE (NOT, 82) L 09, L09 , LOB , L 12 , L02 , LO 1 , L 1 1 , N , M 
IF(N.E0.83)WRITE (NOT, 83) L06,L06,N,M 

IF(N.E0.86)WRITE (NOT, 86) L51,N,M 

I F ( N.EO. 85 (WRITE (NOT, 85) L52,N,M 

IF(N.E0.86)WRITE (NOT, 86) L11,N,M 

IF(N.E0.87)WRITE (NOT, 87) L06 , L06 , L06 , L06 , N , M 

IFIN.E0.881WRITE (NOT, 88) LO 3 , L03 , L06 , N , M 
IF(N.E0.89)WRITE (NOT, 89) L06,N,M 

IF(N.E0.90)WRITE (NOT, 90) L53,L56, L55,L56,N,M 

IFIN.EO. 91 (WRITE (NOT, 91) L53,L56,N,M 

IF(N.E0.92)WRITE (NOT, 92) L02,N,M 
IF(N.E0.93)WRITE(N0T ,93) L01 ,L01 , L01 , N , M 
I F ( N. EO. 95 ) WR I TE (NOT, 95) L56,N,M 

I F ( N.E0.96IWRITE (NOT, 96) L56,N,M 

IF(N.E0.97)WRITE (NOT, 97) L53,L53,N,M 

IFIN.EO. 98 (WRITE (NOT ,98 ) L60,L60,N,M 

IFIN.EO. 99JWRITEI NOT , 99 ) L60,N,M 

IF (N.EQ.100)WRITE(N0T,100) L66,N,M 

GO TO 500 

610 CONT INUE 

IF (N .EO. 610) WRITE (NOT, 610) L1,L1,L1,N,M 
IF (N .EO. 611) WRITE (NOT, 611) L3,N,M 
IF (N .EO. 612) WRITE! NOT ,612) L6,L2,N,M 
IF (N .EO. 616) WRITE (NOT, 616) ( L 1 , I = 1 , 6 ) , N , M 

IFIN.EO. 615 (WRITE (NOT, 615) L 1 , L 1 , L 1 , L 1 , N , M 
IFIN.EO. 6161WRITE (NOT, 616) L 1 , L 1 , L 1 , L 1 , N , M 


IF 

(N 

• EO. 

618 ) 

WRITE 

(NOT, 618) 

LI , 

LI ,L1 

» N * M 

IF 

(N 

.EO. 

620) 

WRITE 

(NOT, 620) 

L 07 

, L 07 , 

N,M 

IF 

(N 

.EO. 

622 ) 

WRITE 

(NOT, 622) 

(LI 

,1=1, 

6 ) ,N,M 

IF 

( N 

.EO. 

626) 

WRITE 

(NOT, 626) 

L 2 , 

L6,N, 

M 
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IF (N .£0. 426) WRITE (NOT, 4261 ll,ll,Ll,N,M 
0(1 TO 500 
612 CONTINUE 

IF (N .EQ. 428) WRITE (N0T.428) ( L 1 . I =1 ,4 ) ,N,M 

IF (N .EQ. 430) WRITE (NOT, 430) L07,L07,N,M 

IF (N .EQ. 432) WRITE (NOT, 432) ( L 1 , I = 1 . 4 ) , N , M 

IF (N .EQ. 434) WRITE (NOT, 434) |_2P1.N,M 

IF (N .EQ. 436) WRITE (NOT, 436) L1,N,M 

IF (N .EQ. 438) WRITE (NOT, 438) L2,N,M 

IF IN .EQ. 440) WRITE (NOT, 440) L4,N,M 

IF (N .EQ. 442) WRITE (NOT, 442) L4,N,M 

IF (N .EQ. 444) WRITE (NOT, 444) L2,N,M 

IF (N .EQ. 446) WRITE (NOT, 446) L),N,M 

IF (N .EQ. 447) WRITE (NOT, 447) ( L5 , I =1 , 4 ) , N , M 

IF (N .EQ. 448) WRITE (NOT, 448) L2,L2.N,M 

CO TO 500 
615 CONTINUE 

IF (N .EQ. 450) WRITE (NOT, 450) I L 1 , I = 1 , 6 > , N , M 

IF (N .EQ. 452) WRITE (NOT, 452) LI, LI, N, M 

IF (N .EQ. 454) WRITE (NOT, 454) L5, L5, N ,. M 

IF (N .EQ. 456) WRITE (NOT, 456) L5,N,M 

IF (N .EQ. 460) WRITE (NOT, 460) L1,L1,N,M 

IF (N .EQ. 462) WRITE (NOT, 462) L2,N,M 

IF (N .EQ. 464) WRITE (NOT, 464) Ll.Ll,N,M 

IF (N .EQ. 466) WRITE (NOT, 466) L2,N,M 

IF (N .EQ. 468) WRITE (NOT, 468) L5,N,M 

IF (N .EQ. 470) WRITE (NOT, 470) L07,L07,N,M 
IF (N. EQ. 472) WRITE (NOT, 472) L5, L5, N, M 

IF (N .EQ. 474) WRITE (NOT, 474) L5,L5,N,M 

IF (N .EQ. 480) WRITE (NOT, 480) L 1 , N , M 

CO TO 500 

700 REWIND 1 
I IC = l 

WR I T E ( 6 , 704 ) I I C 
IIC = 2 

704 FORMAT (////, SOX,' SUBROUTINE', 15) 

706 REAO ( 1 , 1002,END = 707 ) ICARD,N,,M 
WRITE (6,708) ICARD.N.M 

IF ( ICARDI 2 ) .EQ. IEN .AND. I CARO ( 3 ) . EO . ID ) CO TO 709 
GO TO 706 

705 WR I TE ( 6 , 704 ) I IC 
I IC = I I C + l 

GO TO 706 

707 CONTINUE 
REWIND 1 
STOP 

101 FORMAT ( 20A4 ) 

102 FORMAT! 18A4, 18) 

103 FORMAT ( 1X,A4,68X , I 8) 

104 FORMA T ( 1 X , 1 8A4, 18) 

105 FORMAT ( ' 1 ' ) 

106 FORMAT! A4,68X, 18) 

107 FORMAT (80X,12A4) 

108 FORMAT (1615) 

109 FORMAT ( 15 ) 

END 
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B. Support Programs for the DISCOS Flexible-Body Capability 

The flexible-body option available in the DISCOS program requires that the user obtain 
mode-dependent parameters. For most applications, these parameters will be computed 
from lumped parameter data obtained by the standard in-house finite-element program. 
Although NASTRAN is the standard Goddard Space Flight Center (GSFC), National 
Aeronautics and Space Administration (NASA), program, other installations make use of 
other programs. Therefore, the following two programs, submitted as a guide for the 
interested user, can either be used directly or be extensively modified to suit the situation 
at the particular computer installation at which DISCOS will be applied. 

The first program is actually the NASTRAN Executive Control Deck for a specially written 
DMAP program. This DMAP program will output all lumped parameter data that are neces- 
sary for generating the required DISCOS input data. The N-BOD2 program referred to in 
the DMAP listing is another flexible-body program used at GSFC. It requires similar data 
but in a completely different format. 

This DMAP program is operational on the Macneal-Schwendler version 38 of NASTRAN and 
the Level 15.5 NASA version with one small change in the functional module, GP4. (Built- 
in NASTRAN error messages will point out the change.) 

The DMAP program was written so that, in addition to modes and frequencies (real), 
NASTRAN could be forced to output modal mass, stiffness, and damping matrices. Several 
print and punch options were also built in so that the user could see more clearly some of 
the resultant mass stiffness and damping matrices internally generated by NASTRAN. For 
a detailed description of the DMAP program, the interested user is referred to a NASTRAN 
Level 1 5 User’s Manual* and Programmer’s Manual.f It is basically a combination of rigid 
formats 3, 9, and 12. 

ID FRISCH, DISCOS N-B0D2 NASTRAN 

D I AG 14 
TIME 6000 
APP DMAP 

BEGIN DISCOS AND N-R0D2 DATA VIA NASTRAN S 
FILE S 

GP1 GE0M1,GE0M2,/GPL,E0EXIN,GPDT,CSTM,BGPDT,SIL/V,M,LUSET/ C,N, 123/ 
V, N , NOGPDT $ 

SAVE LUSET, NOGPDT * 

CHKPNT GPL,EOEXIN,GPDT,CSTM,BGPDT,SIL $ 

PARAM //C»N,N0P/V,Y*PRTGD=1 * 

COND LBL10, PRTGD * 

TABPT GPL,EQEXIN,GPDT,RGPDT,SIl// 5 
TABPRT GPL//C,N,GPL * 

TABPRT GPOT//C,N,GPDT $ 

TABPRT 8GPDT//C»N,BGPDT S 
LABEL LBL10 S 


♦Calab W. McCormick, The NASTRAN User’s Manual, NASA SP-222, September 1970. 
f Frank J. Douglas, The NASTRAN Programmer’s Manual, NASA SP-223, September 1970. 
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PURGE USET,GM,GO,KAA,BAA,MAA,KAAA,PST,KFS,OP,EST/NOGPDT $ 

CHKPNT USET , GM,GO,KAA,RAA,MAA,KAAA,PST , KF S *QP • EST £ 

GP2 GEOM2,EOEXIN/ECT £ 

CHKPNT ECT £ 

T A 1 , , ECT , E PT , RGPDT , S IL , , CSTM/EST , , GE I , ECPT , GPCT/V,N , LUSET/ C,N, 

1 23/ V , N , NOS IMP/C, N,0/V,N,NOGENL/V»N*GEN EL £ 

SAVE NOGENL ,NOS IMP,GENEL £ 

CHKPNT EST, GE1 , ECPT, GPCT * 

PURGE KAGG, GPST, OGPST, MGG, BGG, K4NN, KAFF , K4A A , MNN , MFF , MAA , BNN, BFF , 
BAA,KGGX/NOS IMP/ OGPST/GENEL $ 

CHKPNT K4GG, GPST , OGPST , MGG , BGG , K ANN »KAFF,KAAA»MNN,MFF,MAA* BNN , BFF , 

baa , kggx s 

SMA 1 CSTM, MPT, ECPT, GPCT, D I T /KGGX , KAGG , GPST /V , N , NOGENL / V,N,NOKAGG$ 

SAVE NDKAGG S 

CHKPNT KGGX, KAGG, GPST S 

PARAM //C,N,NOP/V,Y,PRTKG=-l S 

CONO LBL1A,PRTKG S 

MAT PRN KGGX,,,,// $ 

LABEL LBL1A $ 

PURGE KANN ,KAGG»KAFF,KAAA/NOKAGG $ 

CHKPNT KANN, KAGG, KAFF,KAAA £ 

SMA2 CSTM, MPT ,ECPT ,GPCT ,DIT /MGG, BGG/V ,Y,WTMASS=1.0/V,N, NOMGG / V,N, 
NOBGG/V, Y,COUPMASS=-l £ 

SAVE NOMGG, NOBGG £ 

CHKPNT MGG, BGG £ 

PARAM //C,N,NOP/V,Y,PRTMG=-l £ 

CONO L BL 1 1 , PRTMG £ 

MATPRN MGG,,,,// £ 

LABEL LBL11 £ 

PARAM //C,N,NOP/V,Y, PRTMGD= 1 £ 

COND LBL 15 , PRTMGO £ 

DIAGONAL MGG/MMG/C ,Y,OPT =COLUMN/V,Y,POWER = l. £ 

MATPRN MMG, , , , / / £ 

LABEL LBL15 £ 

PURGE BNN,BFF,BAA,BGG/NOBGG £ 

CHKPNT BNN, BFF, BAA, BGG £ 

CONO LBL1,GRDPNT £ 

GPWG BGPDT,CSTM,EOEXIN,MGG/OGPWG/V,Y,GRDPNT=-l/V,Y,WTMASS £ 

CHKPNT OGPWG £ 

OFP OGPWG, ,,, ,//V,N,CARDNO £ 

SAVE CARDNO £ 

LABEL LBL1 £ 

PARAM //C,N,MPY/V,N,NSKIP/C,N,0/C,N,0 £ 

GPA CASECC,GEOMA,EOEXIN,SlL,GPOT,BGPDT,CSTM/RG, ,USET, /V,N, LUSET/ 

V,N,MPCFl/V,N,MPCF2/V,N,SINGLE/V,N,OMIT/V,N,REACT/V,N,NSKIP/ 
V,N,REPEAT/V,N,NOSET/V,N,NOL/V,N,NOA/C,N,0 £ 

SAVE MPCF1, SINGLE, OMIT, NOSET, RE ACT, M PC F2,NSKIP, REPEAT, NO L,NOA £ 

CHKPNT RG,USET £ 

PURGE GM,GMD/MPCF1/GO,KOOB,LOO,UOO,MOOB,MOAB,GOD/OMIT/KFS,PST,OP/ 
SINGLE £ 

CHKPNT GM , GMD, GO, KOOB ,LOO,UOO,MOOB*MOAB»GOD,KFS,PST,OP £ 

EOUIV KGGX ,KNN/MPCF1/MGG,MNN/MPCF1/ BGG, BNN/MPCF 1 /KAGG, KANN/MPCF 1 £ 
CHKPNT KNN,MNN, BNN, KANN, OGPST £ 

GPSP GPL, GPST, USET, SIL/OGPST £ 

OFP OGPST, ,,,,//V,N,CARONO £ 

SAVE CARDNO £ 

COND LBL2,MPCF1 £ 

MCE1 USET *RG/GM £ 

MCE2 USET, GM, KGGX, MGG, BGG, KAGG/KNN,MNN, BNN, KANN £ 
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CHKPNT GM,KNN,MNN,BNN,K4NN t 
LABEL LBL2 t 

ECU IV KNN, KFF/S INGLE/MNN,MFF/S INGLE /BNN, BFF /SINGLE/K ANN, KAFF/ SINGLE $ 
CHKPNT KFF,MFF,BFF,KAFF $ 

COND LBL3, SINGLE t 

SCE 1 USET, KNN, MNN, BNN ,K4NN/KFF,KFS* *MFF * BFF * KAFF $ 

LABEL LBL3 $ 

EOUIV KFF , KAA/OM IT/ MFF , M A A /OM I T /B F F , B A A / OM I T / KAF F , KA A A /OM I T $ 

CHKPNT KAA,MAA,BAA,KAAA $ 

COND LBL20,0MIT $ 

SMP1 USET, KFF,, BFF ,KAFF/GO ,KAA ,KOOB , LOO, UOO , , , , BA A , KAAA $ 

CHKPNT GO, KAA , KOOB , LOO, UOO, BAA, KAAA S 
SMP2 USET , GO,MFF/MAA $ 

CHKPNT MAA t 
LABFL LflL 20 S 

PURGE KRR, KLR, DM, MLR, MR/RE ACT/CM/MPCF 1 /GO/OM IT/KFS/SI NGL E /OG/NQS ET S 
CONO LBL21, REACT $ 

RBMG1 USET, KAA, MA A/KLL , KLR , KRR , MLL * MLR, MRR $ 

CHKPNT KLL, KLR, KRR, MLL , MLR, MRR S 
RBMG2 KLL/LLL»ULL * 

CHKPNT ULL , LLL $ 

RBMG3 LLL,ULL,KLR,KRR/OM $ 

CHKPNT DM $ 

RBMGA DM,MLL,MLR,MRR/MR S 
CHKPNT MR * 

LABEL LBL21 S 

OPO DYNAMICS, GPL»SIL»USET/GPLD»SILD,USETD»»»,, , , E ED , EODYN/V , N , 

LUSET/V,N,LUSETD/V,N,NOTFL/V,N,NODLT/V,N,NOPSDL/V,N,NOFRL/V,N, 
NOMLFT/V,N,N0TRL/V,N,N0EED/C,N, 123/V,N,NOUE $ 

SAVE NOEED , NOUE i> 

CHKPNT GPLD,SILD,USETD,EED,EODYN i 
CONO ERR02, NOEED 

READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHI A, MI ,0E1GS/C,N, MODES/ V, 

N, NE I GV i 
SAVE NEIGVS 

CHKPNT LAMA,PHIA,MI,OEIGS S 
ADO MI ,/OI/C,N, ( 1. -10, 0.0) S 
OFP LAMA,OE IGS, , , , //V,N,CARDNO S 
CONO FINIS, NEIGV $ 

SDR I USET, , PH I A , , ,G0, GM , , KFS , , /PHIG, ,OG/C , N, I /C ,N, RE I G S 

CHKPNT PHIG,OG i 

PARAM / /C , N , NOP/ V , Y»PRTM0=1 $ 

CONO LBL 1 2 , PRTMD % 

MAT PRN PHIG,,,,// * 

LABEL LBL 1 2 S> 

SDR 2 CASECC,CSTM»MPT,DIT*EOEXIN,SIL,,»BGPDT , L AMA ,QG, PHIG,EST, /,00G1, 

0PHIG,0ES1,0EF1 ,PPH I G/C , N , RE IG S 
CHKPNT 00G1 ,0PHIG,0ES1,0EF1,PPHIG $ 

OFP OPHI G ,00G1 ,0EF1,0ES1,,//V,N,CARDN0 S 

SAVE CARDNO S 

EOUIV GO, GOD /NOUE /GM , GMD/NOUE S 
CHKPNT GOD, GMD $ 

MTRXIN CASECC,MATPOOL,EQDYN, , /K2PP , M2PP , B2PP / V , N , LUSE TD/V , N , N0K2PP/ V , 
N,NOM2PP/V,N,NOB2PP i 
SAVE N0K2PP»N0M2PP ,N0B2PP Jn 
CHKPNT K2PP,M2PP,B2PP $ 

PARAM //C,N,AND/V,N,KDEKA/V,N, NOUE /V,N»N0K2PP S 
PARAM //C,N,AND/V,N,MDEMA/V,N,N0UE/V,N,N0M2PP i 
PARAM //C,N,AN0/V,N,KDEK2/V,N,N0GENL/V,N,N0SIMP S 
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PURGE K2DD/N0K2PP/M20D/N0M2PP/B200/N0B2PP £ 

EOUIV M2PP,M2DD/NOA/B2PP,B2DO/NOA/K2PP , K 2DD/NOA/M A A , MDD/ MDEMA / KAO, 
KDO/KOEKA 

GK AD USETD,GM,GO*KAA,BAA,MAA,K4AA,K2PP*M2PP»B2PP/KDD, RDD,MDD,GMD, 

GOO, K2DO, K2DO, B200/C, N, T R ANRE SP /C, N, 0 I SP/C,N, DIRECT /C, Y,G=0.0/ 
C, Y,W3=0.0/C , Y,W4=0.0/V , N , NOK2PP /V * N , NOM2PP /V , N,NOB2PP/ V,N, 
MPCF1/V,N,SINGLE/V,N,0MIT/V,N,N0UE/V,N,N0K4GG/V,N,N0BGG/ V,N, 
KDEK2/C , N 1 $ 

CHKPNT M2 DO, B2DD, K2DD ,MDD , KDD , BDO»GMD , GOD £ 

GKAM USETD»PHIA»OI, LAMA, DIT, MOD, BDD,KDD*CASECC/MHH, BHH, KHH, 

PHIDH/V*N,NOUE/C,Y,LMODES=0/C, Y,LFRE0=0.0/ C , Y , HER E0=0 .0 /C , N, 
1/C, N,1/C*N,1/V,N,N0NCPU/V,N,F MODE £ 

CHKPNT MHH, 8HH, KHH, PH I OH $ 

PARAM //C»N,N0P/V»Y,PRTMM=1 $ 

COND LBL13, PRTMM £ 

MAT PRN KHH , BHH , MHH »PHIDH,// $ 

LABEL LBL13 $* 

PARAM //C,N,N0P/V,Y,PCHGD=-1 £ 

CONO LBL6, PCHGO $ 

TABPCH GPL , BGPDT ,,,//C,N,GP/C,N,BG £ 

LABEL LBL6 $ 

PARAM //C,N,N0P/V*Y,PCHMG=-1 $ 

COND LBL7 , PCHMG £ 

0UTPUT3 MGG, »»,//C»N,0/C«Y,Nl =MMG $ 

LABEL LBL7 £ 

PARAM //C,N,NOP/V, Y,PCHMD=-1 $ 

COND LBL8 , PCHMD £ 

0UTPUT3 PHIG, , , ,//C,N,0/C,Y,Nl =PHG £ 

LABEL LBL8 $ 

PARAM //C,N,NOP/V, Y,PCHMM=-1 £ 

COND LBL9.PCHMM £ 

0UTPUT3 KHH, BHH, MHH, , / /C , N ,0 /C , Y ,N 1 =KKH/C , Y , N 2 = BBH /C , Y,N3=MMH £ 

LABEL LBL9 £ 

JUMP F IN I S£ 

LABEL ERR02 £ 

PRTPARM //C,N, -2/C, N, MODES £ 

LABEL FINIS £ 

END $ 

CEND 
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Because NASTRAN is extremely inflexible in permitting the user to control output data 
formatting, a preprocessor program must be available for reading the NASTRAN-generated 
data. The next program is designed to not only read the data but also to process the data 
and compute the input data required by both N-BOD2 and DISCOS in respectively accept- 
able format. 

For DISCOS users, the mode-dependent parameters are outputted on the line printer and on 
magnetic tape (data set 2) in a DISCOS-compatible format. 
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DISCOS, N-B0D2 PREPROCESSOR OF NASTRAN GENERATED DATA 
PURPOSE : 

1) READ ONE OR MORE NASTRAN GENERATED TAPES 

2 ) WRITE ONE INPUT TAPE FOR DISCOS PROGRAM 

CONTAINING FLEXIBLE BODY DATA FOR ALL 
FLEXIBLE BODIES IN SIMULATION 

3) COMPUTE RESULTANT MODE DEPENDENT PARAMETERS 

FOR GSFC MULTI-FLEXIBLE RODY PROGRAM 
N-BOD2 , THIS SECTION OF NO INTEREST TO 
DISCOS USERS 


DEFINITIONS: 

DATA SET 1 = SCRATCH FILE USED TO PROCESS NASTRAN DATA 

DATA SET 2 = DISCOS INPUT TAPE (THE OUTPUT TAPE OF THIS PROGRAM) 
THE CARD OUTPUT OF THIS PROGRAM ASSUMES THAT DATA SET 14 IN 
DISCOS WILL BE RESERVED FOR THE FLEXIBLE BODY DATA 


DATA SET 3 


SCRATCH FILE USED TO REDUCE CORE REQUIREMENTS 


DATA SET 11 = LOCATION IN SYSTEM OF NASTRAN TAPE ASSOCIATED WITH 
THE FLEXIBLE BODY IN DISCOS HAVING LOWEST MAGNITUDE 
INTEGER LABEL 


DATA SET 12 


LOCATION IN SYSTEM OF NASTRAN TAPE ASSOCIATED WITH 
THE NEXT FLEXIBLE BODY IN THE DISCOS MODEL 


ETC. 


PROGRAM DIMENSIONED FOR A MAXIMUM OF 6 NASTRAN TAPES 


IMPLICIT REAL*ft (A-H,0-Z) 

DATA IDL/1H$/ 

DATA ISTR, IBLK/1H*, 1H / 

DATA IGPL, IBGP, IMGG /4HGPL »4HBGPD,4HMGG / 
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DATA ID, IT, I I/1HO, 1HT, 1HI/ 
DATA IR, IE, IS/1HR.1HE.1HS/ 


INTEGER I N PT ( 80 ) , IGRID(500), IA(20), IB(20>, 

* I COT ( 5 ) , I V ( 4 ) 

INTEGER MSAVEI 100) ,MSTOTL , H I NGE 

C 

REALMS X ( 500 ) , Y(500), Z ( 500 ) ♦ 

* INERTA(ft,ft,500) , PH I ( 6 , 500 , 1 2 ) ♦ 

* KHH (12,12), BHH (12,12), 

* MHH (12,12), XX ( 4 ) , X Y ( 4 ) 

C 

REAL*8 AMD( 500, 72 ) 

C 

COMMON /WORK/ AMO 
C 

EQUIVALENCE ( AMD! 1,1 ) ,PHI (1,1,1)) 

EQUIVALENCE ( AMD 1 1 , 1) , X ( 1 ) ) 

EQUIVALENCE ( AMD ( 1 , 2 ) , Y ( 1 ) ) 

EQUIVALENCE ( AMD ( 1 , 3 ) , Z ( 1 ) ) 

EQUIVALENCE (AMD(1,4),INERTA(1,1,1)> 

C 

LOGICAL LECHO,LPUNCH,LCHECK,LNAST 
LOGICAL LRSTRT 


100 FORMAT ( I5,3L5,2I5,L5) 

101 FORMAT ( 4A4 , 7 1 8 , 2 A4 ) 

102 FORMAT (2A4,8I8) 

103 FORMAT ( 4A4 , 5 I 8 , E 1 6 , 9 ) 

104 FORMAT ( 2 A4, 2E 16 . 9, 1 1 6 , E 1 A . 9 ) 

105 FORMAT (2A4,2E16.9) 

106 FORMAT (110) 

108 FORMAT ( 4A4 , I 8 , 2 1 1 6 , E 1 ft . 8 ) 

109 FORMAT (10E13.5) 

110 FORMAT (6E15.5) 

111 FORMAT (1215) 

112 FORMAT ( • 1 • , I5,3L5,2I5,L5 ) 

113 FORMAT (IX, 2015) 

114 FORMAT (' 1 ' ,5X , ' ****** MODAL DATA SELECTED FROM NASTRAN INPUT TAP 
*E ' » 14* • FOR PROCESSING **4*4**,//) 

115 FORMAT ( 12X, 'MODE' , 14, ' LISTED BELOW IS MODE', 14,' ON THE NASTRAN 
♦DATA TAPE') 

200 FORMAT (• NJOINT = • , 1 5 , • NUMBER OF GRID POINT LOCATIONS TO BE READ 

* = ' , I 5, ' THESE SHOULD BE EQUAL') 

201 FORMAT ( ' NUMBER GRID POINT X-LOCATION Y-LOCATION 

♦ Z-LOCAT I ON ' ) 

202 FORMAT { 6X, I 5 , 7X . I 5 , 2X ,3E 15. 5 ) 

300 FORMAT (80A1) 

302 FORMAT ( 4A4 , I 8 , 2 1 1 ft , E 1 6.8 , 2 A4 ) 

303 FORMAT ( 2A4, 4E 1 6. 8 , 2 A4 ) 

400 FORMAT (2X,80A1> 

500 FORMAT (• ANOMOLOUS EOF MARK ON TAPE, LISTING FOLLOWS ') 

501 FORMAT (/,' INTERNAL GRID POINT ',15,' EXTERNAL GRID POINT', 15,' I 
*N THE NASTRAN BULK DATA DECK') 

502 FORMAT (• X,Y,Z COORDINATES') 

503 FORMAT (6E20.10) 

504 FORMAT (' LUMPEO INERTIA MATRIX') 

505 FORMAT (• PHI (6 MODAL COMPONENTS FOR EACH SELECTED MODE)') 
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506 FORMAT ( // , • KHH • ) 

507 FORMAT (• 1 '♦ 5X, ' ****** LUMPED PARAMETER AND MODAL DATA TO BE PROCE 
*S SED FOR OISCOS AND N-B0D2 INPUT DATA ******•,///) 

508 FORMAT <//,' BHH •) 

509 FORMAT ( // , • MHH ' ) 

510 FORMAT (/////) 

511 FORMAT ( 2X , 'EXIT DECODE • ,4 ( I 8 , E 16 . 8 I) 

512 FORMAT ( 2X t ' ENTER DECODE ' , 2 I 8 , 4E 1 6. 8 > 

600 FORMAT ( I5.3E20.8 ) 


READ TWO INPUT CARDS PER NASTRAN TAPE 
NT APE = DATA SET WHERE TAPE IS TO 
BE FOUND NTAPE=11»12, ... 

LECHO = .TRUE. PRINT ECHO OF PROCESSED DATA 

= .FALSE. PRINT ONLY IF ERROR FOUND ON TAPE 
L PUNCH = .TRUE. PUNCH PLOT DATA 
= .FALSE. DON'T 

LCHECK = .TRUE. PRINT DATA IN/OUT OF DECODE 
= .FALSE. DON'T 

HINGE = GRID POINT NUMRER OF HINGE POINT AS 
DEFINED BY USER IN NASTRAN BULK DATA 
MSTOTL = TOTAL NUMBER OF FLEXIBLE BODY MODES TO 
PROCESS FOR DISCOS AND N-B0D2 DATA 
LNAST = .TRUE. PRINT NASTRAN DATA INPUT 
.FALSE. DON'T 
MSAVE = MODE SAVE ARRAY 

MSAVE(K) = 0 SKIP MODE K DATA 

K PROCESS MODE K DATA 

REWIND 2 
1 CONTINUE 

READ! 5, 100,END=4) NT APE , L ECHO , L PUNCH , LCHECK , H I NGE . MSTOT L , L NA ST 
WRITE (6, 112) NT A PE, L ECHO, L PUNCH, LCHECK, HINGE. MSTOTL. LNAST 

READ (5, 1 11 ) ( I A (I) , 1 = 1 .MSTOTL ) 

DO 11 1=1,100 

11 MSAVE ( I ) = 0 
DO 12 1=1, MSTOTL 

12 MSAVE ( I A ( IT) = I 
WR I TE { 6, 1 1 3 ) MSAVE 
REWIND NTAPE 

LRSTRT = .FALSE. NO RESTART CARDS ON NTAPE 
= .TRUE. R ST ART CAROS ON NTAPE 

ICNTRS = 0 
LRSTRT = .FALSE. 

9 READ (NTAPE, 300, END=H ) INPT 
I F ( LNAST ) W R I T E ( 6 ,400 ) INPT 
C CHECK FOR RESTART CARDS 

I F ( IR.NE. INPT ( 1 )) GO TO 9 
I F ( IE.NE. I NPT ( 2 ) ) GO TO 9 
I F ( IS «NE . INPT ( 3 ) ) GO TO 9 
I F ( IT. NE. INPT (A) ) GO TO 9 

C COME HERE FOR RESTART CARDS, COUNT THEM AND SET FLAG 

LRSTRT = .TRUE. 

ICNTRS = ICNTRS+1 

13 READ (NTAPE, 300, END=8 ) INPT 
IF(LNAST) WR I TE ( 6 ,400 ) INPT 

I F ( ID.EQ. INPT( 1 ). AND. IT.EO. INPT (2 ) .AND. I I .EO. 1NPTI 3) ) GO TO 9 
ICNTRS = ICNTRS+1 
GO TO 13 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 


fl CONTINUE 
REWINO NT APE 
REWIND 1 
REWIND 3 
I CNT = 0 
IBLK = 0 
DO 7 1=1,5 
7 ICOT ( I ) = 0 

READ ALL OTI CARDS FROM NASTKAN TAPE NTAPE TO OBTAIN 

1) GRID POINT NUMBERING SEOUENCE SET UP BY NASTRAN 

2) GRID POINT LOCATIONS 

note **** 

NASTRAN WILL RENUMBER GRID POINTS DEFINED BY USER 

INTO A SEOUENCIAL SET, THIS IS USED FOR INTERNAL NASTRAN 

COMPUTATION AND WILL BE USED BY DISCOS 

SKIP RESTART CARDS IN FRONT OF GOOD DATA 
I F ( .NOT.LRSTRT ) GO TO 2 
DO 14 1=1,1 CNTRS 
14 READ (NTAPE,300,END=3) INPT 

2 READ (NTAPE, 101,END=3 ) ( I A <I) , I =1 , 4 ) , ( I B II) , I = 1 , 7 ) , ( I A ( I ) , I =5 , 6 ) 

CHECK .FOR TABLE HEADING 
IF< I A ( 3 ) . EO. IGPL) GO TO 50 
I F ( I A ( 3 ) .EO. IBGP) GO TO 60 
IF( I A I 3 > . EO. IMGG) GO TO 70 
GO TO 2 

ERROR ON TAPE 

3 CONTINUE 

WR I TE ( 6 , 500 ) 

6 REWIND NTAPE 

5 READ (NTAPE, 300, EN0=4» INPT 
WR I TE ( 6,400 ) INPT 
GO TO 5 

4 STOP 


COME HERE TO PROCESS GPL TABLE DATA 

50 CONTINUE 
ICNT = I CNT ♦ 1 
I F ( 1CNT.NE.1 ) GO TO 51 
NJOINT = I B ( 2 ) 

C NJOINT = NUMBER OF GRID POINTS IN MODEL 

GO TO 2 

51 I F ( ICNT.NE.2IG0 TO 52 
DO 53 J* 1 , 6 

53 IGRID(J) * I B ( J + l ) 

NC - (NJ0INT-6I/8 
DO 54 J=1 ,NC 

JJ = 7 ♦ 8*( J-l ) 

JJ7 = JJ-t-7 

54 READ! NTAPE, 102) ( IA( I ), 1=1,2), ( IGRID< I ),I=JJ,JJ7) 

JJ * 6 ♦ 8*NC 

JJ1 * JJ+1 

IFIJJ.EO. NJOINT) GO TO 2 

READ< NTAPE, 102) ( I A ( I ) , I = 1 , 2 ) , ( I GR I D ( I ), I =JJ1 .NJOINT > 

GO TO 2 

C IGRID(I) =USER DEFINED GRID POINT NUMBER 
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WHICH NASTRAN HAS RELABLED TO 

HE INTERNAL NUMBER I 

5? ICNT = O 

NC = ( N JOINT-3 ) /4 
IF(NjnlNT.E0.4*NC+3) GO TO IB 
NC = NC + 1 
IB 00 15 1=1, NC 
15 READ ( NT A PE , 300 ) INPT 
GO TO 2 


COME HERE TO PROCESS BGPDT CARDS 

BO CONTINUE 

I F ( IR(2).E0. NJOINT) GO TO B1 
ERROR 

WR I T E ( B , 2 00 ) N JO I NT , I B ( 2 ) 

GO TO B 

61 READ ( NTA PE , 300 ) INPT 

READ ( NT APE , 103 ) ( I A < I ) , 1 = 1,4), ( I R ( I )»I=1,5)»X( 1) 

DO B? J=2,NJ0INT 

62 READ (NTAPE,104) ( I A ( I) , I = 1 , 2 ) , Y ( J- 1) , Z ( J- 1 ) , I B (1) , X ( J > 

J = NJOINT 

READ (NTAPE,105) ( I A ( I) , I = 1 , 2 ) , Y ( J ) , Z ( J ) 

GO TO 2 

SAVE LOCATION DATA, WRITE IT ON TAPE 3 AFTER INERTIA DATA 

X ( J ) = X-COORDINATE OF GRID POINT IGRID(J) 

Y ( J ) = Y-COORDINATE OF GRID POINT IGRID(J) 

Z<J) = Z-COORDINATE OF GRID POINT IGRID(J) 


COME HERE TO PROCESS ALL DMI CARDS 

STEP 1: 

COUNT CARDS IN EACH GROUP 
ASCERTAIN FORMAT OF EACH CARD 
REWRITE ON SCRATCH FILE ALL CARDS 
PRECEEDED BY THEIR FORMAT CODE 

STEP 2: 

REWIND SCRATCH FILE 

READ CARDS OFF SCRATCH FILE WITH KNOWN FORMAT 
LOAD ALL ARRAYS, SKIPPING ALL UNWANTED MODES 

70 CONTINUE 
REWIND 1 
I FORM = 301 
WRITE! 1,106) I FORM 

WRITE II, 101) (IA(IJ,I=1,A),(IB(I)»I=1,7)*(IA(1),I = 5,6) 

IBLK = 1 
1 COT I IBLK ) = 1 

I F( IBI 2) .NE .6. OR. IB ( 6) .NE . I B( 7 ) .OR. I B( 6) .NE.NJ0INT*6) GO TO 71 
DO 76 1=1, NJOINT 
DO 76 J 1 = 1 , 6 
DO 76 J2 = 1 , 6 
76 INERT A(J1,J2,I) =0.0 
GO TO 72 

71 CONTINUE 

C ERROR 

WRITE I 6, 101 ) ( I A ( I ) ,1 = 1,4) , I1RI I ), 1 = 1,7) , ( IA< I > , 1=5,6) 

GO TO 6 

72 READ(NTAPE,300,END=80) INPT 
IF( INPTIAI.NE. ISTR1 GO TO 73 
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ICOT(IBLK) = ICOT! IBLK) + 1 
I FORM = 302 
GO TO 74 

73 IF! INPT! 1 >.EQ. ISTR) GO TO 75 

END OF DATA BLOCK IBLK 
CHECK FOR 'END OF CHECKPOINT DICTIONARY* 

I F ( INPT<1).E0.IDL) GO TO 72 
IBLK = IBLK + 1 
ICOT(IBLK) = ICOT(IBLK) + 1 
I FORM = 301 
GO TO 74 

75 CALL INTERP! INPT, IFORM) 

I COT ( IBLK) = ICOT ( IBLK) + 1 

74 WR I TE ( 1 * 106 ) I FORM 
WRITE! It 300 ) I NPT 
GO TO 72 

80 END FILE 1 

ALL DMI CARDS READ, FORMAT DEDUCED AND 
REWRITTEN ON SCRATCH FILE 1 

FORMAT CODES: 

301 = FORMAT ( 4A4 , 71 fl» 2A4 I 

302 = FORMAT ( 4A4 , I 8 , 2 I IB , E 16. B , 2A4 ) 

303 = FORMAT ( 2 A4 , 4E 1 6. 8, 2 A4 ) 

304 * FORMAT ( 2 A4 , 3E 16. 8, I 16 , 2 A4 ) 

305 » FORMAT ( 2 A4 , 2E 1 6. 8, 1 16, E 1 6, B , 2 A4 ) 

306 = FORMAT ( 2 A4 , E 1 6 . B , I 1 6 , 2 E 1 6 . 8 , 2 A4 ) 

307 = FORMAT ( 2A4, E16. 8 , 1 16, E 16. 8, 1 16, 2 A4 ) 

308 = FORMAT { 2 A4 , 1 1 6 . 8 , 3 E 16 . 8 , 2 A4 ) 

309 = FORMAT ( 2 A4 , 1 1 6. 8 , 2E 1 6. 8, 1 16. 8, 2 A4 ) 

310 = FORMAT ( 2A4 , 1 1 6 , E 16 . 8 , I 16 , E 16. 8 , 2 A4 ) 


START TO PROCESS DMI CARDS 

REWIND 1 

IF! IBLK.LE.5 ) GO TO 20 

ERROR IBLK MUST BE LESS THAN OR EOIJAL TO 5 
81 REWIND 1 

83 READ ( 1 ,300,EN0 = 90) INPT 
WRITE! 6,400 ) INPT 
GO TO 83 
90 STOP 
20 CONTINUE 

DO 22 I BK= 1 , I BLK 
ICBLK = ICOT! IBK ) 

DO 21 JJ =1, ICBLK 
IF(JJ.NE.l) GO TO 23 

READ FIRST CARO OF DATA BLOCK 
READ (1,106) I FORM 

READ (1,101) ( I A ( I ) , 1=1 ,4) , ( IB! I ) , 1 = 1 ,7) , ( I A ( I ) , 1 = 5,6) 

IF! IBK.NE.l ) GO TO 40 

INERTIA MATRIX 

IF! IB(2).NE.6.0R. IB(6).NE. IB(7).0R.IB(6).NE.NJ0INT*6) GO TO 81 
SO FAR SO GOOD 
GO TO 21 

40 IF! IBK.NE.2) GO TO 41 

MODE SHAPES 

IF! I B ( 6 ) . NE. 6*N JO I N T ) GO TO 81 
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NMODES = IB ( 7 ) 

C 
C 

00 42 11=1,6 
00 42 12 = 1 ,N JO I NT 
00 42 13=1 »MST0Tl 

42 PH I ( 11,12,13) = 0.0 
GO TO 21 

MODAL MASS, STIFFNESS AND DAMPING MATRICES 
41 IF( IB(6).NE.IB<7). OR. IB(7).NE. NMODES) GO TO 71 
00 43 I 1=1,MST0TL 
DO 43 1 2*1 ,MSTOTL 
IF( IBK.NE.3) GO TO 44 
KHH ( 11,12) = 0.0 
GO TO 43 

44 I F ( IBK.NE.4) GO TO 45 
BHH ( 11,12) = 0.0 
GO TO 43 

45 MHH ( 11,12) = 0.0 

43 CONTINUE 
GO TO 21 

READ IN DATA CARDS 

23 CONTINUE 

READ (1,106) I FORM 
I F ( IF0RM.NE.302) GO TO 24 

READ (1,302) ( I A( I ) , 1 = 1 ,4) , IB< 1 ) ,NNR,NNC,XX( 1 ) , ( I A( I ) , 1 = 5,6 ) 

NSR = MSAVE(NNR) 

NSC = MSAVE(NNC) 

I F ( IBK.NE.l ) GO TO 25 
NIT = (NNC-11/6 + 1 
N2T = (NNR-1 ) / 6 + 1 
IFIN1T.E0.N2T ) GO TO 26 
C ERROR 

WRITE ( 6, 302 ) (IA(I),I = 1,4),IB(1 ) , NNR »NNC , XX ( 1),(1A(I),I=5,6) 
GO TO 81 

26 NT = NIT 

NC = MOD ( NNC-1 , 6 ) + 1 
NR = MOD ( NNR-1 , 6 ) + 1 
INERTA(NR f NC,NT ) = X X ( 1 ) 

GO TO 21 

25 I F ( IBK.NE.2 ), GO TO 27 
NT = (NNC-1 )/6 + 1 
NE = MOD ( NNC-1 , 6 ) + 1 
IF(NSR.EO.O) GO TO 21 
PHI (NE,NT,NSR) = X X ( 1 ) 

GO TO 21 

27 I F ( IBK.NE.3) GO TO 28 
IF(NSR.E0.0.0R.NSC.E0.0 ) GO TO 21 
KHH(NSR,NSC) = X X ( 1 ) 

GO TO 21 

28 I F ( IBK.NE.4) GO TO 29 
IF(NSR.EO.O.OR.NSC.EO.O ) GO TO 21 
BHH(NSR,NSC) = XX ( 1 > 

GO TO 21 

29 CONTINUE 

IF(NSR.EQ.O.OR.NSC.EO.O) GO TO 21 
MHH( NSR »NSC ) = XX ( 1 ) 

GO TO 21 


NMODES = NUMBER OF MOOES 

MSTOTL = NUMBER OF MODES TO PROCESS 
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c 


24 CONTINUE 


31 


32 


33 


34 


30 

21 


FORMAT 4E16.8 FOR XX WILL READ INTEGER I WHICH IS RIGHT 
JUSTIFIED AS I 4 1.0E-08 
THIS IS EASILY UNDONE IN DECODE 
READ (1,303) ( IA( I) , 1 = 1 ,2) , ( XX( I ) , 1 = 1 ,4) , ( I All) , 1 = 3,4) 


I F ( LCHECK ) WRITE (6,512) I FORM , NNC , ( XX ( I ) , I = 1 , 4 ) 
CALL DECODE ( I FORM , XX , NNC ,X Y , I Y , NY ) 

IF(LCHECK) WRITE (6,511) ( I Y ( I ) , X Y ( I ) , I = 1 , NY ) 

DO 30 1=1, NY 
I F ( IBK.NE.l ) GO TO 31 
NC = MOD ( I Y( I )-l ,6) + 1 
INERTA(NR,NC,NT) = X Y ( I ) 

GO TO 30 

I F ( IBK.NE.2) GO TO 32 
NT = ( I Y ( I )-l )/6 + 1 
NE = MOD ( IY< I )-l ,6) + 1 
IF(NSR.EO.O) GO TO 30 
PHI ( NE ,NT »NSR ) = X Y ( I ) 

GO TO 30 

I F ( IBK.NE.3) GO TO 33 
NSC = MSAVE ( I Y ( I ) ) 

IF(NSR.EO.O.OR.NSC.EO.O) GO TO 30 
KHH( NSR, NSC ) 4 XY( I) 


GO TO 30 

I F ( IBK.NE.4) GO TO 34 
NSC = MSA VE ( I Y ( I ) ) 
IF(NSR.EO.O.OR.NSC.EO.O ) GO TO 30 
BHH( NSR ,NSC ) = X Y ( I ) 

GO TO 30 
CONTINUE 

NSC = MSAVE ( I Y ( I ) ) 
IE(NSR.EQ.O.OR.NSC.EO.O) GO TO 30 
MHH( NSR , NSC ) = X Y ( I ) 

CONTINUE 

CONTINUE 


I F ( IBK.NE.l ) GO TO 63 
REWIND 3 

WRITE (3) ( ( ( INERT A( I , J , N ) ,1 = 1,6 ) »J=1»6) »N = 1,NJ0INT) 
WRITE (3) (X(N),Y(N),Z(N)»N=1,NJ0INT) 

I F ( .NOT.LPUNCH) GO TO 10 

WRITE (7,600) ( I GR ID ( N) ,X(N) ,Y(N) *,Z (N) , N = 1 , NJOI.NT ) 

10 CONTINUE 

WR ITE ( 6, 507 ) 

DO 64 N= 1 , N JO I NT 
WRITE (6,501) N , I GR I D ( N ) 

WRITE (6,502) 

WRITE (6,503) X ( N ) , Y ( N ) , Z ( N ) 

WRITE (6,504) 

WRITE (6,503) ( ( INERTAI I,J,N),J=1*6),I=1,6> 

64 CONTINUE 

WRITE (6,510) 

GO TO 22 

63 I F ( IBK.NE.2 ) GO TO 65 

WRITE (3) ( ( (PHI ( I ,N,J) , 1 = 1,6) ,J = 1 *MSTOTL ) *N=1,NJ0INT) 

I F ( . NOT.LPUNCH) GO TO 67 
DO 68 J=1,MST0TL 

WRITE (7,600) ( I GR ID(N)»(PHI ( I»N»J), 1=1,3), N=1,N JOINT) 
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68 CONTINUE 
67 CONTINUE 

WRITE (6,116) NT APE 
DO 17 1 = 1, NMOOE S 
IF(MSAVE( I ) . EO.O ) GO TO 17 
WRITE (6,115) MSAVE ( I ),I 
17 CONTINUE 

WRITE (6,510) 

DO 66 N=1 ,N JOINT 
WRITE (6,501) N, IGR ID (N ) 

WRITE (6,505) 

WRITE (6,503) ( < PH I < I , N , J ) , I = 1 , 6 > , J = 1 , MSTOTL ) 

66 CONTINUE 

WRITE (6,510) 

GO TO 22 

65 I F ( IBK.NE.3 ) GO TO 69 

WRITE (3) ( (KHH( I, J) ,1=1, MSTOTL ),J = 1, MSTOTL) 
WRITE (6,506) 

WRITE (6,503) ( ( KHH ( I ,J) ,J=1, MSTOTL ) ♦ 1=1, MSTOTL ) 
WRITE (6,510) 

GO TO 22 

69 IF( IBK.NE.6 ) GO TO 77 

WRITE (3) ( (BHH( I, J), 1=1, MSTOTL), J=l, MSTOTL) 
WRITE (6,508) 

WRITE (6,503) (( BHH ( I , J ), J=1 , MSTOTL ), I =1 , MSTOTL ) 
WRITE (6,510) 

GO TO 22 

77 IF( IBK.NE.5) GO TO 22 

WRITE (3) ( (MHH( I, J) ,1=1, MSTOTL ),J=1* MSTOTL) 
WRITE (6,509) 

WRITE (6,503) ( ( MHH ( I , J ) , J* 1 , MSTOTL ) , I = 1 , MSTOTL ) 
WRITE (6,510) 

22 CONTINUE 


DATA READY FOR DISCOS PROCESSING 
CALL DISCOS< I GR I'D, N JO I NT, MSTOTL, I TAPE, L ECHO) 

CALL NB0D2 ( IGR ID, N JOINT , MSTOTL , ITAPE , LECHO,H I NGE ) 

I F ( ITAPE. LE. 6) GO TO 1 

STOP 

END 


SUBROUTINE DISCOS) I GR I 0 , N J , NM , I CNT , LECHO ) 

IMPLICIT REAL*8 <A-H,0-ZJ 
C 

LOGICAL LECHO 
C 

REAL*8 X( 500) ,Y( 500) ,Z(500),INERTA(6,6,500), IRUNNO 
REAL*R PH I ( 6, 500, 12), KHH ( 12,12) ,RHH< 12,12) ,L0C(6) 

REAL*8 AMS( 6) , JMASS( 500, 1 ) , J INER ( 500, 6 ) , A I N ( 6 ) , SMM( 6) 

REAL *8 SMSM(50O,3),LOCA(5OO,3),MOD(6,6),AMD(5OO,13),KH(6) ,BHI6) 

REA L*8 AMP( 500,72 ) 

COMMON /WORK/ AMP 
EQUIVALENCE ( AMP ( 1 , 1 ) , X ( 1 ) ) 

EQUIVALENCE ( AMP ( 1 , 2 ) , Y ( 1 ) ) 

EQUIVALENCE ( AMP ( 1 , 3 ) , Z ( 1 ) ) 
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EQUIVALENCE ( AMP< 1,41 , INERT A (1,1,1)) 

EQUIVALENCE ( AMP ( 1 , 1 ) , PH I ( 1 , 1 , 1 ) ) 

C 

INTEGER IGR ID ( 500 ! 

C 

COMMON /W0RK2/ AMO 

EQUIVALENCE ( AMO ( 1 , 1 ) , JM ASS ( 1 , 1 ) ) , ( AMD ( 1 , 1 ) , J I NER ( 1 , 1 ) > 

EQUIVALENCE < AMD ( 1 ,7 ) , SMSM < 1 , 1 ) ) , ( AMO ( 1 , 10 ) , LOCA ( 1 , 1 ) ) 

EQUIVALENCE ( AMO ( 1 , 1 3 ) , KHH ( 1 , 1 ) ) , ( AMD ( 145 , 1 3 ) , BHH ( 1 , 1 ) ) 

C 

DATA IFST/O/ 

DATA AMS/6HJMASS1 , 6H JM A SS2 , 6H JMASS3 , 6H JM ASS4 , 6H JM ASS5 , 

* 6HJMASS6/ 

DATA FLX/6HFLXDAT / 

DATA A IN/6HI NERT 1 » 6H I NERT2 »6H I NERT3 * 6H INERT4 , 6H I NER T5 * 

* 6HINERTA/ 

DATA SMM/6HSTMSM1 ,6HSTMSM2, AHSTMSM3, AHSTSMS4, AHSTMSM5, 

* 6HSTMSM6/ 

DATA L0C/6HL0CAT1 , 6HL0CAT2 , 6HL0CAT 3 , 6HL0C AT4 , 6HL0C AT5 , 

* 6HL0C AT A/ 


DATA 

M0D/6HXDIS1 

, 6H YD I SI 

, 6HZD I S 1 

, 6HTHA1 1 

, 6HTH A2 1 

, 6HTH A3 1 


♦ 

6HXDIS2 

, 6HYD I S2 

,6HZD I S2 

, 6HTH A 1 2 

, 6HTHA22 

, 6HTHA32 

♦ 

♦ 

6HXDIS3 

, 6H YD I S3 

,6HZDI S3 

, 6HTHA 1 3 

*6HTHA23 

♦6HTHA33 

♦ 

* 

6HXDIS4 

, 6HYD I S4 

♦6HZDIS4 

, 6HTHA 14 

, 6HTHA24 

, 6HTHA34 

♦ 

* 

6HXDIS5 

, 6H YO I S 5 

,6HZDIS5 

, 6HTH A 1 5 

, 6HTH A25 

, 6HTH A35 

* 

* 

6HXD IS6 

, 6HYD I S6 

, AHZD I S6 

, 6HTH A 16 

, 6HTHA26 

, 6HTHA36 

/ 

DATA 

KH/6HKHH1 

, 6HKHH2 

, 6HKHH3 

, 6HKHH4 

, 6HKHH5 

» 6HKHH6 

/ 

DATA 

BH/6HBHH 1 

, 6HBHH2 

, 6HBHH3 

, 6HBHH4 

, 6HBHH5 

, 6HBHH6 

/ 


DATA IRUNN0/6HPREPRS/ 

C 

700 FORMAT (A6, ' 0 14PREPRS •) 

C 

C INITIALIZE TAPE, START COUNTER 

REWIND 3 

I F ( IFST.NE.O) GO TO 1 
CALL INTAPE ( 2, FLX ) 

ICNT = 0 
I FST = 1 

1 CONTINUE 
ICNT = ICNT+1 

PROCESS MASS MATRIX DATA 

READ (3) ((( INERTA(I,J,N),I=1,6),J=1,6),N=1,NJ) 

READ (3) (X(N),Y(N),Z(N),N=1,NJ) 

00 2 1*1, NJ 

IF! INERTA(1,1, I) .NE.INERTA(2,2, I ) > GO TO 3 
IF( INERTA(2,2, I )*NE*INERTA(3,3, I ) ) GO TO 3 
!F( INERT A 1 3, 3, I ) ,LT .0) GO TO 3 
JMASS! 1 1 1 ) * INERTA (3,3,1) 

GO TO 2 

3 WR I.TEI 6, 500 1 I , (INERTA ( 1 1 , 1 1 , I ) , 1 1 = 1 , 3 ) 

500 FORMAT (• ERROR MASS MATRIX POINT », 15,' JMASS =',3E20.10) 

JMASSI 1,1) * (INERTA(l,l,I)+INERTA(2,2,I)+INERTA(3,3,I M/3.0D0 

2 CONTINUE 

PUNCH READ MATRIX INPUT CARD 
PUT MASS MATRIX ON TAPE 
WRITE! 7,7001 AMS( ICNT) 

IF(LECMO) CALL WRITE! JMASS, NJ,1, AMS! ICNT) ,500) 

CALL WTAPE! JMASS, N J* 1 , AMS ( ICNT 1,500,2) 

C 
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C 


PROCESS INERTIA DYAD DATA 


DO 4 1*1, NJ 

JINERf 1,1 ) = IN6RTA(4,4, I ) 

J I NER ( I , 2 ) = I NERT A ( 5 , 5 , I ) 

JINERf 1,3) = INERT A ( 6 , 6 , I ) 

J INER (1,4) =- 1 NERT A ( 4, 5 , I ) 

JINERf 1,5) =- INERTA (4,6,1 ) 

4 JINERf I ,6) =- I NERT A ( 5, 4 , I ) 

WRITEf 7 , 700 ) AIN(ICNT) 

I F ( L ECHO ) CALL WR I T E ( J I NE R , N J , 6 , A I N ( I CNT ) , 500 ) 
CALL WTAPEf J INER, NJ,6, AIN ( I CNT 1,500,2) 

PROCESS STATIC MASS MOMENT DATA 
PROCESS JOINT LOCATION DATA 

DO 5 1=1, NJ 

SMSM ( I , 1 ) = INERTAf 2, ft, I ) 

SMSM (1,2) = -INERTAf 1 ,6, I ) 

SMSM ( I , 3 ) = INERTAf 1,5, I ) 

LOCAf 1,1) = X ( I > 

LOCAf I ,2) = Y ( I ) 

5 LOCAf 1,3) = Z ( I ) 

WRITE! 7 , 700 ) SMM(ICNT) 

IF(LECHO) CALL WRITEfSMSM , N J , 3 , SMM ( 1 CNT ) , 500 ) 
CALL WTAPE(SMSM,NJ,3,SMM( ICNT),500,2) 

WR I TE ( 7 , 700 ) LOC(ICNT) 

IF(LECHO) CALL WRITEfLOCA , N J , 3 , LOC ( I CNT ) , 500 ) 
CALL WTAPE(L0CA,NJ,3,L0C( I CNT), 500, 2) 

PROCESS MODAL DATA 

READ (3) ( ( (PHI ( I ,N,J) , 1=1 ,6 ) , J=1 ,NM> ,N=1 ,NJ ) 

DO 6 K = 1 , 6 
DO 7 1=1, NJ 
DO 7 M= 1 , NM 

7 AMD ( I , M ) = PHI (K, I ,M) 

WR I TE ( 7 , 700 ) MOD ( K , I CNT ) 

I F ( LECHO ) CALL WRITE* AMD ,N J ,NM , MOD ( K , ICNT) ,500) 
CALL WT APE ( AMD, NJ ,NM, MODI K, ICNT ), 500,2 ) 
ft CONTINUE 

MODAL MATRICES 

READ (3) ( (KHHf I ,J), 1=1, NM) , J= 1 , NM ) 

READ (3) ( (RHHf I , J ) , 1 = 1 ,NM ) , J=1 ,NM ) 

WR I TE ( 7, 700 ) KHf ICNT ) 

I F ( LECHO ) CALL WRITE (KHH ,NM ,NM , KH ( ICNT ), 12 ) 

CALL WTAPE(KHH,NM,NM,KH( ICNT ) ,12,2 ) 

WR I TE ( 7 , 700 ) BH ( ICNT) 

WR I TE ( 6, 100) 

I F ( LECHO ) CALL WR I TE ( BHH , NM , NM , BH ( I CNT ) , 1 2 ) 

CALL WTAPE ( BHH,NM,NM, BHf I CNT), 12, 2) 

CALL LTAPE ( 2 ) 

CALL RTAPEf IRUNNO,AMS< ICNT) , AMD , N J , 1 , 500, 1 2 , 2 ) 
CALL WRITE! AMO, NJ,1, A MSI I CNT), 500) 

CALL RTAPEf IRUNNO,AIN( ICNT ) , AMD, N J ,6 , 500, 1 2, 2 ) 
CALL WRITE(AMD,NJ»6,AIN( I CNT), 500) 

CALL RTAPEf IRUNNO,SMM( ICNT ) , AMD, N J , 3 , 500, 1 2 , 2 ) 
CALL WRITEf AMO, N J , 3 , SMM ( I CNT), 500) 

CALL RTAPEf IRUNNO,LOC< ICNT ) , AMD , N J , 3 , 500 , 1 2 , 2 ) 
CALL WRITEf AMD, NJ, 3, LOC < I CNT), 500) 

DO 8 K= 1 ,6 
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CALL RTAPE( IRUNNO,MOD(K, ICNT ) , AMD, NJ,NM, 500 ,12,2 ) 

8 CALL WRITE(AMD,NJ,NM,M0D(K, ICNT), 500) 

CALL RTAPE ( IRUNN0,KH( ICNT), KHH* NM»NM, 12*12*2) 

CALL WRITE(KHH,NM,NM,KH( ICNT), 12) 

CALL RTAPE ( IRUNN0,BH( ICNT) , BHH, NM , NM, 1 2 ♦ 12 , 2 ) 

CALL WR I TE ( BHH , NM , NM ,BH ( ICNT ) , 12 ) 

100 FORMAT ( 'l',5X, ******* PROCESSED LUMPED PARAMETER AND MODAL DATA N 
*0W ON DATA SET 2 (DISCOS INPUT TAPE) ****** • , /// ) 

RETURN 

END 


C 

C 

C 


C 


c 


c 


SUBROUTINE NB0D2 ( IGRID ,NJ ,NM , ICNT , LECHO,H INGE ) 

COMPUTE RESULTANT MODE DEPENDENT PARAMETERS FOR N-R0D2 
IMPLICIT REAL*8 <A-H,0-Z) 


LOGICAL LECHO 


COMMON /WORK/ AMP 
REAL*8 AMP( 500,72 ) 
COMMON /W0RK2/ AMD 
RE AL*8 AMD( 500, 13 ) 


RE AL*8 AMS(6),FLX,AIN(A) ,SMM( A) ,L0C(6) , MOD ( 6, 6 ) , KH ( 6 ) , BH( A ) 

RE AL*8 JMASS ( 500 ) , JLOC(3,5O0>, CML0C(3), J I NERT (3, 3, 500 ) , 

* PHIT ( 3, 500, 12 ) , PHI R ( 3 , 500 ,12), 

* F LOM ( 12 ) , ZET A ( 1 2 ) , BDINER(3,3), 

* FLA ( 3,12), FLB(3,12) , FLC(3,12>, 

* FL J ( 3 , 3 , 12 ) , 

* FCF( 3, 3,12,12), FCK( 3, 12, 12) , 

* T E M ( 3 ) , T EM 1 ( 3 , 3 ) , ADM ( 500 , 1 2 , 6 ) 

* K HH ( 12,12), BHH (12,12), I RUNNO 
INTEGER 1 GRID! 500) 

INTEGER HINGE, INTH 


SM0(3,500) , 
FLD(3,3, 12), 

, T FM ( 3 ) , 


DATA AMS / AH JM AS SI , AH JMAS S2 , AH JM AS S3 , AH JM ASS A , AH JMA SS 5 , 

* AHJMASSA/ 

DATA A IN/6HINEKT1 , AH I NER T2 » AH I NER T 3 , AH I NE R TA , AH I NFR T5 , 

‘ AHINERTA/ 

DATA SMM/AHSTMSM1 , AH STMSM2 , AHS TMSM3 , AHST SMS A , AH STM SM 5 , 

> AHSTMSMA/ 

DATA L0C/AHL0CAT1 , AHLOC AT2 , AHLOC AT 3 , AHLOC AT A , AHLOC AT 5 , 


$ 

DATA 

AHLOC AT A/ 

M0D/AHXDIS1 , AH YD I S 1 

, AHZ D I S 1 

, AHTHA1 1 

, AHTH A2 1 

, AH TH A3 1 

t 

* 

AHXDIS2 

, AHYD 1 S2 

, AH ZD I S2 

, AHTHA12 

, AHTHA 22 

, AHTHA32 

» 

>> 

AHXDIS3 

, AHYDI S3 

, AHZD I S 3 

, AHT HA 1 3 

, AHTHA23 

, AHTHA33 

t 

$ 

AHXDISA 

, AHYD I S A 

,AHZDI SA 

, AHTH A 1 A 

, AHTHA2A 

, AHTHA3A 

t 

* 

AHXDIS5 

, AHYDIS5 

, AHZDIS5 

, AHT HA 1 5 

, AHTH A2 5 

, AHTHA35 

♦ 

* 

AHXDISA 

, A HYD I SA 

,AHZDI SA 

, AHTHA 1 A 

, AHTH A 2 A 

, AHTHA3A 

/ 

DATA 

KH/AHKHH1 

, AHKHH2 

, AHKHH3 

, AHKHHA 

, AHKHH5 

, AHKHHA 

/ 

DATA 

BH/AHBHH1 

, AHBHH2 

, AHRHH3 

, AHBHHA 

, AHBHH5 

, AHBHHA 

/ 


DATA IRUNNO/AHPKEPRS/ 


EQUIVALENCE (AMP(1, 1 ) , PH I T ( 1 , 1 , 1 ) ) , ( AMP ( 1 , 37 ) , PH I R ( 1 , 1 , 1 ) ) , 

* ( AMP( 1 , 1 ) , ADM ( 1,1,1)), 

* ( AMP( 1, 13 ) , ADM( 1 ,1 ,2) ) , 
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* ( AMP<1,25) ,ADM< 1,1.31) , 

* (AMP(1,37),A0M(1,1,4) ), 

* ( AMPI 1 ,49) ,ADM< 1 ,1,5 > > , 

* (AMP(1,M ),ADM< 1,1, ft) ) 

EQUIVALENCE IAMDI1,1),JMASS<1) ), ( AMD( 1,2 I . JLOCI 1,1 )) , 

* { AMD( 1,5) ,SMOI 1, 1 ) ), < AMO< 1 ,5 ) , JINERK 1, 1, I ) ) 

FIND INTERNAL NASTRAN NUMBER ASSOCIATED 
WITH THE HINGE POINT (GRID POINT 'HINGE') 

DO 1 N=1,NJ 

IF( IGRID(N) .EO. HINGE ) GO TO 2 

1 CONTINUE 

WR ITE I 6 » 100 ) HINGE 
RETURN 

2 INTH = N 

INTH = INTERNAL NASTRAN NUMBER 
OF HINGE POINT 

GET DATA OFF OF TAPE 2 TO COMPUTE CENTER OF MASS 

CALL RTAPE ( IRUNNOtLOCI 1CNT ) *AMP»NJ*3t500*72»2) 

JLOC(ItN) = I-TH COORDINATE OF GRID POINT IGRID(N) 
VECTOR RELATIVE TO HINGE POINT HINGE 

DO 3 N=1 *NJ 
DO 3 1=1,3 

JLOC ( I , N ) = AMP ( N , I ) - AMP ( I NTH, I ) 

3 CONTINUE 

CALL RTAPE ( IRUNNO,AMS< I CNT ) , AMP , N J , 1 , 500 , 7 2 , 2 ) 

JMASS(N) = LUMPED MASS AT GRID POINT IGRID(N) 

DO 4 N= 1 , N J 
JMASS(N) = AMPIN, I) 

4 CONTINUE 

IF(.NOT.LECHO) GO TO 17 
WR ITE I 6, 101 ) 

WRITE (6, 102) (N, I GRIDIN ) ,N, ( JLOC( I ,N> , I = 1 , 3 ) ,N , JMASS ( N ) , N=1 , N J > 

17 CONTINUE 

COMPUTE CENTER OF MASS LOCATION 
TOTMAS = 0.0 
CML0CI1) = 0.0 
CML0CI2) = 0.0 
CML0CI3) =0.0 

READ GRID POINT INERTIA TENSORS AND MASS MOMENTS 

CALL RTAPE I IRUNNO,SMM< I CNT ) , AMP , N J , 3 , 500, 72 , 2 ) 

00 11 N=1 »NJ 

DO 11 1=1,3 

SMOI I , N ) = AMPIN, I ) 

IFISMOI I,N).EO.O.O) GO TO 11 
WRITE I 6, 107) IN, I SMOI I, N), 1 = 1 , 3)) 
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11 CONTINUE 

IF(LECHO) CALL WR ITE I SMO, 3 , N J , 6H SMO ,3) 

CALL RTAPE ( IRUNNO,AINI ICNT ) , AMP, N J , 6, 500, 72 , 2 ) 
00 10 N=1,NJ 

J! NERT ( 1 « 1 «N ) = AMPIN, 1) 

J INERT I 1 , 2 ,N ) = -AMPIN, 4) 

JINERTI 1 , 3,N) = -AMPIN, 5) 

J I NERT I 2 , 1 , N ) = -AMPIN, 4) 

JINERTI2,2,N) = AMPIN, 2) 

JINERTI 2,3, N) = -AMPIN, 6) 

JINERTI 3, 1,N) = -AMPIN, 5) 

JINERTI 3,2, N) = -AMPIN, 6) 

JINERT(3,3,N) = AMPIN, 31 
10 CONTINUE 

IFILECHO) CALL WR I TE I J I NERT , 9 ,NJ , 6H J I NERT , 9 ) 


COMPUTE UNDEFORMEO BODY INERTIA TENSOR 
RELATIVE TO BODY CENTER OF MASS 

DO 20 1=1,3 
DO 20 J= 1 , 3 
20 BDINERI I , J ) = 0.0 
DO 19 N= 1 , N J 

CALL VECSUBI JLOCI 1 ,N ) ,CMLOC,TEM) 

CALL SUEOP(TEM,TEM, JM A S S I N I , TEM 1 ) 

CALL DYADD(BDINER,TEM1 ,BDINER ) 

CALL DYADDIBD I NER, JINERTI 1,1, N),BDINER) 
19 CONTINUE 


READ IN MODE SHAPES AND RESORT THEM 
DO 6 1=1,6 

CALL RTAPE I I RUNNO , MODI I , I CNT ) , ADM I 1 , 1 , I ) , N J , NM , 500, 1? , 2 > 

6 CONTINUE 
REWIND 3 

WRITE 13) I I I ADMIN, M, I ) , 1 = 1,3 ) ,N=1,NJ ) ,M = 1,NM ) 

WRITE 13) I I ( AOMIN, M, I ) , 1=4,6) ,N= 1 ,N J > , M= 1 ,NM ) 

REWIND 3 

READ 13) I I (PHITI I ,N,M) ,I = 1,3),N = 1,NJ),M=1»NM) 

READ (3) ( I IPHIRI I,N,M),I=1,3)»N=1,NJ),M=1»NM) 

REWIND 3 

I F ( .NOT . LECHO ) GO TO 18 
WR I TE ( 6, 104 ) 

DO 7 M= 1 ,NM 
WRITE! 6, 105 ) 

WRITE I 6, 106) IN,M,IPHITII,N,M),I = 1,3), 

* N,M,(PHIR(I,N,M),I=1,3),N=1,NJ) 

7 CONTINUE 
18 CONTINUE 

WR ITE ( 6, 118) 
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WRITE)*, 103) 
WR ITE ( 6, 1 15 ) 
WRITE (*,119) 
WR I TE ( * , 120) 
WRITE!*, 121) 
WR I TE { * , 1 1 5 ) 
WRITE(*,122) 
WR ITE ( *, 1 15 ) 
WRITE (*,125) 
WRITE (*,115) 


TOTMAS 

(BDINERI 1 ,J) , J=l,3) 
( BD INER ( 2 , J ) , J= 1 , 3 ) 
( BO I NER ( 3 , J ) , J = 1 , 3 ) 

(CHLOC( I ) , 1 = 1,3) 

INTH, HINGE 


COMPUTE RESULTANT PARAMETERS 


DO B M = 1 , NM 
DO B 1=1,3 
FLA ( I , M ) = 0.0 
FLR ( I , M ) = 0.0 
FLC ( I , M ) = 0.0 
DO B J= 1 , 3 
FL J ( I , J , M ) = 0.0 
FLD ( I , J ,M ) = 0.0 
B CONTINUE 
DO 9 M= 1 , NM 
DO 9 MM= 1 , NM 
DO 9 1=1,3 
FCK ( I , M , MM ) = 0.0 
DO 9 J= 1 , 3 
FCF ( I, J,M,MM) = 0.0 
9 CONTINUE 


AMASS = 1 . O/TOTM A S 

DO 12 M= 1 , NM 
DO 13 J= 1 , N J 

CALL SCLV ( JMASS ( J ) , PHI T ( 1 , J ,M ) , TEM ) 

CALL VECADD(FLA(1,M),TEM,FLA(1,M) ) 

CALL VEC SUB ( J LOC ( I , J ) ,CMLOC , TEM ) 

CALL SUEOPI PHIT< 1 , J , M ) ,TEM , JMASS ( J ) , TEM 1 ) 

CALL DYADD( FLD( 1 , 1 , M ) ,TEM1,FLD( 1 , 1 , M ) ) 

CALL VECROSt JLOC( 1, J) ,PHIT( 1, J,M) ,TEM) 

CALL SCLV( JMASS! J) , TEM, TEM) 

CALL VECADD(FLB(1,M),TEM,FLB(1,M) ) 

I F ( J INERT! 1, 1 , J) .EQ.O.O. AND. 

* JINEPT(2, 2, J) .EQ.O.O. AND. 

* JINERT(3, 3, J) .EQ.O.O ) GO TO 13 

CALL DYDOTV! J INERT ( 1 , 1 , J ) , PH I R ( 1 , J ,M ) , TEM ) 

CALL VEC ADD (FLC(1,M),TEM,FLC(1*M) ) 

CALL VECXDY( PHIR( 1 ,J,M) , J INERT* I,1,J),TEM1> 

CALL OYADD( FL J ( 1 , 1 , M ) , TEM1 , FL J ( 1 » 1 ,M ) ) 

13 CONTINUE 

RESULTANT UNCOUPLED MODE DEPENDED PARAMETERS 
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CALL SCLV( AMASS, FLA ( 1,M),FLA(1,M>) 
CALL SCLV( AMASS, FLB< 1 , M ) , FLH < 1 , M ) ) 
12 CONTINUE 


READ MODAL STIFFNESS AND DAMPING DATA 

CALL RTAPEI IRUNNO,KH< ICNT ) ,KHH,NM,NM, 12,12,2) 

CALL RTAPEI IRUNNO,BH( ICNT), BHH, NM »NM, 1 2, 1 2 , 2 ) 

DO 16 M= 1 , NM 

WRITE (6,116) M 

FLOM(M) = DSORT ( KHH ( M , M ) ) 

ZETA(M) = BHH(M,M)/(2.0*FL0M(M> ) 

WRITEI6, 115) 

WRITE(6,123) M , FLOM ( M ) 

WRITEI6, 115) 

WR I TE ( 6 , 124 ) M , ZET A ( M ) 

WRITEI6, 115) 

WRITE (6, 108) (M,(FLA(I,M), 1 = 1*3)) 

WRITEI6, 115) 

WRITE I 6, 109) (M,(FLB( I, M), 1=1, 3) ) 

WR I TE ( 6, 1 1 5 ) 

WRITE (6, 110) (M,(FLC(I,M), 1=1,3) ) 

WRITEI6.115) 

WR ITEI6, 126 ) IM, (FLDI 1 ,J,M) ,J=1,3 ) ) 

WRITE (6, 11 1 ) (M, ( FLDI I ,.),M ) , J=1 ,3), 1=2,3) 

WRITE(6,115) 

WRITE (6, 127) <M,(FLJ(1,J,M),J=1,3)> 

WR 1TE (6, 112 ) (M,(FLJ(I,J,M),J=1,3),I=2,3) 

WRITE (6, 115) 

16 CONTINUE 

WRITE (6,105) 

RESULTANT COUPLED MODE DEPENDENT PARAMETERS 

DO 14 NN= 1 , NM 
DO 14 MM= 1 , NM 

DO 15 J = 1 ,N J 

CALL SUEOP ( PH I T ( 1 , J , NM ) , PH I T ( 1 , J , MM ) , JMASS ( J ) , TEM1 ) 
CALL DYADD( FCF ( 1 , 1 ,MM,NN ) ,TEM1 ,FCF ( 1 , 1 ,MM,NN ) ) 

CALL DYDOTVt J INERT (1,1,J),PHIR(1,J,MM),TEM) 

CALL VECROS(TEM, PH IR( 1 , J,NN) ,TFM) 

HE = .5 

CALL SCLV(HF,TFM,TEM ) 

CALL VECROS ( PH IR ( 1 , J , MM ) , PH I R ( 1 , 1 , NN ) , TFM ) 

CALL SCLVI JMASS( .)) ,TFM,TFM) 
call VECAODI TEM,TFM,TEM ) 

CALL VECADD(FCK( 1 , MM, NN ) ,TEM,FCK( 1 ,MM,NN) ) 

15 CONTINUE 

WRITE (6,117) MM,NN 
WRITE(6,115) 

WRITE (6, 128) (MM,NN, ( FCF ( 1 , J,MM,NN) , J = l,3) ) 

WR I TE ( 6 , 1 1 3 ) (MM,NN, (FCF( I,J,MM,NN) , J=l,3) , 1=2,3) 
WRITE(6,115) 

WRITE! 6,114) I MM ,NN , I FCK (I , MM , NN ) , I = 1 , 3 ) ) 

14 CONTINUE 
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100 FORMAT < 1 X t • ** ERROR ** CANNOT FIND HINGE POINT', 15,' IN GRID P 

♦0 1 NT TABLE, RETURN OUT OF SUBROUTINE NB0D2 ' ) 

101 FORMAT (////,' GRID POINT LABELING, LOCATION AND MASS TABLES',//) 
10? FORMAT (• IGRIOI • , 14, ' ) = • , 1 5 ,9X , • JLOC I ' , 1 A, • ) = ' , 3E 1 5 . 7 , 9 X, 

* • JMASS ( ' , I A , • ) = ' , E 1 5 . 7 ) 

5 CONTINUE 

A = 1 .O/TOTMAS 

CALL SCLVI A,CMLOC,CMLOC ) 

DO 5 N= 1 » N J 

TOTMAS = TOTMAS + JMASS(N) 

CALL SCLVI JMASS (N) , JLOC I 1 ,N ) , TEM ) 

CALL VECADD(CMLOC,TEM,CMLOC ) 

B YII) = XI 1 + 1 ) 

NY = 3 
NR = I Y I 3 ) 

RETURN 

7 IF! IF0RM.NE.307) GO TO 9 
I Y I 1 ) = NR+1 
YII) = XII ) 

NY = 1 

NR = X(2)*FAC 
IFINR.EO.O) RETURN 
I Y I 2 ) = NR 
YI2) = X I 3 ) 

NY = 2 

NR = X(A)*FAC 
IFINR.EO.O) RETURN 
NR = NR - 1 
RETURN 

9 IF! IF0RM.NE.30fl) GO TO 10 
NR = XII) *F AC 
IFINR.EO.O) GO TO 1A 
DO 11 1=1,3 
I Y I I ) = NR- 1 + I 
11 YII) = XI 1 + 1 ) 

NY = 3 
NR = I Y I 3 ) 

RETURN 

10 IF! IF0RM.NE.309) GO TO 12 
NR = X(1)*FAC 
IFINR.EO.O) GO TO 1A 
DO 13 1=1,2 
I Y ( I ) = NR-l+I 
13 Y( I ) = XI 1 + 1 ) 

NY = 2 

NR = X I A ) *F AC 
IFINR.EO.O) RETURN 
NR = NR- 1 
RETURN 

103 FORMAT !• XMAS = • , E l 5 . 7 , 30X , ' (TOTAL MASS OF BODY)') 

10A FORMAT I////,' MODE SHAPE TABLE (INTERNAL NUMBERING) ',//) 

105 FORMAT (///) 

106 FORMAT (• PHI T I • , I A , • , • , I 2 , ' ) = • , 3F 15. 7, 5X, 

* ' PHIRI • , IA, ' , ' , 12, ' ) = ' , 3E 1 5 . 7 ) 

107 FORMAT (///,' WARNING MASS MOMENT AT GRID POINT NON-ZERO, THAT IS 

* SMM ' , I A , ' ) =', 3E15.7,/, • THIS EFFECT IGNORED BY N-B0D2. N-B0D2 
A ASSUMES EACH GRID POINT AT ELEMENT MASS CENTER ') 
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108 FORMAT (• F L A ( ' , 1 2 * • ) = ',3E15.7,' (COEFFICIENT TO FIND CENTER OF 

♦ MASS LOCATION AFTER DEFORMATION)') 

109 FORMAT (• FLB(',I2,'» = ',3E15.7,' (COEFFICIENT TO FIND ANGULAR M 

♦OMENTUM DUE TO DEFORMATION)') 

110 FORMAT (' FLC( ' » 12, • ) = ',3E15.7,» (COEFFICIENT TO FIND ANGULAR M 
♦OMENTUM DUE TO DEFORMATION)') 

111 FORMAT (' FLD(',I2,') = S3E15.7) 

112 FORMAT (' FL J ( ' * I 2 » • ) = S3E15.7) 

113 FORMAT (' FCF( ', 12, • , • ,12, • ) =',3E15.7) 

114 FORMAT (' FCK( • , 12, ' , • , 12, • ) =',3E15.7,' (COEFFICIENT FOR CORIOLI 
♦S TOROUE DUE TO DEFORMATION)') 

115 FORMAT ( • ' ) 

116 FORMAT ( /*3X, ' FOR MODE', 13,' THE RESULTANT UNCOUPLED MODE OEPENDEN 
♦T PARAMETERS REQUIRED FOR N-B0D2 INPUT ARE') 

117 FORMAT ( / » 3X, ' FOR MOOES', 13,' AND', 13,' THE RESULTANT MODE DEPENDE 
♦NT CROSS COUPLING PARAMETERS REQUIRED FOR N-R0D2 INPUT ARE') 

118 FORMAT <• 1 ',5X, •♦♦♦♦♦ RESULTANT FLEXIBLE BODY DATA REQUIRED FOR IN 
♦PUT TO N-B0D2 ♦♦♦♦♦',///) 

119 FORMAT (• • , 3E 1 5 . 7 , ' (UNDEFORMED INERTIA TENSOR OF THE') 

120 FORMAT (• XI =',3E15.7,' FLEXIBLE BODY IN BODY COORDINATES') 

121 FORMAT (' • , 3E 1 5 . 7 , ' RELATIVE TO BODY CENTER OF MASS)') 

122 FORMAT (• CA =',3E15.7,' (CENTER OF MASS VECTOR, HINGE POINT T 
♦0 CM) ' ) 

123 FORMAT (• FL0M(',I2,'» =',E15.7,' RAD/SEC (MODAL FREQUENCY)') 

124 FORMAT (' ZETA(',I2,') =',E15.7,' (MODAL DAMPING ZETA)') 

125 FORMAT ( ' CB = VECTOR IN CONTIGUOUS BODY TO HINGE POINT DEFINED 

♦ AT INTERNAL GRID POINT', 15,' (EXTERNAL GRID POINT', 15,’ IN BULK D 

♦ ATA) • ) 

126 FORMAT (• FLD(',I2,') = ',3E15.7,' (COEFFICIENT TO FIND INERTIA T 

♦ENSOR AFTER DEFORMATION)') 

127 FORMAT (' FLJ(',I2,') = *,3E15.7,' (COEFFICIENT FOR CENTRI PI TAL T 

♦ORQUE DUE TO DEFORMATION)') 

128 FORMAT (' FCF( ' , 12, ' , ' , 12, • ) =',3E15.7,' (COEFFICIENT FOR CENTRIP 
♦ITAL TOROUE DUE TO DEFORMATION)') 

RETURN 

END 


SUBROUTINE INT ERP ( INPT , I M AT ) 

THIS ROUTINE SETS UP A CODE SEQUENCE WHICH WILL HE USED 
TO READ MIXED INTEGER AND FLOATING POINT DATA FROM 
THE DMI CAROS 

BLANK FIELD ON LAST CARD WILL BE INTERPRETED AS AN INTEGER 
RUT READ LATER IN AS ZERO, A CHECK FOR WHICH IS MADE 

INTEGER INPT(RO) 

DATA IDOT, IEE/1H. ,1HE/ 

I F ( INPT( 12 ) .EQ. IDOT. AND. INPT(21 ).EQ. IEE ) GO TO 1 
IF(INPT(44).EQ.I DOT .AND. INPT ( 53 ).EQ. IEE ) GO TO 2 
IMAT = 310 

C 310 - FORMAT I , E , I , E 

RETURN 

2 IF( INPT( 60) .EQ. IDOT. AND. INPT (69 >.EQ. IEE ) GO TO 3 
IMAT = 309 

C 309 - FORMAT I ,E,E, I 
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C 


C 


c 


c 


c 


c 


RETURN 

3 IMAT = 308 

308 - FORMAT I,E,E,E 

RETURN 

1 IF(INPT(28).EO, I DOT .AND. INPT (37) .EQ. IEE ) 0,0 TO A 
IF( INPT( 60) .EQ. IOOT.ANO. INPTI69) .EO. I EE ) 0,0 TO 5 
IMAT = 307 

307 - FORMAT E,I,E,I OR E 

RETURN 

5 IMAT = 306 

306 - FORMAT E » I » E » E 

RETURN 

A I F ( INPT ( A A ) .EO. IOOT.ANO. INPT ( 53 ) .EO. I EE ) 0,0 TO 6 
IMAT = 305 

305 - FORMAT E ♦ E » I ♦ E OR E » E 

RETURN 

6 IF( INPTI60) .EO. IOOT.ANO. INPTI69) .EO. IEE ) 0,0 TO 7 


IMAT = 

30A 





30A 

- FORMAT E , E , E , I 

RETURN 




IMAT = 

303 





303 

- FORMAT E , E , E ♦ E 


RETURN 


END 


SUBROUTINE DECODE ( I FORM , X , NR , Y , IY,NY) 

C 

C*** ERROR IN TERM I NOLOGY ELEMENTS COMINO, IN BY ROWS, 

NR AND I Y ( I ) REFER TO COLUMN NUMBER 

OUTPUT OF DECODE 

NY = NUMBER OF REAL NUMBERS ON DMI CARO 
I Y ( I ) = ROW LOCATION FOR I-TH REAL NUMBER ON DMI CARD 
Y( I) = I-TH REAL NUMBER 

NR = NEXT REAL NUMBER TO BE PUT IN ROW NR+1 UNLESS 
FIELD 1 OF NEXT CARD CONTAINS AN INTEGER 

RE AL*8 X ( A ) , Y ( A ) 

I NTEGER I Y ( A ) 

FAC = 1,000010+08 
I F ( I FORM ,NE . 303 ) GO TO 1 
DO 2 1=1, A 
I Y ( I ) = NR+I 

2 YU) = X(I) 

NY = A 
NR = I Y ( A ) 

RETURN 

1 IF( IFORM.NE.30A) GO TO 3 
DO A 1=1,3 
I Y ( I ) = NR+I 
A YI I) = X ( I ) 

NY = 3 

NR = X ( A ) *F AC- 1 
RETURN 

3 IF( IF0RM.NE.305) GO TO 5 
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DO 6 1=1,2 
I Y ( I ) = NR+I 
Y( I) = X{ I ) 

NY = 2 

NR = X(3)*FAC 
I F ( NR . EO.O ) RETURN 

I Y 1 3 » = NR 

Y ( 3 ) = X ( 4 ) 

NY = 3 
RETURN 

5 IF( 1F0RM.NE.306) GO TO 7 
1 Y ( 1 ) = NR+1 
Y ( 1 ) = X(l) 

NY = 1 

NR = X(2)*FAC ' 

1 F ( NR .EO.O) RETURN 
DO 8 1=2,3 
1 Y< I) = NR-2+I 

12 I F ( IF0RM.NE.310) GO TO 14 
NR = X(1)*FAC 
IF(NR.EO.O) GO TO 14 
I Y ( 1 > = NR 
Y(l> = X ( 2 ) 

NR = X ( 3 ) *F AC 
IF(NR.EO.O) RETURN 
IY(2) = NR 

Y ( 2 ) = X ( 4 ) 

NY = 2 
RETURN 

14 WR ITE ( 6, 100 ) I FORM 
100 FORMAT (• I FORM =',I5,' ERROR') 
STOP 
END 


SUBROUTINE INTAPE ( NT A P E , T A PE I D ) 

REAL*8 TAPE ID, BUF, EOT 

DATA IZ1, BUF, EOT/1, O.D 0,3HE0T/ 

DATA NOT / 6/ 

INITIALIZE TAPE FOR SUBROUTINE WTAPE. 
CALLS FORMA SUBROUTINE PAGEHD. 

CODED BY RF HRUDA. JULY 1968. 

REVISED BY R A PHILIPPUS.. APRIL 1969. 


SUBROUTINE ARGUMENTS (ALL INPUT) 

NT APE = NUMBER OF TAPE. (E.G. 10). 

TAPE I D = TAPE IDENTIFICATION. (E.G. T1234). (A6 


2001 FORMAT (//// 
* 

C 

REWIND NT APE 
WRITE ( NT APE 
REWIND NTAPE 


1 4H LOGICAL UNIT 12, 7H, TAPE 
23H , HAS BEEN INITIALIZED. ) 

T APE ID , I 2 1 , EOT , (BUF, 1 = 1 , 16) 


A 6 


FORMAT). 
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WRITE (NOT, 2001) NTAPE , T APE I 0 


RETURN 

END 


SUBROUTINE WT APE ( A ,NRA , NC A , ANAME , KP , NT APE ) 

RE AL*8 A, ANAME, IRUNNO,OATE, 

* 8UF,E0T,0ENSE,TAPEID, IEOTCK 

DIMENSION A ( KR , 1 ) 

DATA IRUNNO ,DATE/6HPREPRS , 6HQ ATE / 

DATA RUE, EOT, DENSE/O. D 0, 3HE0T, 5HDENSE/ 

DATA NOT / 6/ 

WRITE MATRIX A ON TAPE. 

INITIALIZE TAPE WITH SUBROUTINE INTAPE. 

REWIND TAPE BEFORE FIRST USE OF THIS SUBROUTINE. 

NOTE. ..THIS ROUTINE IS OESIGNEO SPECIFICALLY FOR WRITING ON A DISK 

(EG C DC-6400 DISK). USING THIS ROUTINE TO WRITE ON A PHYSICAL 
TAPE DIRECTLY (IE WITHOUT USING THE DISK AS AN INTERMEDIARY) 
WILL PROBABLY GIVE POOR RESULTS (DUE TO THE TOLERANCE 
CHARACTERISTICS OF A TAPE DRIVE) AND SHOULD BE AVOIDED IF AT 
ALL POSSIBLE. 

...THE CDC-6400 OISK IS AUTOMATICALLY ENOFILED AFTER EACH WRITE. 
CODED BY W A BENFIELD. MARCH 1966. 

REVISED BY R A PHILIPPUS. APRIL 1969. 

REVISED BY RF HRUDA . NOVEMBER 1970. 

SUBROUTINE ARGUMENTS (ALL INPUT) 

A = MATRIX TO BE WRITTEN ON TAPE. S I ZE ( NR A , NC A ) . 

NR A = NUMBER OF ROWS OF MATRIX A. 

NC A = NUMBER OF COLS OF MATRIX A. 

ANAME = MATRIX IDENTIFICATION. (A6 FORMAT). 

KR = ROW DIMENSION OF A IN CALLING PROGRAM. 

NTAPE = NUMBER OF TAPE. (E.G. 10). 

INTERNAL VARIABLES THAT ARE PUT ON TAPE (TRANSFERRED THRU COMMON). 
IRUNNO IS RUN NUMBER OF PROBLEM. (A6 FORMAT). 

DATE IS DATE. (A6 FORMAT). FOR EXAMPLE 15FE65. 

IF ( NRA .LT. 1 .OR. NC A .LT. 1) GO TO 999 


SEARCH TAPE FOR END OF WRITTEN DATA. 
10 READ (NTAPE) T APE I D , LN , I EOTCK 
IF (IEOTCK .EO. EOT) GO TO 20 
READ (NTAPE) 

GO TO 10 


END OF WRITTEN DATA HAS BEEN FOUND. 

20 BACKSPACE NTAPE 

WRITE (NTAPE) TAPE I D, LN , BUF , I RUNNO , AN AME , NR A , NC A , D AT E , DENSE , 
* (BUF, 1=1,10) 

WRITE (NTAPE) ( ( A ( I , J ) , I = 1 , NR A ) , J= 1 , NC A ) 

LN = LN + 1 

WRITE (NTAPE) TAPE I D, LN , EOT , ( BUF , I = 1 , 1 6 ) 
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BACKSPACE NT APE 
RETURN 

999 WRITE (NOT, 1000) 

1000 FORMAT ( 1H1 , 43HERR0K IN SUBROUTINE WT APE * PROGRAM STOPPED.) 
STOP 
END 


SUBROUTINE LT APE ( NT APE ) 

REALMS TAPE ID, I RUNNO, A NAME , IEOTCK,DATE» ITYPE, ICHK,EOT, 

* DENSE , SPARSE ,SPART 
DATA NOT / 6/ 

DATA EOT, DENSE, SPARSE, SPART/ 3HE0T ,5HDENSE,6H SPARSE, 5HSPART/ 

LIST HEADINGS OF MATRICES ON TAPE. 

CALLS FORMA SUBROUTINE p'aGEHD. 

CODED BY RF HRUDA. JULY 196B. REVISED NOVEMBER 1970. 

REVISED BY R A PHILIPPUS. APRIL 1969. 

SUBROUTINE ARGUMENTS (ALL INPUT) 

NT APE = NUMBER OF TAPE. (E.G. 10). 

2001 FORMAT ( //36X35HL I ST ING OF MATRICES ON LOGICAL UNITI3.7H, TAPE A6 ) 

2002 FORMAT ( //30X35HL I ST I NG OF MATRICES ON LOGICAL UNITI3.7H, TAPE AG, 

* 12H (CONTINUED) I 

2003 FORMAT ( 27X69 ( 1H- ) /27X3HNO. 3X7HRUN N0.4X4HNAME5X5HNR0WS4X5HNC0LS4X 

* 4HDATE6X3HNNZ3X9HPART ITION/ 

* 27X3H 3X6H 4X6H -4X5H 

* 4X5H 3 X6H 5X3H 3X9H / ) 

2004 FORMAT ( 2 5 X I 5 , 3 X A6 , 4X A 6 , 3 X I 5 , 4X I 5 , 4 X A 6 , 3 X I 5 , 3 X I 4 , l H/ I 4 ) 

2005 FORMAT (/27X12HEN0 OF LIST.) 

C 

REWIND NTAPE 
READ (NTAPE) TAPEID 
REWIND NTAPE 
L = 0 
C 

12 CONTINUE 

I F ( L .EO. 0) WRITE (NOT, 2001) NTAPE, TAPEID 
I F ( L .NE. 0) WRITE (NOT, 2002) NTAPE, TAPEID 
WRITE (NOT, 2003) 

NL INE=1 

13 L = L + 1 

READ (NTAPE ) TAPE ID, LN, I EOTCK , I RUNNO , ANAME , NR , NC , D AT E , ITYPE ,NNZ, 

* NP , NPT 

IF (L .EO. 1 ) ICHK = IRUNNO 
IF (ICHK .EO. IRUNNO) GO TO 15 
NL INE=NL INE+1 
WRITE (NOT, 2004) 

ICHK = IRUNNO 

15 IF ( I EOTCK . EO. EOT) GO TO 30 
READ (NTAPE) 

IF (ITYPE .EO. DENSE ) WRITE (NOT, 2004) 

* LN, IRUNNO, ANAME, NR, NC. DATE 
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IF ( ITYPE .EQ. DENSE ) GO TO 20 
IF (ITYPE .EQ. SPARSE) WRITE (NOT, 2004) 

* LN, IRUNNO»ANAME,NR,NC.DATE,NNZ 

IF (ITYPE .EO. SPARSE) GO TO 20 

IF (ITYPE .EO. SPART ) WRITE (NOT, 2004) 

* LN, IRUNNO, ANAME,NR,NC,DATE,NNZ,NP,NPT 
IF (ITYPE .EO. SPART ) GO TO 20 

WRITE (NOT, 2004) LN , I RUNNO , ANAME , NR , NC , I T YPE 
20 NL INE = NL INE + 1 

I F ( NL I NE . GT . 43 ) GO TO 12 
GO TO 13 
C 

30 WRITE (NOT, 2004) LN , I EOTCK 
WRITE (NOT, 2005) 

REWIND NTAPE 

RETURN 

END 


SUBROUTINE RT APE ( I ARUNO , I AN AME , A,NRA,NCA, KR,KC, NTAPE) 

REAL *8 A, I ARUNO, I AN AME, TAPE ID, I EOTCK, ITRUNO, I TN AME , 

4 DATE , ITYPE , DENSE , EOT 

DIMENSION A ( K R , 1 ) 

DATA NOT / 6 / 

DATA DENSE, EOT / 5H0ENS E , 3HE OT / 

C 

C READ MATRIX a FROM TAPE BY IDENTIFICATION OF I ARUNO , I AN AM E . 

C CALLS FORMA SUBROUTINES LTAPE , PAGEHO, ZZBOMB. 

C CODED BY WA BENFIELD. JUNE 1966. 

C LAST REVISION BY R F HRUDA. SEPTEMBER 1971. 

C 

C SUBROUTINE ARGUMENTS 

C I ARUNO = INPUT RUN NUMBER OF MATRIX A. ( A6 FORMAT). 

C I ANAME = INPUT MATRIX IDENTIFICATION. ( A6 FORMAT). 

C A = OUTPUT MATRIX READ FROM TAPE. S I Z E ( NR A , NC A ) . 

C NRA = OUTPUT NUMBER OF ROWS OF MATRIX A. WILL BE READ FROM TAPE. 

C NC A = OUTPUT NUMBER OF COLS OF MATRIX A. WILL BE READ FROM TAPE. 

C KR = INPUT ROW DIMENSION OF A IN CALLING PROGRAM. 

C KC = INPUT COL DIMENSION OF A IN CALLING PROGRAM. 

C NTAPE = INPUT NUMBER OF TAPE. (E.G. 10). 

C 

3001 FORMAT ( 29H1RT APE CANNOT FIND RUNNO = Afe / 

* 2 1 X 8HANAME = A6 / 29X 6H ) 

C 

NT I ME = 0 

C SEARCH TAPE FOR CORRECT HEADING. 

5 READ (NTAPE) T APE I D, LN , I EOTCK , I TRUNO , I TN AME , NR A , NC A , DATE , I T YPE , NNZ 
IF (ITRUNO .EO. IARUNO .AND. I TN AME .EO. I ANAME ) GO TO 10 
IF ( I EOTCK .EQ. EOT) GO TO 20 
READ (NTAPE) 

GO TO 5 

MATRIX HAS BEEN FOUND. 

10 
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NERR0K=1 

IF ( I TYPE .NE. OENSE .AND. NNZ .NE. 0) GO TO 999 

NERR0R=2 

IF (NRA.GT.KR .OR. NCA.GT.KC) GO TO 999 
RE AO ( NTAPE ) ( ( A ( I , J ) , I = 1 , NR A > , J= 1 , NC A ) 

RETURN 

MATRIX CANNOT RE FOUND. SEARCH TAPE ONCE MORE. 

20 NT I ME = NTIME+1 

N ERROR =3 

IF ( NT 1 ME .EO. 2) GO TO 99R 
REWIND NTAPE 
GO TO 5 

998 WRITE (NOT, 3001) I ARUNO , I AN AME 

999 CALL LTAPE (NTAPE) 

WRITE (NOT, 3002) NERROR 

3002 FORMAT < 1 H 1 , 43HER ROR IN SUBROUTINE RTAPE, PROGRAM STOPPED, 

* 10H NERROR = ,13) 

STOP 

END 


SUBROUTINE WRITE ( A , NR , NC , AM A ME , K R ) 
REAL*8 A,ANAME 
DIMENSION A ( KR , 1 ) 

DATA NOT / 6/ 


WRITE MATRIX OF REAL NUMBERS ON PAPER. 

REQUIRES 123 COLUMN (MINIMUM) PRINTER. 

UP TO 10 DATA FIELDS PER LINE. PRINTS ONLY NON-ZERO FIELD ROWS. 
CALLS FORMA SUBROUTINE PAGEHD. 

CODED BY RL WOHLEN. DECEMBER 1988. 


SUBROUTINE ARGUMENTS (ALL INPUT) 

A = MATRIX TO BE PRINTED. SIZE(NR.NC). 

NR = NUMBER OF ROWS IN MATRIX A. 

NC = NUMBER OF COLS IN MATRIX A. 

ANAME = MATRIX IDENTIFICATION. (A 6 FORMAT). 

KR = ROW DIMENSION OF A IN CALLING PROGRAM. 


2010 FORMAT 
* 

2020 FORMAT 


2030 FORMAT 
2040 FORMAT 


( // 1 5H OUTPUT MATRIX A6,2X 1H(I4,2H X 14, 2H ) // 

10X, 1 0 ( 7X, 1 H ( 12, 1 H ) ) / > 

( // 1 5H OUTPUT MATRIX A6.2X 1H(I4,2H X 14, 2H ) 

3X , 9HC0NT INUED / / 1 OX , 1 0 ( 7X , 1 H ( 12, 1 H ) ) / ) 
(1X»2I5»2X,1P10D11.3) 

( 14H0END OF WRITE. ) 


PULL UP A NEW PAGE FOR MATRIX AND PRINT MATRIX NAME. 
WRITE (NOT, 2010) AN AME ,NR , NC , < L , L = 1 , 10 ) 

NLINE = 0 

DO 60 1=1, NR 
NZERO = 0 
JS = 1 

10 JE = JS+9 
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IF (JE .GT. NC) JE=NC 
C SEE IF ELEMENTS ARE ZERO. 

DO 20 J=JS,JE 

IF ( A ( I , J ) .NE. O.D 0) GO TO 30 
20 CONTINUE 
GO TO 40 

30 NLINE = NLINE+1 

IF (NLINE .LE. 44) GO TO 35 

WRITE ( NOT , 2020 ) ANAME , NR , NC , ( L , L = 1 , 1 0 ) 

NLINE = 1 

35 WRITE ( NOT , 2030 ) I , JS , ( A ( I , J ) , J = JS,JE) 

NZERO = 1 

40 IF (JE .EQ. NC) GO TO 50 
JS = JS+10 
GO TO 10 

C SKIP A SPACE BETWEEN EACH ROW IF THERE ARE MORE THAN 10 COLUMNS 
C AND SOMETHING HAS BEEN WRITTEN. 

50 IF (NC.LE.10 .OR. NZERO. EO.O .OR. I.EO.NR) GO TO BO 
NLINE = NLINE+1 
WRITE (NOT, 2030) 

60 CONTINUE 
C 

WRITE (NOT, 2040) 

RETURN 

END 


SUBROUTINE VECADD(V1, V2,S) 

C ADOS VECTOR VI TO V 2 RESULT IN S 

IMPLICIT REAL*B(A-H,0-Z,$) 
DIMENSION V1(3),V2(3), S<3) 

S ( 1 ) = VI ( 1 ) + V 2 ( 1 ) 

S ( 2 ) = V 1 ( 2 ) + V2<2) 

S ( 3 ) = V 1 ( 3 ) + V2 ( 3 ) 

RETURN 

END 


SUBROUTINE VECSUB ( V 1 , V2 , D ) 
C SUBTRACTS VECTORS V1-V2=D 

IMPLICIT REAL*8(A-H,0-Z,S ) 
DIMENSION VI ( 3 ) , V2 ( 3 ) ,D( 3 ) 


Dll) = 

VI ( 1 ) 

- V 2 ( 1 ) 

D ( 2 ) = 

V 1 ( 2 ) 

- V2 ( 2 ) 

D ( 3 ) = 

V 1 ( 3 ) 

- V 2 ( 3 ) 

RETURN 



END 
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SUBROUTINE SCLV(SC,V,P) 

C SCALAR * VECTOR 

IMPLICIT REAL*8( A-H,0-Z *$ ) 
DIMENSION V ( 3 ) ,P(3) 

P ( 1 > = SC*V<1) 

P ( 2 ) = SC*V ( 2 ) 

P ( 3 ) = SC*V ( 3 ) 

RETURN 

END 


SUBROUTINE VECDOT ( V 1 » V2 * D ) 

C VECTOR DOT PRODUCT 

IMPLICIT REAL*8I A-H.O-Z it) 

DIMENSION V1(3I , V2 ( 3 I 

D * VI ( 1 )*V2( 1 ) ♦ V 1 ( 2 ) *V2 ( 2 ) + V1(3)*V2(3) 

RETURN 

END 


SUBROUTINE VECROS (V1,V2,C) 

C VECTOR CROSS PRODUCT C = VI X V2 

IMPLICIT REAL*8< A-H,0-Z,S) 
DIMENSION V1(3),V2(3),C(3) 

C(l) = VI ( 2 I *V2 ( 3 ) - V I ( 3 ) *V2 ( 2 ) 

C ( 2 1 = V 1 ( 3 ) *V2 ( 1 ) - VI ( 1 ) *V2 ( 3 ) 

C ( 3 ) = V 1 ( 1 ) *V2 ( 2 ) - V 1 ( 2 ) *V2 ( I ) 

RETURN 

END 


SUBROUTINE TR I PVP ( V 1 » V2 i V ) 

COMPUTES STANDARD VECTOR TRIPLE PRODUCT 

V = VIXIV1XV2) 

= V1*(V1.V2) - V2*(V1.V1) 

IMPLICIT REAL*8( A-H,0-Z,5) 

DIMENSION V1I3)»V2<3) ,V(3) 

A = Vim*V2(l) + VI ( 2 ) *V2 ( 2 ) + V1(3)*V2(3) 

B * Vim*Vl(l) + V1(2)*VH2) + VI ( 3 l*V 1 ( 3 ) 

V(l) = V1<II*A - V2 ( 1 ) *B 

V ( 2 ) = VI ( 2 ) *A - V2 ( 2 ) *B 

V ( 3 ) = VI ( 3 ) *A - V2 ( 3 ) *B 

RETURN 

END 
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SUBROUTINE OYADD < 0 1 ,D2 ,0 ) 

ADOS TWO 0YA0S 

D = 01 + D2 

IMPLICIT REAL*8(A-H,0-Z,$) 
DIMENSION 01(3,3), 02(3,3), 0(3,3) 
00 1 1=1,3 

00 1 J = 1 ,3 

1 D( I, J) = 01 ( I , J) + 02 ( I * J ) 

RETURN 

END 


SUBROUTINE SCL0(A,0,T) 
IMPLICIT REAL*8(A-H,0-Z»$) 


DIMENSION 0(3,3) ,T( 3,3) 


MULTIPLY SCALAR BY A TENSOR 


T ( 1 , 1 ) 
T ( 2 , 1 ) 
T ( 3 , 1 ) 
T( 1,2) 
T ( 2 , 2 ) 
T ( 3 , 2 ) 
T( 1,3) 
T ( 2 , 3 ) 
T ( 3 , 3 ) 


A^DI 1,1 ) 
A*D ( 2 , 1 ) 
A*D( 3, I ) 
A*D ( 1,2) 
A*D< 2,2 ) 
A *0 (3,2) 
A*D( 1,3) 
A*D ( 2 , 3 ) 
A^O (3,3) 


RETURN 

END 


SUBROUTINE DYOOT V ( A , V , 0 ) 

SCALAR OOT PRODUCT OF DYAD AND VECTOR 
D = A.V 

IMPLICIT REAl*8< A-H,0-Z,S) 

DIMENSION 0 ( 3 ) , A ( 3 , 3 ) ,V(3) 

DO 1 1=1,3 

0 ( 1 ) = 0 
DO 1 J= 1 , 3 

1 D ( I ) = . D ( I ) + At I , J )*V< J ) 

RETURN 

END 


SUBROUTINE VXD YOV ( V 1 , DY , V ) 

COMPUTES VECTOR X (DYAD . VECTOR) 
V = VI X (OY . VI ) 

IMPLICIT REAL*8(A— H, 0— Z , $ ) 

DIMENSION V1(3),V2(3),V(3),DY(3,3) 
DO 1 K = 1 * 3 
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V2(K) = 0 . DO 

on 1 J= 1 » 3 

1 V2(K) = V2(K) + 0Y(K,J)*V1( J) 

V ( 1 ) = V l ( 2 ) *V2 ( 3 ) - VI ( 3 ) *V2 ( 2 ) 

V I 2 ) = V1(3)*V2<1) - VI t 1 ) *V2 ( 3 ) 
V ( 3 » = V1I1I*V2I2) - V 1 ( 2 ) *V 2 ( 1 ) 
RETURN 
END 


SUBROUTINE DYTOV (D,X1,X) 

USE TO TAKE SCALAR DOT PRODUCT OF TRANSPOSE OF 
TENSOR D WITH VECTOR XI 

NEEDED SINCE TENSORS IN SYMMERIC MATRIX OF INERTIA TENSORS ARE IK 
NON SYMMETRIC 
IMPLICIT REAL*8(A-H,0-Z,$) 

DIMENSION D(3,3) ,X1 ( 3) ,X{3 ) 

DO 1 1=1,3 

X ( I ) = 0 
DO 1 J = 1 , 3 

X(I) = X(I) + D< J, I ) *X1 ( J > 

1 CONTINUE 
RETURN 
END 


SUBROUTINE VODYOV (VI ,DY ,V2,X ) 

COMPUTES THE SCALAR TRIPLE PRODUCT 

VECTOR . (DYAD . VECTOR) 
VI . (DY.V2 ) 

IMPLICIT REAL*8< A-H,0-Z,$ ) 

DIMENSION Vl(3),OY(3,3),V2(3),TEM(3) 
DO I K = 1 , 3 
TEM(K) = O.DO 
DO 1 J= 1 , 3 

1 TEM(K) = TEMIK) + DY I K , J > *V 2 ( J ) 

X = 0 

DO 2 J = 1 , 3 

2 X = X + V 1 ( J)*TEM(J) 

RETURN 

END 


SUBROUTINE DYOP(V,D) 

C TRANSFORMS VECTOR VI INTO SKEW DYAD 

IMPLICIT REAL*8< A-H,0-Z ,t ) 

DIMENSION V ( 3 ) , D < 3 , 3 ) 

D(l,l) = 0 
D( 1,2) = V ( 3 ) 
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0(1,3) = -V ( 2 ) 
D(2,l) = -V ( 3 ) 
0 ( 2 , 2 ) = 0 
0(2,3) = V ( 1 > 
0(3,1 ) = V ( 2 ) 

D ( 3 , 2 ) = -V ( 1 ) 
0(3,3) = 0 
RETURN 
EN0 


SUBROUTINE SUE0P ( VI , V2 , XM , 0 ) 

IMPLICIT REAL*8(A-H,0-Z,i) 

DIMENSION VI ( 3 ) , V2 ( 3 ) , 0(3, 3) 

USED TO COMPUTE THE PSUEDO INERTIA TENSOR 
OF BODY LAMBA WITH RESPECT TO THE ORIGIN OF NEST K-l AND 
THE HINGE POINT 1-1 WHICH IS ON THE TOPOLOGICAL PATH FROM 
BODY 1 TO BODY LAMBA 

BLOCK G SUPPER G AMBA , SUB K-1,1-1 EQUATION 2-55 OF X-732-71-70 
D = XM* ( ( V1.V2 )*1 - V2 VI ) 


XM - SCALAR 
VI - VECTOR 
V2 - VECTOR 
1 - UNIT DYAD 
* - SCALAR MULTIPLICATION 
. - VECTOR SCALAR MULTIPLICATION 
BLANK - TENSOR MULTIPLICATION 

NOTE THAT IN GENERAL THE PSUEDO INERTIA TENSOR IS NON SYMMETRIC 

0(1,1) = XM* ( VI ( 2 ) *V2 ( 2 ) + V 1 ( 3 ) *V2 ( 3 ) ) 

D ( 1 , 2 ) =-XM*V2( 1 ) *V1 ( 2 ) 

D ( 1 , 3 ) =-XM*V2( 1 >*V1 (3) 

0(2,1) =-XM*V2(2)*Vl( 1 ) 

0(2,2) = XM* ( V2 ( 1 ) *V 1(1) + V2 ( 3 ) *V 1 ( 3 ) ) 

0(2,3) =-XM*V2(2)*Vl(3) 

0(3,1) =-XM*V2(3 )*V1 ( 1 ) 

D ( 3 , 2 ) =-XM*V2 ( 3 )*V1 ( 2 ) 

0(3,3) = XM* ( V2 ( 1 ) *V 1(1) + V2 ( 2 ) *V 1 ( 2 ) ) 

RETURN 

END 


SUBROUTINE VECXDY(P,T,D) 

REAL*8 P ( 3 ) , T ( 3 , 3 ) , 0(3,3) 

COMPUTES VECTOR CROSS DYAD 
0 = P X T 

0(1,1) = P ( 2 ) *T (3,1) - P ( 3 ) *T ( 2, 1 ) 
D ( 1 , 2 ) = P < 2 ) *T ( 3 , 2 ) - P ( 3 > *T (2,2) 
0(1,3) = P ( 2 ) *T ( 3 , 3 ) - P ( 3 ) *T ( 2 , 3 ) 
D ( 2 , 1 ) = P ( 3 ) *T ( 1 , 1 ) - P ( 1 ) *T (3,1) 
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0(2,2) 

= 

P ( 3 ) *T ( 1 

0(2,3) 

= 

P( 3 ) *T ( 1 

0(3,1) 


P ( 1 ) *T ( 2 

0(3,2) 

= 

P( 1 )*T(2 

0(3,3) 

= 

P( 1 >*T(2 

RETURN 



END 




,2) - P ( 1 ) *T ( 3 , 2 ) 
♦3) - P(1)*T< 3,3) 
,1) - P ( 2 ) *T ( 1 » 1 ) 
,2) - P(2)*T(1»2) 
,3) - P(2)*T(1,3> 


Goddard Space Flight Center 

National Aeronautics and Space Administration 
Greenbelt, Maryland October 1977 



APPENDIX A 


INPUT/OUTPUT SUBROUTINE EXPLANATIONS 



APPENDIX A 


INPUT/OUTPUT SUBROUTINE EXPLANATIONS 


This appendix presents excerpts from Synthesis of Dynamic Systems Using FORMA— Fortran 
Matrix Analysis , MCR-71-75, Martin Marietta Corporation, Denver, Colorado, May 1971, 
that explain the subroutines from the FORMA library used in the digital computer program. 

COM ENT 

Subroutine COMENT reads input comment cards and reproduces each card in the printed 
output of the computer run. Each comment card may have any keypunch symbol in card 
columns 1 through 78. A use of COMENT is to print an explanation of coordinates used 
in a computer run. Thus, this information is always retained with a run to correlate matrix 
location numbers with physical coordinates. 

INTAPE 

Subroutine INTAPE initializes a tape* for the FORMA tape system by writing EOT (end 
of tape) at the beginning of the tape (disk). All FORMA tape subroutines recognize the 
EOT as the end of written data. Each “new” tape (disk) must be initialized with this sub- 
routine INTAPE to make the tape (disk) compatible with the other FORMA tape subroutines 
(LTAPE, RTAPE, WTAPE, and UPDATE). 

A “new” tape (disk) is defined as a tape (disk) for which it is desired to begin writing matrix 
data at the front of the tape (disk). Thus, a “new” tape (disk) could be one that contains 
obsolete FORMA matrix data, as well as one on which the FORMA system has never written. 

As an example, pertinent statements from a program containing INTAPE could be: 

DATA NIT, NOT/5, 6/ 

1001 FORMAT (12A6) 

NRTAPE = 10 

READ (NIT, 1001)IFINIT, TAPEID 

IF (IFINIT .EQ. 6HINITIL) CALL INTAPE(NRTAPE, TAPEID) 


•A disk is preferred. See writeup of subroutine WTAPE at the end of this appendix. 

Preceding Page Blank 



The input data (beginning in card column 1) to this example program would be either of 
the following: 

• INITILTXXXX, if the tape is to be initialized. (TXXXX represents the particular 
tape number used; (e.g., T1234). 

• NOINIT, if the tape is not to be initialized. The tape identification is not needed. 


LTAPE 


Subroutine LTAPE lists the matrix headings (see subroutine WTAPE writeup) written on 
a FORMA tape (or disk). The following matrix headings were written by subroutine WTAPE 
and consist of: 


NO. 

RUN NO. 

NAME 

NROWS 

NCOLS 

DATE 

NNZ 


= Matrix number on tape 

= Run number of problem when matrix was written on tape 
= Matrix name 
= Number of rows of matrix 
= Number of columns of matrix 
= Date when matrix was written on tape 

= Number of nonzeros (used only in sparse FORMA in which only 
nonzeros are used) 


PARTITION = Partition number of sparse matrix 


READ 

Subroutine READ reads a matrix of real numbers (a FORTRAN term for numbers with a 
decimal point) from either cards or tape into the computer. The matrix is then printed so 
that these input data are recorded with the answers of a run. A print suppression option 
is available for a matrix read from tape. On option, the matrix read from either cards or 
tape may be written on a tape (by subroutine WTAPE). 

The first data card read by subroutine READ contains the information for indicating whether 
cards or tape will be used. The information entered on this card (and subsequent cards for 
card input) is as follows: 

Card Data Input Form 

In the following, an asterisk denotes required entries. Other entries are optional. 



First Card 


Middle Cards 


Card 

Columns 

Format 

Type 1 

Entry 

1-6 

A 

*Matrix name- will appear 
in printout 

7-10 

I 

* Matrix row size 

11-15 

I 

*Matrix column size 

16-69 

A 

Any remarks to further iden- 
tify the input matrix 

72 


$.— Only if the Write-Tape 
is to be initialized by sub- 
routine INTAPE. The Write- 
Tape identification will be 
from card columns 73 
through 78. 

72 

or 

Anything other than $ if the 
Write-Tape is not to be 
initialized. 

73-78 

A 

Write-Tape identification 
(e.g., T1 234)— use with $ 
in card column 72. 

73-78 

or 

REWIND-The Write-Tape 
will be rewound before being 
used. 

73-76 

or 

LIST— The Write-Tape will 
be listed by subroutine LTAPE 
after the matrix has been 
written on the Write-Tape. 

73-78 

or 

Anything else will be ignored. 

79-80 

I 

or 

Write-Tape number (e.g., 21) 
Blank if the matrix is not to 
be written on tape. 

1-5 

I 

*Row number of matrix 
elements on card 

6-10 

I 

*Column number of matrix 
element in first data field. 


A- 5 




Card 

Columns 

Format 

Type 1 

Entry 

Middle Cards 
(continued) 

11-27 

E 

*First data field with matrix 
elements 2 


28-44 

E 

* Second data field with matrix 
elements 2 


45-61 

E 

*Third data field with matrix 
elements 2 


62-78 

E 

*Fourth data field with matrix 
elements 2 

Last Card 

1-10 

I 

*Ten zeroes 


Note 1 : Format Type A allows any keypunch symbol. Format Type I allows only 

integer numbers right-justified in the field. Format Type E allows only read numbers 
(a FORTRAN term for numbers with a decimal point) anywhere in the field). 

Note 2: Only nonzero elements need be entered. 


As an example of card input to subroutine READ, consider the following matrix: 


I A1 * C ] 3 x 6 = 


1 . 0 . 3 . 0 . 6 . 5 . 

0 . 2 . 4 . 0 . 0 . 0 . 

0 . 7 . 0 . 0 . 0 . 0 . 


This matrix is also to be written on tape 21 that is to be initialized and identified as T4334. 
Figure A-l demonstrates how this information could be written on a coding form to facili- 
tate keypunching to cards. 
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FORMA 



Figure A-1 . Example of card input for subroutine READ. 






Tape Data Input Form 


In the following, an asterisk denotes required entries. Other entries are optional. Only one 
card is used for each matrix read. 

Card Format 

Columns Type 1 Entry 


One Card 1-6 

10 


7-10 


11-15 


16-21 

22-27 

22-25 


A *Name of matrix to be read 

from Read-Tape. 

Zero— Read-Tape will move 
forward from its present 
position and search to the 
end of the tape. If the matrix 
is not found on the first end- 
of-tape encounter, the tape 
will automatically rewind 
and make one more pass. If 
it is not found on the second 
end-of-tape encounter, an 
error message will be printed 
and the program will stop. 

I or Minus the location number of 
matrix on the Read-Tape. Tape 
will be positioned at the begin- 
ning of the location specified 
and will then continue as de- 
scribed above for a zero in 
column 10. 

I * Read-T ape numb er (e. g. , 11)- 

If positive, the matrix read 
will be printed in the output. 

If negative, the matrix read 
will not be printed in the output. 

A *Run number of matrix to be 

read from the Read-Tape. 

REWIND— Read-Tape will 
be rewound before being used. 


or 
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LIST— Read-Tape will be listed 
by subroutine LTAPE. 



Card Format 

Columns Type 1 Entry 


22-27 


28-69 

72 

72 

73-78 

73-78 

73-76 

73-78 

79-80 



or Anything else will be considered 
as part of the remarks described 
below. 


A 


or 


A 


or 


or 


or 


I 


or 


Any remarks to further iden- 
tify the input matrix. 

$.— Only if the Write-Tape is to 
be initialized by subroutine 
INTAPE. The Write-Tape identi- 
fication will be from card 
columns 73 through 78. 

Anything other than $ if the 
Write-Tape is not to be initialized. 

Write-Tape identification (e.g., 

T1 234)— Use with $ in card 
column 72. 

REWIND- Write-Tape will be 
rewound before being used. 

LIST— Write-Tape will be listed 
by subroutine LTAPE after the 
matrix has been written on the 
Write-Tape. 

Anything else will be ignored. 

Write-Tape number (e.g., 21) 
Blank if the matrix is not to 
be written on tape. 


Note 1 : Format Type A allows any keypunch symbol. Format Type I allows 

only integer numbers right-justified in the field. 

As examples of tape input to subroutine READ, consider: 

• Example 1— A matrix named AB2 with run number of RUN-46 is to be read 

from tape number 1 1 into the computer and printed. This matrix is also to be 
written on tape number 22 that is to be initialized and identified as T4321. 


\ 
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• Example 2— A matrix named XYZ4 with run number of TKD is on tape number 
13 twice— the first time at location 29 and the second time at location 54. It is 
desired to read the second matrix. 

Figure A-2 demonstrates how these two examples would be written on a coding form to 
facilitate keypunching to cards. 


READIM 

Subroutine READIM reads a matrix of integer numbers from either cards or tape into the 
computer. The matrix is then printed so that these input data are recorded with the answers 
of a run. A print suppression option is available for a matrix read from tape. On option, 
the matrix read from either cards or tape may be written on a tape (by subroutine WTAPE). 

The first data card read by subroutine READIM contains the information to indicate whether 
cards or tape will be used. The information entered on this card (and subsequent cards for 
card input) is given below. 


Card Data Input Form 

Required entries are denoted by an asterisk below. Any other entry is optional. 


Card Format 

Columns Type 1 Entry 


First Card 1-6 


7-10 

11-15 

16-69 

72 


<L> 

O* co 

H o 

£ % 
s° 


12 

73-78 


A *Matrix name— Will appear in 

printout 

I *Matrix row size 

I *Matxix column size 

A Any remarks to further 

identify the input matrix 

$— Only if the Write-Tape 
is to be initialized by subroutine 
INTAPE. The Write-Tape identi- 
fication will be from card 
columns 73 through 78. 

or Anything other than $ if the 

Write-Tape is not to be initialized. 

A Write-Tape identification (e.g., 

T1 234)— Use with $ card column 
72. 
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Figure A-2. Examples of tape input for subroutine READ. 





Card 

Columns 

Format 

Type 1 

Entry 


73-78 

or 

REWIND— Write-Tape will be 
rewound before being used. 


73-76 

or 

LIST— Write-Tape will be listed 
by subroutine LTAPE after 
the matrix has been written 
on the Write-Tape. 


73-78 

or 

Anything else will be ignored. 


79-80 

I 

or 

Write-Tape number (e.g., 21) 
Blank if the matrix is not to 
be written on tape. 

Middle Cards 

1-5 

I 

*Row number of matrix elements 
on card 


6-10 

I 

*Column number of matrix 
element in first data field 


11-15 

I 

* First data field with matrix 
elements 2 


16-20 

I 

* Second data field with matrix 
elements 2 


etc. 




76-80 

I 

*Fourteenth data field with 
matrix elements 2 

Last Card 

1-10 

I 

*Ten zeroes 

Note 1 : Format Type A allows 

any keypunch symbol. Format Type I allows 


only integer numbers right-justified in the field. 
Note 2: Only nonzero elements need be entered. 
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As an example of card input to subroutine READIM, consider the following matrix: 


[A1 *C] 3 x 6 ■ 


1 0 3 0 6 5 
0 2 4 0 0 0 
0 7 0 0 0 0 


This matrix is also to be written on tape 21 that is to be initialized and identified as T4334. 
Figure A-3 demonstrates how this information could be written on a coding form to facili- 
tate keypunching to cards. 

Tape Data Input Form 

In the following, an asterisk denotes required entries. Other entries are optional. Only one 
card is used for each matrix read. 


One Card 


Card Format 

Columns Type 1 Entry 


1-6 A *Name of matrix to be read 

from the Read-Tape 

10 Zero— Read-Tape will move for- 

ward from its present position 
and search to the end of the 
tape. If the matrix is not found 
on the first end-of-tape en- 
counter, the tape will automati- 
cally rewind and make one more 
pass. If it is not found on the 
second end-of-tape encounter, 
an error message will be printed 
and the program will stop. 

7-10 I or Minus the location number of 

matrix on the Read-Tape. 

Tape will be positioned at the 
beginning of the location speci- 
fied and will then continue as 
described above for a zero in 
column 10 . 
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Figure A-3. Example of card input for subroutine READIM. 





One Card 


Card 

Columns 

Format 

Type 1 

Entry 

11-15 

I 

*Read-Tape number (e.g., 11)— 
If positive, the matrix read 
will be printed in the output. 
If negative, the matrix read 
will not be printed in the 
output. 

16-21 

A 

*Run number of matrix to be 
read from the Read-Tape. 

22-27 


REWIND-Read-Tape will be 
rewound before being used. 

22-25 

or 

LIST— Read-Tape will be listed 
by subroutine LTAPE. 

22-27 

or 

Anything else will be considered 
as part of the remarks described 
below. 

28-69 

A 

Any remarks to further identify 
the input matrix. 

72 


$— Only if the Write-Tape is to 
be initialized by subroutine 
INTAPE. The Write-Tape identi- 
fication will be from card columns 
73 through 78. 

72 

or 

Anything other than $ if the 
Write-Tape is not to be initialized. 

73-78 

A 

Write-Tape identification (e.g., 
T 1234)— Use with $ in card 
column 72. 

73-78 

or 

REWIND-Write-Tape will be 
rewound before being used. 

73-76 

or 

LIST— Write-Tape will be listed 
by.subroutine LTAPE after the 
matrix has been written on the 
Write-Tape. 
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Card 

Format 


Columns 

Type 1 

Entry 

73-78 

or 

Anything else will be ignored. 

79-80 

I 

Write-Tape number (e.g., 21) 


or 

Blank if the matrix is not to 



be written on tape. 


Note 1 : Format Type A allows any keypunch symbol. Format Type I allows 

only integer numbers right-justified in the field. 

As examples of tape input to subroutine READIM, consider: 

• Example 1— A matrix named AB2 with run number of RUN-46 is to be read from 
tape number 1 1 into the computer and printed. This matrix is also to be written 
on tape number 22 that is to be initialized and identified as T4321. 

• Example 2— A matrix named XYZ4 with run number of TKD is on tape number 
13 twice. The first time is at location 29 and the second time is at location 54. 

It is desired to read the second matrix. 

Figure A-4 demonstrates how these two examples would be written on a coding form to 
facilitate keypunching to cards. 

RTAPE 

Subroutine RTAPE reads a selected matrix from tape (disk) into the computer core. The 
matrix to be selected is identified by the desired run number and matrix name. This proce- 
dure is accomplished by searching the matrix headings (see subroutine WTAPE writeup) 
until a match with the desired run number and matrix name is obtained and then by reading 
the matrix elements from tape (disk) into the computer core. The search begins at the 
current position (does not rewind) of the tape (disk) and proceeds to the EOT (end of tape 
defined in subroutine WTAPE writeup). If the desired matrix was not found on reaching 
the EOT, a rewind is performed, and one more search to the EOT is made. If the desired 
matrix is again not found: (1) an error message is printed, (2) a listing of the matrix headings 
is printed (see subroutine LTAPE writeup), and (3) transfer is made to subroutine ZZBOMB 
where the program is terminated. 

START 

Subroutine START performs the following operations: 

• Reads input card 1 for the run number (any keypunch symbol in card columns 1 
through 6) and the user’s name (any keypunch symbol in card columns 1 1 through 
28). 
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Figure A-4. Examples of tape input for subroutine READIM. 




If the run number is equal to STOP (card columns 1 through 4), the run is termi- 
nated. 

If the run number is not equal to STOP, the run continues in subroutine START 
as follows. 

• Reads input card 2 for title card 1 . Any keypunch symbols may be used in card 
columns 1 through 72. 

• Reads input card 3 for title card 2. Any keypunch symbols may be used in card 
columns 1 through 72. 

• Initializes page number as zero for use in subroutine PAGEHD. 

• Interrogates computer for the date. 

Run number, date, page number, user’s name, title card 1 , and title card 2 are transferred 
by a COMMON block labeled LSTART for use in other subroutines PAGEHD, PLOT1, 
PLOT2, PLOT3, and WTAPE. 

Subroutine START is used to start each computer run in the FORMA system and will nor- 
mally be the first subroutine called in a computer program. For example, pertinent state- 
ments from a program using START could be: 

1 CALL START 


GOTO 1 
END 


WRITE 

Subroutine WRITE writes a matrix of real numbers (a Fortran term for numbers with a 
decimal point) on paper. A group of up to ten consecutive elements from a row of the 
matrix are printed on each line. If all elements of a group are zero, printing of this line is 
suppressed. 

Each matrix that is printed begins on a new page. Each page of printout contains the page 
heading given by subroutine PAGEHD, the name of the matrix, and the row size and column 
size of the matrix, followed by the matrix data. On any line of matrix data, the first integer 
number is the row number of the matrix elements on that line. The second integer number 
is the column number of the matrix element in the first data field. The next group of real 
numbers (up to ten) are the values of the matrix elements. This group of matrix elements 
is given in consecutive column order. 
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WRITIM 


Subroutine WRITIM writes a matrix of integer numbers on paper. A groupiof upito 20 
consecutive elements from a row of the matrix are printed on each line. If all elements of 
a group are zero, printing of this line is suppressed. 

Each matrix that is printed beings on a new page. Each page of printout contains the page 
heading given by subroutine PAGEHD, the name of the matrix, and the row size and column 
size of the matrix, followed by the matrix data. On any line of matrix data, the first integer 
number is the row number of the matrix elements on that line. The second integer number 
is the column number of the matrix (element in the first data field. The next group of integer 
numbers (up to 20) are the values of the matrix elements. This group of matrix elements 
is given in consecutive column order. 

WTAPE 

Subroutine WTAPE writes matrix data at the end of existing written matrix data on a FORMA 
tape. (A disk is preferred; see the following.) Each set of matrix data consists of two logical 
records. The first record contains the matrix heading (tape identification, location number, 
run number, matrix name, number of rows of matrix, number of columns of matrix, date, 
and the word “dense”). The second record consists of the matrix elements. 

The following sketch is a schematic representation of the tape (disk): 

Beginning 

of 

' tape (disk) j 



where 

Hj = Matrix heading of the i th written matrix 

E. = Matrix elements of the i th written matrix 

EOT = End of tape-Data written by subroutine WTAPE or INTAPE that all 
FORMA tape subroutines recognize as the end of written data. 

Each vertical line is an end of logical record put on by the computer system’s routines. The 
tape is written in binary form as opposed to binary coded decimal (BCD) form. 

To find the end of written matrix data, a search is made of the matrix headings until the 
EOT is found. For this reason, a “new” tape (disk) must be initialized with subroutine 
INTAPE so that the tape (disk) contains an EOT. A “new” tape (disk) is defined as a tape 
(disk) for which it is desired to start writing matrix data at the front of the tape (disk). Thus, 
a “new” tape (disk) could be one that contains obsolete FORMA matrix data, as well as one 


A-19 



on which the FORMA system has never written. When the EOT is found, a backspace opera- 
tion is performed over the EOT, and the current matrix heading, current matrix elements, 
and a new EOT are then written. 

A disk is preferred to a tape for the following reason. Because the physical separation of the 
read and write heads on most tape drives may cause tolerance problems, backspacing over 
the EOT is usually not successful. Instead of ending up positioned in front of the EOT, the 
write head is often positioned in front of the previous matrix elements (E n in the foregoing 
sketch). The current matrix heading will be written over the previous matrix elements. 

This causes problems later when an attempt is made to read the records written on the tape. 
To alleviate this problem, it is strongly recommended that an intermediate device such as 
a disk be used with all FORMA tape subroutines (INTAPE, LTAPE, RTAPE, WTAPE, and 
UPDATE). At the beginning of a computer run, the existing tape should be copied onto 
the disk by using computer control cards. Likewise, at the end of the run, the disk should 
be copied back onto tape by using computer control cards. 
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APPENDIX B 

SUPPORT PROGRAMS FOR THE DISCOS 
FLEXIBLE-BODY CAPABILITY 
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CAPABILITY AND IHc BASIC APPROACH lO »E uSE 0 FOR OATA 
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HAROLD P, FRISCH (GODDhRd SPACE FLIGHT CENTER) 

JAMtS H. DONOHUE (GODDARD SPACc. FLIGHT CENTER) 

THE PROGRAM H A o BEEN REVIEWED AND F UR 1 HER ANNOTATED TO 

CROSS reference with the theoretical manual by: 

HAROLD P. FRISCH (GODDARD SPACE FLIGHT CENTER) 

REUUIREMENTS FOR MAKING THE PROGRAM C U MP A T ABLE WITH 
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22 3o 

8c T A -1 


0 

147 

80 J l 

ALPHA-4 

RE AL* 1 6 

0 

148 

632 2 



0 

1 49 

63 2 4 



0 

150 

4o5 7 

alpha -2 


0 

151 

774 3 

ALPHA-4 


0 

152 

77 9 6 

ALPHA-4 


0 

153 

2703 



0 

154 

906 



0 

155 

3-»62 



c 

156 

433 



0 

157 

ol 0 



0 

158 

9 6 6 



c 

159 

3349 

ALPHA-2 


0 

160 


9i £9 4 
2 a 2 7 


AlPHA-4 


NMwMAX . NM W BOD . NMDrfOO. <MJ.KY.KU 


0 

0 

0 

0 

c 

0 

0 

10 0 
0 
0 
0 
0 
c 
0 
Q 
0 
0 
c 
0 
0 


161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 
1 72 
173 
1 74 

175 

176 

177 
1 78 

179 

180 
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c 

c 


c 

c 


c 


c 


c 


c 

c 

c 

c 


COMMON /SPEC lh/ 



0 

i at 

* BLTAN16, 6).BETaHD( 6, o).AM0<2. 5 ) . Rrll 3 . 3 , JO ) . RS ( 3 . 3 

.30) , 

ie 

102 

* Ottl 3. 35 > .DSl s.30 ) . 1 MOl 3. 5).NMOW(6. j»,l = lSMwllb). 


l? 

1 83 

* N(J • ISM »NSPT * N<JF MG • NOEL TAi IT OPOL ( «£ • e>,IRGFLX< 

6 i . I HD ATA ( 7 , f > . 

ie 

164 

* LOO>( 14).LENUl Hi ,NU,NBETA,NLAV,NEQ 



19 

185 

COMMON / T APE NO/ 



c 

186 

* NT APt: l t NTAPE2, NTAPc 3 



0 

167 




0 

188 

IF L t = 0 



0 

189 




0 

190 

NTAPEl = l 



0 

191 

NT AP £ 2 = E 



0 

192 

M4P63 - 3 



0 

193 

DEFINE MAX SIZES OF AMAYS. THESE MAY ONLY Dc 

CHANGED 

VIA 

0 

194 

THE RED I MENS I CJN PROGRAM 



0 

195 

N0 VA > = 6 



4 i 

196 

rvHWAX = 6 



42 

197 

NSPMAX = 15 



43 

198 

WM A X - 5 



44 

199 

KMVkaCD - 4 



45 

200 

NMCaCO = 12 



4t 

201 

KM U = 22 



4 7 

202 

KY - 250 



48 

203 

KU =113 



49 

204 




G 

205 

2RC - 0*0 0 



0 

206 

CNE - 1 .U 0 



0 

207 

TWC = 2 «D 0 



0 

208 

TRES = 3*0 0 



0 

209 




0 

210 

099 CALL START 



0 

21 1 

CALL COMENT 



0 

212 




0 

213 

REMIND NTAPEl 



0 

214 

RE H I N 0 NTAPt 2 



0 

215 

FEWING NTAPt 3 



0 

216 




0 

217 

CALL OYN310 TO READ IN AND PROCESS T Nt DATA 

WHICH 

0 

218 

DEFINES THE CUOPLEO BODY SIMULATION 

MODEL 


0 

219 

CALL DYNS10 



0 

220 




0 

221 

CALL UYNS20 TO DERIVE AND INTo^RATE 

THE NON-LINEAR 

0 

222 

CQUPLe.0 30DY EQUATIONS CF MOTION DR 

CALL THE 

ROUT I NES 

0 

223 

WHICH WILL NUMERICALLY LINEARISE THl 

EOU AT IONS 

0 

224 

CALL DYNS20 



0 

225 




0 

226 

CALL DYNS40 TO 00 THROUGH AL_ LINEAR 

STABILITY 

0 

227 

ANALYSIS OF THE COUPLED EQUATIONS OF 

Mur ion 


0 

228 

IF ( IFLNER . EQ. 1) CALL 0YNS40 



0 

229 




0 

230 

CALL 0YNS30 ONLY IF PLOTTING 15 REQUESTED 


0 

231 

IF ( KOPLCT • GT « 0) CALL CYNS30 



0 

232 




0 

233 

GO TC 999 



0 

234 




0 

235 

£N0 



0 

236 
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C 


SUBROUTINE UYNSIO 


DEBUG 0 


2 


C 

c 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

£ 

c 

c 

c 

c 

c 

c 


IMPLICIT H£AL*8( A-H, O-Z) 


CCMMCN /CQNPAR/ 

* CNTCTA4 160) 

COMMON /GGUATA/ 

* GAMG I ( J ) iGMAb.KCMAG 

COMMON / I LINER/ 

* 1 F LNtR 

COMMON /MAXMUM / 

* NdMAX tNHMAX • NSPMA X • NMtfc MAX . N M W 60 D • NM06 J D « < MU » K Y * K U 

COMMON / M £ SCNU/ 

* NoPKNT • NUPLOT 

COMMON /NHNS / 

* NHPCIt o)* NSPOK 6) 

CUMMCN /SPECIF/ 

* BETAH46. 6) .utlAr<D{6, 6).AM0(2. 5 ) . RH( 3 # J • 3 0 > • «S ( 3 • 3 • 3 0 > * 

* OHIO. 36 ) «0S( 3iJ0) < 1 MO ( 3 • S).NM0W(6. » ) , I r T S M w ( 1 6 ) . 

* Nii • NH iN SPT • NUF MO , NULL 1 A * l T CPOL ( 2 • 6 ) • 1 KGF L X l 6) « I HO AT A ( 7 * 6 ) « 

* LOCH 1<* ) .L£NU1 1*) ,Nll»Wb£T A.NLAM.NEQ 

CCMMCN /SUMMRY/ 

* ASUMRY4 16,0) ilSUMKYUdti) , KSUMR Y 

COMMON / T APE NO/ 

* N r APE i . NTAPEE. nTAPE j 

COMMON /TlMtSS/ 

* S I API f • DEL T A I , T • £ NO T • T MS T 

DIMCNS1CN to V ( 5 ) . TMuA TA(J),1PDATA(J> 

EQUIVALENCE (GAMGUlhWViin 


NQ - N C ♦ OF BODIES 

NF - *sO • OF HI NutS ( «Ot« N8 ) 

IRGFlX(L) = (0 IF L IS RIGID). ( M ( L ) IF L IS FLiXldtt) 

M { L ) = NO. CF MODES OF 30DY (w) 

L - L » n6 

NMCML) = NO. MOMENTUM to HE ELS/oQO V ( L ) . L=1.N3 
I T CP CL ( 1 , l ) = l ( tiOuY 1 ) 

I T CP CL ( c # I ) = O l INtHTlAL KlF E PENCE ) 

ITCPCL(i.K) = Lit (K .oT. 1) 

ITCPCL42.K) = L2 • 4 N .GT. 1) 

ECDY(Li) PEL. TO CUUY(L2). K=1 ,NH. 

IhCATA(l.K) = ITYPE (LULER PLRMUTATICN 1.2. ..12). N= l , NH 
(J.K) = 0 (FukCcD/FkEE) 

( J i K ) - l (FIalJ uCNSIHAINT) 

(J.N) - 2 (RHLUNUMIC CONSTRAINT). -- J=2.7. K=1,NH 

BETAH(J.K) - INITIAL HINGE COORDINATES. U = i.u. X=I#NH) 

EETAhDIJ.K) - INITIAL HINGE KATES. (J=l.6. K-i.NH) 

AM (L ) = ^ AS S CF 60DY 4 l ) . L=1 » N3 

SMCM(l. ,L) = STA1IC MOMENT O tiOOY(L). L = 1.NB 

AIN 4 1 . L ) - MOMENT ^ iNtK.UA PROPERTIES OF dUDY(L). 1=1.6. L= I . NB 


C 

1001 FORMAT ( loIS ) 

20C1 FORMAT l // 1SX48H SUMHAR Y CF UY N AM I C - S IMULATl ON- FH'jwKA.M INPUT CATA. 

♦ 1 0 ( 2 H * ) ./ /3X 1 2HAC I DAL S l ZE55X1 3HMAX t MUM SI2ESAX 12H INTEGRATION 

♦ 4HCATA 12X 2 IHGRAV 1 I Y uHAuicNT DATA 17X1 OHM I dC • DATA, 

♦ /3 X 4 3 ( ill-) » 4X1 3( IH- ) . 4 A i o 4 l H — ) • 5 X 3 / ( IH-) ,oAl l( IH-). 


0 

0 

0 

0 

c 

0 

95 
0 
0 
0 
0 
0 
0 
0 
c 
0 

12 

0 

16 

I 7 

i e 

19 

0 

96 
0 
c 
0 
0 
0 
c 
0 
0 
0 
0 
0 
0 
c 
c 
0 
0 
0 
0 
c 
0 
0 
c 
0 
c 
0 
c 
0 
0 
c 
c 
c 
0 
0 
c 
0 
0 


237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 
2 53 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 
27V 
280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 


B-7 


o u 


* /3X9nN6 = 14.4X9HN6MAX = l 4 . 4X9HS TAK T T = 1PD l 0 . 3 , 4X7HG 1 = C 

* 1P010.3.4X8HGAMAI = l PG l 0 . 3 . 4 X9HN0PRN T = 12. 0 

* /3 > 9HNH = 14.4X9HNHMAX = 1 4 , 4X9H0EL T AT = 1PD l 0 . 3 . 4X7 F G2 = Q 

* 1PC l 0 . 3.4X dHGAMA2 = 1PD1 0 .3 . 4X9HNCPL0T = 12. C 

* /3>9HNSPT = 14.4X9HN SPM A X = 14.4X9HENDI = 1PDI 0 . 3 . 4X7HG3 = 0 

* 1PC 1 u .3, 4X 8HGAMA3 = 1POI 0 .3 . 4X9H IFLNER = 12, 0 

* /3X9HNCFMO = 14.4X9HNMWMAX = 14, 27X7HGMAG = C 

* 1PC10 .3, 4X dHRCMAG = 1P01G.3. 0 

* / 3 > 9H NOEL T A = 14 ,4X9HNMWBU0 = 14, C 

* /3X9HNL = 14,4 X9 HN MD bCD = 14, 0 

* /3X5HNEETA = 14,4 X 9HK MU = 14, 0 

* /3X9HNLAM = 14.4X9HXY =14, C 

* /3Y9HNEQ = 14.4X9HKU = 14) 0 

2002 FORMAT I//IX49HTHE TOPU-CuY ARRAY 1 I TOPOL) FOR THIS CASE FOLLOWS) 0 

2003 FORMAT I//1X50HTHE CONSTRAINT SPECIFICATIONS FOR THIS CASE FOLLOW) 0 

2004 FORMAT ( / / 1 X39HTHE SPECIFIED INITIAL HINGE ANGLES AND 0 

* 23HOISPL ACEMENTS (BETAH) FOLLOW) 0 

20 0 £ FORMAT I/VIX49HTHE SPECIFIED INITIAL HINGE KATES tUETAHD) FOLLOW) C 

2006 FORMAT I//IX45HTHE NO. OF ELASTIC MODES/BDOY ARRAY (IRGFLX) 0 

* 7HFCLLCWS) 0 

2007 FORMAT I//1X47HTHE NO, OF P/O HINGE POINTS/UUJY AkRAY 1 NHPO I ) 0 

* 7HF.CLLCWS) 0 

2008 FORMAT I//1X44HTHE NO. OF SENSOR PCINTS/BODY ARRAY INSPOI) 0 

* 7FFCLLOWS) 0 

2009 FORMAT 1//IX40HTHE MOM. WHEEE/BCDY TABLE INMOW) FOLLOWS ) 0 

2010 FORMAT I//1X44HTHE STATE VECTOR LENGTH ARRAY I. END) FOLLOWS ) 0 

2011 FORMAT I//1X46HTHE STATE VECTOR LOCATION ARRAY 1 LUCU ) FOLLOWS) 0 

2012 FORMAT I//1XS0HTHE SPECIFIED SENSOR POINT/BODY CORRELATION ARRAY 0 

* 16HIIFTSMW) FOLLOWS ) C 

2013 FORMAT I//1X43HTHE FOLLOWING DATA IS SPECI-Ie) MOM. WHEEL 0 

* 47H INFCRMAT ION (IF ANY) AND CONTROLLER INFORMATION /1X90I1H-)) 0 

2014 FORMAT 1//IX45HTHE SPEC I F I ED MCN. WHEEL C^NTRDc ARRAY (IMO) 0 

* 7FFCLLCWS) 0 

2015 FORMAT I//IXS0HTHE SPECIFIED MCM. WHEEL RATES AND INERTIAS (AMO) C 

* 7FFCLL0W ) 0 

2016 FORMAT I//IX.4JHTHE SPECIFIED C C NT ROLLER INITIAL CONDITIONS AND C 

* 22HCHARACTERI ST ICS FOLLOW /3X30HITHE FIRST DELTA ARE INITIAL 0 

* JBFClMROLLER STAIE VARIABLES, TFERE ARE I3. 12H ADDITIONAL 0 

* 19FLUNTROL PAR AMc TcHS) ) 0 

21 10 FORMAT I l H 1 , 28HINPDT DATA LHHCR, NERROR = 13) 0 

C 0 

CATA M T .NOT / S, 6/ 0 

C 0 

CCCCC 0 

KCCNT = ISO 96 

KSLMRY =15 .99 

CCCCC C 

0 

***** <************* REA* BASIC SYSTEM SIZES 0 

READ (NIT, lOOt) NBiNH, NSPT , NOF MC . NOEL T A 0 

c C 

NERROR = l 0 

C******************* real, SYSTEM IUPCLGGY 0 

CALL RE AO l M I I TOPOL , N l , N2 . 2 . NH M AX ) 0 

IF (M.NE.2 .OR. N2.NE.NH • OR . NH.LT.NB) GO TO 999 0 

NERROR =2 0 

C ***************** ** RcAu BODY TYPE AND NUMBER uF MODES TF FLEXIBLE 0 

CALL REACIM ( IRGFCX.N1 ,N2, 1 .NBMAX) 0 

IF (N2 ,NE. NB). GJ TO 99 9 0 

NERROR =3 0 

• 


297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

30 7 

308 

309 

310 

31 1 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

32 7 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 
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£+**** 4*** 4*4******* KLAD SENSOR Hu I NT LOCATION INFORMATION 
CALL RcACIM i IF 1 s.Mw. Nl . N2, l .Nf.PNAX ) 

IF ( F2 . Nh. fiSPT) oU 10 599 

NERROR - A 

C***444***4******** Ht Au CONSTRAINT DATA FOR EACH HiNat POINT 
CALL KtAOlM ( I riJAI A • N l * N2 . 7 , N UMAX ) 

IF ( N l • M: • I •UR. N2.Nt.Nh) Gu FC 9 99 

NERROR = 5 

K t At/ CUNIIG1COS H I NGE FRAMl UKltiHTAHUN OAT A 
CALL HLAU l 13ET AH .M . N2 , o.NhMAX) 

IF (Nl.NE.o .Ok* N2.NL.Nh) GO IC 999 

NCRROH = 6 

CM>f 444*4*4***4***** Rc At> CONTI GlGUS HINGE FRAME ftAT u uaTA 
CALL Kc AO ( dETAHU *N 1 , N2 • O.NHMAX) 

IF (M.NE.o .OR. N 2 .Nc..NH) OO TC 959 

NERROR - 7 

IF ( I TOP CL (1 • I ) . Nt . 1 .Oh. 1 TGPCL (2 , 1 > .NE.O) GJ TO 999 

NERROR - 8 

CO 6 CO J = 2.NH 

IF ( I TO P (JL ( 1 t J) .dO. ITU PO L ( 2 . J ) ) GO TO 999 
60S CENT INOd 
C 

CCC PRELIMINARY TOPOLOGY CHECK. COMPLETE CHECK JUNt UY WOT DH •••• 

NERROR = 9 

CO 610 N=1 ,Nfl 
CO 6 l‘J 1 = 1.2 
00 old J=2 *NH 

IF ( HOP CL ( 1 * J ) .lU. Nl Gu TU 610 
O t 5 cGNT INUc 
CC TC 995 
610 CC N T INGE 

NERROR = 10 

CO 6 2 0 J = i*NL) 

IF ( IhGFLX( J ) .LT • 0 .OR. IRGFLX ( J ) . GT .NMCOJ J) GO X U 999 
620 CONTINUE 

NERROR = 11 

DO 6S5 J=L . N SPT 

IF ( IF T 5 MU (J).LT.i .OR. IF T CM w ( J ). GT . N d ) GU TJ 5v9 
62 5 CO NT I NuE 

NERROR = 12 

00 620 J=1,NH 


IF 

( IF.J ATA < i 

, j) .L r. i 

. Ok . 

IHjATM l 

. J ) . GT . 12 I 

s,0 TO 999 

CO 

6 j 0 1=2.7 






IF 

( | Fl> ATA ( i 

»J) • L T • 0 

. OK . 

1 HO A T A ( I 

. J ). GT. 21 

GJ Tu 999 

CONT INUd 









NHPG I ( N ) = 

NUMBER U- 

HINGES ON 8CDY N 




NSPCI(N) = 

NUMDER Ur 

SiiNjoukS uN CCDY N 

CO 

5 N = 1- * NO 







NHPOl IN) = 0 
NS PO I { N ) = 0 
CO 1C 1=1.2 
CO 1 C J = c , NH 

IF (ITOPCL(i.J) *cU. N ) NHPUI(N) = NHPQI(N) + 1 
1 0 CC N T INUt 

00 It J= l.NSPT 

IF (IFTSMWCJ) .EO. N) NSPOI(N) = NSPOI(N) «■ l 
l 5 CC N T INUc 
5 CGNT INUd 


0 357 

0 358 

C 359 
0 360 

0 361 

C 362 
0 363 

C 364 
C 365 
0 366 

0 367 

0 36a 

C 369 
0 370 

0 371 

0 372 

0 373 

0 374 

C 375 
0 376 

0 377 

0 370 

0 379 

0 380 

C 381 
0 382 

0 383 

0 384 

0 365 

0 386 

C 387 
0 368 

0 389 

0 390 

0 391 

0 392 

0 393 

0 394 

0 395 

0 396 

0 397 

0 398 

0 399 

0 400 

C 401 
C 402 
0 403 

C 404 
0 405 

0 406 

0 407 

C 408 
0 409 

0 4 10 

0 411 

0 412 

0 413 

0 414 

0 415 

C 4 16 
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on on 


II = NMW600 *■ 2 
CO 4C l- l . 1 1 
CO 4C J=l. NOMAX 
40 NMCW ( 1 . J ) = 0 

IF { NOFMC .to. 0) GO rc 4 1 

c*» *♦* ** 4* *** * t *** *4 DEAD BASIC MOMENTUM WHEEL JAfA 
CALL REAOIM (IMO.iNl.N2, J.NMwMAX) 

IF CM.NE.J .OR. N2.NE.NCFMU1 GO TO 999 

RE AO MU ML N Tu M WHEEL RATE *- 1 iltl I 1 A 
CALL RE AC ( Ai-lO.Nl ,N2. 2.NMWMAX1 
IF (M.NE.2 .OR. N2.NE.NUFMG) GO TO <599 

CO 6 2b J = 1 . N OF MO 


IF 

( I MU ( 1 » J ) .LT . 1 

.UR. 1 MUl l • J ) 

.GT.NSPT) 

Gu 

T J 999 

IF 

( IMU( i , J) ,LT. 1 

• JR. J J 

.GT.3) GO 

r j 

99 9 

IF 

< IMU ( 3. J) .LT . 0 

• UK • i MUi 3 • J > 

. GT . i ) GO 

r u 

999 

IF 

( AMu < 2, J I .Lt . 

G.J 0) GU TO 

999 




635 CONTINUE 

IF (NCFMC .EG. 1) GO TG 641 
M = NUFMQ - 1 


NERROR 


NERROR 


NERROR 


NERROR 


CO 640 1=1 ,N1 

IP 1 = I ♦ l 

CU 640 J=IP1 .NOFMO 

IF (IMO(l.i) .EG. IMO(i.J)) GO TO 999 
640 CONTINUE 

NERROR 

NMCW = MOMENTUM WH^El/SJOY TABLE 


641 CO 4 5 N = 1 , NO F MO 
NR T 3 = IMO( t ,N) 

N8CD •= IFT SMW ( NPT 57 
NMCWtl.NBUO) = NMGW ( l , NcIOU 1 + 1 

IF ( I MU ( 2 . N I .NE. u> NM0M2.N80D) = NMO W ( 2 . NBU J ) * 1 

1C = NACMl.NUODI ♦ 2 
IF ( IC .GT . HI 66 10 999 
45 NMCW ( 10 • NBOU ) = N 
41 CONTINUE 

LLNU = STATE VECTOR LENGTH ARRAY 
C LOCO = STATE VECTOR LOCATION ARRAY 

C 

nec = a 

CO- 5 C N= l . NB 

NEC = NEC + IRGFLX(N) 

50 LENU(N> = 6 + IRGFLX(N) + NMUW(2.N> 

LOCU ( 1 I = 1 
CO 55 N=2.NB 

55 LOCU(N) - LG CU ( N - 1) + LENU( N - 1) 

NU = LCiCUNH I F. LlNU(NO) - 1 

CO 56 N= 1 . Nb 

56 LENU(NHNB) = IRGFLX(N) 

CO 57 N=1,N0 

N M l = N - l 

57 LOCU (N+Nfil = LOCU (NM 1 FNB > F LENVJ(NM1 FNB ) 

N8ETA = 0 

NL AM = 0 


C 417 
0 418 

0 419 

0 42 0 

0 421 

0 422 

13 C 423 

C 424 
0 425 

0 426 

14 0 427 

C 428 ^ 
0 429 

O 430 

15 0 431 

C 432 
0 433 

0 434 

0 435 

0 436 

0 437 

16 0 438 

0 439 

0 440 

0 44 1 

0 442 

C 443 
0 444 

0 445 

17 0 446 

0 447 

0 448 

0 449 

0 450 

0 451 

0 452 

C 453 
0 454 

0 455 

0 456 

0 457 

C 458 
0 459 

0 460 

0 46 1 

0 462 

0 463 

0 464 

0 465 

0 466 

0 467 

0 468 

0 469 

0 470 

0 471 

0 472 

0 473 

0 474 

0 475 

0 4 76 
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CO 6 C 1 - 2,7 
CO 6 C J = I » NH 

IF l IhuATAU ,J) • NL • l) NbETA - NBETA ♦ l 

IF ( I HU A T A ( I , J ) ..'ML. 0) NL A M = NL A M I 

6 C CONTINUE 

NCQ = UcC NOE T A ♦ NDELTA + NU 
LENU ( 2*Nfci4- U = NbETA 
LENU ( 2* NO-*- 2) - NUELTA 

L0CU{^*N£fl) = LOCu(c*NO) ♦ lENU(2*NB) 

LOCU ItivNBfii) = L0CU(2*No*-l) + N6ETA 

C 

C****4 4* ♦ * ********** UEAu TIME HISTORY INTEGRATION CUNT HUL 


CALL ^E AO ( TMOATA.M ,Nc!» I *3 ) 


READ PRINT* PLOT* LINEAR. 
CALL REAClM < IPl>AT A. Nl *N2* l « J ) 


NUN-_lNEAk FLAGS 


<*** *** ***** ** «LAl> CONTROL SYSTEM CATA 
CALL KEAb (CNTUT A.Nl • NCNPAh * 1 . KCONT > 


NERROR = 18 


CALL RlAC ( toV 


REAL GRAVITY 
»Ni .NL, 1*5) 


GRADIENT DATA 


GU TO 9 99 


CC WV( 


IF ( h2 « NE • 4 ) 

SC MAC- = WV ( 4 ) 

CM AG = USORT (GAMGl ( l ) **2 4* GAMGl<2)**2 
E ) IS NUM RCMAGt »Vl4) IS uMAG 
(C.VAG .tCl. O.D 0) GL IL 76 
C PCM A G .LL. 1 .U 0) GU IU 99 9 
CCMPUTL UNIT VLLTLR. INERTIAL CCCRO I NAT 
OF jWAVIT Y FIELD 
DO I C J = l . 3 

7 C CA MG I ( J ) = GAMGI ( JJ/GMAG 


IF 

IF 


♦ xj A MG 1(6) **2> 


in direction 


75 CALL PA^cHO 

STAR I T = T Mu A T A ( l ) 

LELO = 2*Nb ♦ 2 
CELT AT - 1 Mu AT A< 2 ) 

ENDT = TMDATA(J) 

NC PR M = I PD A T A < 1 i 
NCFLCT = IHDATA(2) 

ITLNlR = 1 Pj A T A ( J J 

G 1 = GM AG* GAMGI < 1 > 

G 2 = GM AG* GAMGI < 2 # 

G3 G M A G * G A MG I ( J i 

WR I TE ( NL f *2 091 ) Nb. No MAX* STAR TT *G l * GAMG I( I I .NUPRNI . NH* NHMAX. 

* DELTA T *G2* GAMG l C 2) « NCPL -J I « NSP T * N 3P MA X • E.N J 1 . S J • G~MG I ( 3 ) , IFLNER * 

* NO F MO * NM »V MAX * G MAb • ROM AG • NOEL V A , N MWbO D « Nu * NM Jd Uu • NbL T A * KMU •’ 

* NLAM.KY.NHO.KU 
aRITE INCT.2C02) 

CALL AIK l II 5 ( i TOPOL . 2 . NH .2 > 

'Ail I T £ ( NOT *2 003) 

CALL ft!*< i 1 IS -l IHD A1 A. 7 • NM • 7 ) 

WRITE (NCT*2004) 


0 477 

0 478 

0 479 

0 480 

0 481 

0 482 

0 483 

0 484 

0 485 

0 486 

0 487 

0 488 

0 489 

0 490 

0 491 

0 492 

0 493 

0 494 

0 495 

0 496 

0 497 

0 498 

0 499 

0 500 

0 50 I 

0 502 

0 503 

C 504 
0 505 

C 506 
0 507 

0 508 

0 509 

0 510 

0 511 

0 512 

0 513 

0 514 

0 515 

C 516 
0 517 

0 518 

0 519 

C 520 
0 521 

0 522 

0 523 

0 524 

C 525 
C 52 6 
0 527 

0 526 

0 529 

C 53 0 
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n n 


CALL WRITES (8ETAH.6.NH.6) 0 

WRITE (NLT. 200‘S) 0 

CALL WRITES (GET AHO. 6 , NH .6 ) 0 

CALL P AG El ID 0 

WRITE INCT.2006) 0 

CALL WRIT IS ( IROFLX. 1 , NU . 1 ) 0 

WRITE (NOT. 2 007) 0 

CALL WR1TIS (NHPO I . I ,NB. 1 ) C 

WRITE (NOT, 2006) 0 

CALL WR1T1S INSPOI , 1 .No . I ) C 

WRITE (NOT. 2009) 0 

CALL IRITIS (NMOW. I I <NB, I 1 ) O 

WRITE ( NOT ,2010) C 

CALL WKITIS (LENU. 1 .LELO.i ) 0 

WR I TE < NOT ,20 1 1 ) C 

CALL WRITIS (LOCU, 1 .LELQ ,1 ) C 

WRITE (NOT. 2012) 0 

CALL WRITIS ( IFTSMW, 1 .NSPI . 1 ) 0 

CALL PA6EHD C 

WRITE (NOT .2013) 0 

IF (NOFMC .NE. 0) WRITt (NOT, 2014) 0 

IF (NOFMC .NE. 0) CALL WRITIS ( I M 0 , 3 , N OF MU , 3 ) 0 

IF (NOFMC .NE. 0) WRITE (NOT, 2015) O 

IF ( N OF MO .NE. 0) CALL WR11ES ( AMO . 2 . NOF Ml) , 2 ) 0 

NCNTRL = NONPAR - NOELTA 0 

WRITE (NOT. 2016) NCNTRL 0 

CALL WRITES (CNTOTAtl.NCNPAR.il C 

C 0 

C GET ECJY DATA FOR EACH UF THE NB BODIES 0 

CO 2 C ,M = 1 . NB 0 

IF ( IHGFLX(N) .EG. 0) 60 TO 25 0 

0 0 

c******************* read flag to specify lumped ok consistant mass o 

C****t ************** FElXIDlE body data 0 

RE AO (NIT.1001) NTyPE 0 

C o 

C NSMUUL PROCESSES LUMPED MASS DATA FOR FLEXIBLE EODIES 0 

IF (NTYPE .EU. 1) CALL MSMOOL (N) 0 

0 

MSMODC PROCESSES CONSISTANT MASS DATA FDR FLEXIBLE BODIES 0 
IF IMfFE .ED. 2 ) l ALE M5MCDC (N) C 

0 0 

GO TC 20 0 

C MR101D PROCESSES DATA FCR RIGID BODIES C 

25 CALL MHIGIU IN) 0 

C 0 

20 CONTINUE 0 

C 0 

RETURN 0 

999 WRITE (NOT, 2110) NEkR'JR C 

STOP 0 

END C 


531 

532 

533 

534 

535 

536 

537 

538 

539 

540 
54 1 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 
57 l 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 
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SUERCJflNE KtAUl.M ( X A , Kit .NC .KR * KC 1 


C 

583 

c 

DEBUG 

« 3 

0 

584 


PEAL *3 A NAME .k'CMHK 


0 

585 


Cl. Me NS i UN I A ( K.R . l ) , i X( H).KLMRK(V) 


c 

586 


CAT A N l T .NOT • 1 ASTi<j/ 5t G. 1 H * / 


c 

587 

c 



c 

588 

CC— "T A K£ N FRUM FOhMA. 


c 

585 

CC--ACKNCWLcJOLMhN T G I Vc.% 1 L KF HkUU A • 


0 

590 

C 



0 

591 

1 00 1 

FORMAT ( Ao . I 4 . l D ♦ 9ac . ExAl ) 


c 

592 

1002 

FORMAT 11015) 


0 

sy3 

200 1 

FORMA 1 (//2/M CARJ INPUT INTEGER MATRIX Ao . 2a in( I««2H X 

14. 2H ) 

0 

594 


* 2X «»A6i//) 


0 

595 

2002 

FORMAT (//27H CARu INPUT INTEGER MATRIX Ao • 2A in( I 4 * 2H X 

I 4 . 2H ) 

0 

596 


* JX 9HCUNT I NOED // ) 


c 

597 

20C 4 

re PM AT (IX 1615) 


0 

598 

2005 

FORMAT ( li>H0END UK REALM M*) 


0 

599 

20 00 

FORMAT ( IM l • J7HCRRUR IN SUBROUTINE PGA DIM, Nlk * UR = . 13) 


c 

600 

C 



0 

60 l 

C #?e AC IN HSACL'W CARL). 


c 

602 


READ (NIT* 100 l) ANAML.Nl *N2 *REMWK, 171 


c 

003 


IPRIN - C 


0 

604 


IF (t/1 «cO« lASTHb) IPR1N = l 


c 

605 


IF (IPRIN .tO. 1) CALL PAGLhD 


0 

606 

c 



0 

607 

C CARC REAUINC, ScCTMlN. 


c 

608 


NR = N i 


0 

609 


NC = N2 


c 

610 


IF (IPHlN ,L'J. 1) VsRiTt (NUT* 2 001 ) A NAME • MR * NC • R LMRK 


0 

Ol I 


NEKRCH - V 


0 

612 


IF ( NR • G T • KR .UR. f*iC i<iT« KC ) of) TO 999 


0 

613 


NL IN E = 0 


0 

614 


CO ICE 1 = 1 • N R 


0 

015 


CO IC5 J = 1 .NC 


0 

616 

1 OS 

I A ( I , j ) = 0 


0 

617 

t 10 

READ (NIT. 1002) IiJbtlX 


0 

6 18 


IK (I.cG.v .AND. Jb.EU.0) OU TO 400 


0 

619 


N ERRCR = 2 


c 

620 


IF ( I «Ui «0 .OR. I «uT .NR .Ur . JS.LE.O .OR. J5.oT.NCi o U TO 

998 

0 

621 


JE = J 3 ♦ l J 


0 

622 


IF ( Jtr • LE • NC) OU TO 115 


0 

623 


= NC - JS ♦ 2 


0 

624 


NEKRCH - 0 


c 

625 


CO 1 12 J = J X • 14 


0 

626 


IF (lx(J> .NE. 0) uG TO 95o 


0 

627 

l 1 

CENT INJE 


0 

628 


j E - N C 


0 

629 

1 1 t 

N = C 


0 

630 


CO 1 £0 J= JS. JL 


0 

631 


N = N T 1 


0 

632 

120 

I A ( l , J > = IX ( N ) 


0 

633 


NL I N t = NL 1 N E * 1 


0 

634 


IF (NLINE .L£. 4 /> GO lu Ub 


0 

635 


IF ( IKK IN .EG. 1) lALl FAotHl) 


0 

636 


IF ( I PH I N .EG. 1) WRITE (NCI.2002) ANAME.NK * NC 


0 

637 


NL INE = 1 


0 

638 

125 

IF (I PR IN .lC. 1) WRIT li (NUT. 2004) l*JS*(lA(I,jj v J=J5*JE) 


0 

639 


GO TC 110 


0 

640 

C 



c 

641 

AOO 

IF (IPRIN .EG. 1) WRITE (NUT. 2005) 


0 

642 


RE TURN 


0 

643 

c 



c 

644 
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998 toft I T E (NCT, 2004) l,Jb. U 

999 toftlTE InCT. 2006) NLKftOK 
STOP 

END 


0 645 

0 646 

0 647 

0 648 


SOURCUlINE to ft I TIM ( I A , NK ,NL . AN AHE . KR) 

C DtbUG a 

ftfcAL «U ANAME 
CIMEKSICK IAIKR.I) 

C A T A NO T / o / 


C 

CC TAKEN FRCM FORMA -- 

CC -- ACKNCwLECGc-MENT GIVEN TO R L toQHLEN. 
C 


2010 FORMAT 

* 

2020 FORMAT 

4 

2030 FURMAT 
2040 FORMAT 


( // 1 5 H OOTPOT MATRIX AU.2X 1HI14.2H X 1 4 , 2H 
16X,20< IX. INI 1 2, 1H) )/) 

(//IbH OUTPUT MATRIX A6 .2X lH(l4,2n X U.aH 
3X , 9HC0NTINUEU ✓ / 1 OX , 20 < 1 X , l H I IZ.lHtt/i 
( IX .2 15 . bx ,20 I 5 > 

1 lb HO ENO GF to ft 1 T LM. 1 


C PULL UP A NEW PAGE Fur MATRIX ANl) PRINT MATRIX NAME. 
CALL PAGEHU 

hRITE INC T.2010I ANAMfc . NR, NC , ( L ,L= 1 .20 > 

KLINE = C 


C 


CO 6 C I = 1 . NR 
NZCRC = C 
JS = 1 

1C JE = JS F 19 

IF lot .CT . NC ) JE = NC 
C SEE IF ELEMENTS ARE ZERO. 

CO 2 C J = oS.JE 

IF IIAIi.J) .NE. 01 GO TO 30 
20 CONTINUE 
CO TC 40 

3 C KLINE = KLINE F l 

IF IKLIKE ,Lt. 44) GO TO 35 
CALL PAGEHO 

toRlTE (NCT. 2020) ANA ME , NR , NC , ( L . L = 1 . 20 > 
KLINE = 1 

35 toRlTE I NCT ,2 0 30 ) I . J S • ( 1 Al 1 . J ) • J=JS.JE> 
NZERC = 1 

4 C IF ( JE .EG. NC) GO TO aO 

JS = JS F 20 


) 

) 


// 


GO TC 10 

C SKIP A SPACE t)L TWEEN t-ACH RGto IF THERE ARE MJ<E I.1AN 20 COLUMNS 
C AKO SOMETHING HAS BEEN WRITTEN. 

50 IF (KC.LE.20 .UR. NZERO.E0. 0 .CM. I.EQ.NR) GJ TO 60 
KLINE = KLINE F l 
toRlTE ( NCT ,2030 ) 

60 CONT INUE 


C 


WRITE (NCT, 2040) 

RE TORN 

END 


4 


0 649 

0 650 

0 651 

0 652 

C 653 
0 654 

0 655 

0 656 

0 657 

0 658 

0 659 

0 660 
0 661 
0 662 
0 663 

C 664 
0 665 

0 666 
0 667 

0 668 
0 669 

0 6 70 

0 671 

0 672 

0 673 

0 674 

0 675 

0 6 76 

0 677 

0 678 

0 679 

C 680 
0 681 
0 682 
0 683 

C 664 
0 685 

0 686 
C 687 
0 688 
0 689 

0 690 

0 691 

0 692 

0 693 

0 694 

0 695 

0 696 

0 697 

0 698 

0 699 
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SUBROUTINE WRITIS (1 M . NH .NC . KR ) 

DEBUG « 

PRINT INTEGER TWO DIMENSIONAL ARRAYS IN FO-iMA FORMAT 
DIMEFSIGN IM(KR.i), 1CHI20) 

LATA NOT / b/ 

CATA IC H / 

* AH ( 11.4HI 2),4HI 3).4H< 4),4HI 5),4H1 oJ.AHI 7).4n( 8), 

* 4HI S) • 4 H ( 1 O J . 

* 4H (11) ,4H< 12) . 4HI 13) . 4H( 14) . 4H( IE) ,4H( 1&) , 4M ( 1 7) . 4H ( 1 8) . 

* 4H( IS) .4H( 20) / 

C 

2001 FORMAT ( i 7X2 0( IX . A4) ) 

2002 FORMAT ( IX.2IS.SX.20IS) 

C 

LR = 20 

IF INC .LT. LR) LH = NC 

WRITE (NCT.2001) IICH(L) ,L=1 .LR) 

CO 6 C I — t . NR 
JS = 1 

10 JE = JS ♦ 19 

IF. ( JE .GT . NC) Jt = NC 

WRITE (NCT. 2002) l.JS. t t M< 1 . J ) . J = JS . J E ) 

IF toe • Eo . NC) GL TO 60 
JS = JS ♦ 20 
GO TC 10 
6 0 CONTI Nut 
C 

RETURN 

END 


. 0 700 

5 0 701 

0 702 

0 703 

0 704 

0 705 

0 706 

0 707 

0 708 

0 709 

0 710 

0 71 1 

0 712 

0 713 

0 714 

O 715 
0 716 

0 717 

0 718 

0 719 

0 720 

0 721 

0 722 

0 723 

0 724 

0 725 

0 726 

0 727 

0 728 


SUBROUTINE start 

C DEBUG » 6 

REAL *6 IRUNNO , l D ATE . UNAME . T I TL E 1 , T l TLE2 . ST OP 
COMMON /LSrART/IKUNNO, UAl'L .NH 4GE 
COMMON /LSTKTt/ UNAMEl j> .T 1TLE l ( l 2 ) , TI TLE2 ( 121 
CCMMCN /LZMGOt/ AMCuct 20 0) 

CATA NIT, NOT. STOP / 3. 6. 4HST0P/ 

CATA l l ST/ 0 / 

LOGICAL DEBUG 
REAL*d ROUUG 

CCMMCN /LDCOUG/ UEfaUGI 120) 

CATA RJUuu/GHOEBUG / 

C 

CCC TAKEN FRUM FORMA. ACKNOWLEDGEMENT GIVEN TO R. HkUDA, R. WOHLEN 

C REALS INPUT CARD 1 FUN IKUNNU, UNAME.- 

C CHECKS IRUNNO FOR S Tup ll.C. IF IRUNNO = STOP, PROGRAM WILL 
C DE STOPPED). You SHOolu HAVE A STOP CARO I T HE *UVj STOP PUNCHEO 
C STARTING IN COLUMN 1) AFTER YOUR REGULAR DATA DECK. 


0 729 

0 730 

0 731 

0 732 

0 733 

0 734 

0 735 

C 736 
0 73 7 

0 738 

0 739 

O 740 
0 741 

0 742 

0 743 

0 744 

0 745 

O 746 
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n o 


c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IF IRUNNO IS NOT EQUAL TO STOP. THE SUBROUTINE CONTINUES AS FOLLOWS. 
READS INPUT CARD 2 FUR TITLE!. 

READS INPUT CARO 3 FOR TIT LEE . 

SETS NPAGE - 0. 

INTERCGATES COMPUTER TO DEFINE DATE AS AN A6. 


INPUT ORDER 
IRUNNO, CNAME 
T ITLE 1 
TIT LE 2 


FORMAT IA6, 4 X 3A6) 
FORMAT (12A6) 

FORMAT (12A6) 


DEF I Ml IONS 

IRUNNC = RUN NUMBER. (A6 FORMAT) 

DATE = DATE. IA8 FORMAT). 

NFAC-E = PAGE NUMBER. 

UNAME = USERS NAME. 13AO FORMAT) 

TITLE1 = FIRST TITLE. (12A6 FORMAT) 
TIT LE 2 = cECUND TITLE. ( I 2 A t> FORMAT) 


IF IRUNNO = • DEBUG 1 THE DEBUG PRINTS UlLE) 

OEOUGlR) = .FALSE. SKIP DEBUG PRINT IN SUBROUTINE K 
•TRUE. PRINT 


1001 FORMAT (Ao. 4X 3Ao) 

1002 FORMAT I 12Afc ) 

1003 FORMAT (60L1 ) 

2003 FORMAT { Sortl END OF INPUT DATA HAS BEEN REACHcO.) 
C 

IF (UST .EO. O) CALL MOUESG (AMODE.O) 

11ST = 1 

READ (NIT. 1001) IRuNNO. UNAME 
DO 12 1 = 1, 120 
12 CEEUO(l) = .FALSE. 

IF (IfiUNNC.NE.RDBUG) GO TO 11 
READ < N IT. 10 03) (DbdU\j( I ).1~1«120) 
l 1 CC NT INuE 

IF I IRUNNO .NE. STOP) GO TO 10 
CALL EXITG 1AMUDE) 

WRITE (NOT, 2003) 

STOP 

C 

10 READ (NIT. 1002) TITLE! 

READ (NIT. 1002) T1ILE2 

NP AGE = C 

CALL C«TE ( l DATE ) 

RE TORN 
END 


0 747 

0 748 

0 749 

0 750 

0 751 

0 752 

0 753 

0 754 

0 755 

0 756 

0 757 

0 758 

0 759 

0 760 

0 761 

0 762 

0 763 

0 764 

0 765 

0 766 

0 767 

0 768 

0 769 

C 770 
0 771 

0 772 

0 773 

0 774 

0 775 

0 776 

0 7 77 

O 778 
0 779 

0 780 

0 781 

0 782 

0 783 

0 784 

0 785 

0 786 

0 787 

0 788 

C 789 
0 790 

0 791 

0 792 

O 793 


SUDRCUTINE CCMENT 

C DEBDG V 7 

REACTS I REMRK , IPGMD, P. QUIT 
CIMENS1CN I REMKK ( 13 ) 

DATA M1.N01 ,'JUIT.P / 5. o, GHCOOOOO. 1 HP/ 

C 

C REAO COMMENT UAKOS AND PRINT THEM LNOER PAGE HEADING uf FORMA 


0 794 

0 795 

0 796 

0 79 7 

0 798 

0 799 

0 800 
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n n 


c 

SLOf-CLT INt PAoCHD. Ci-MMLNT CAPuS MAY h AVt 

ANY K 

w-Y^UNCH symbol 

0 

801 

c 

I N 

CARD LuLL.-INS I-7b. 



c 

802 

c 

If 

IT IS DESIKLO TO HAVE ANY GIVEN COMMENT 

CAR D 

PR INI ON A NEW 

c 

803 

c 

PAG 

t , S L PPL Y THE LETlt-fc P IN COLUMN 80 O.N 

T Ha I ' 

L A R j . 

0 

804 

c 

routine is lnuej ay supplying a capo with 

ZE-i J S 

IN COLUMNS 1 THRU 10. 

0 

805 

c 

CALLS fC KMA SUcjKOUHNL PAGLhU. 



0 

806 

c 

CODED d Y RF HKUOA. MAKCh 19bC. 



0 

80 7 

c 

- LAST MOC IF 1 CAT 1 UN BY J ERNST. JUNE 1571. 



0 

808 

c 





0 

809 


100 1 

FORMAT UJAO.IX.AIJ 



0 

810 

2 0 0 1 

FORMAT ( /// J 



0 

81 1 

2 D 0 2 

FORMA r (2 2X * 1 3AG ) 



0 

812 

c 





0 

813 



N r C 



c 

814 


l 

RE AD (NIT* 1001) ( IklMKKI 1) ,1-1 ,131 .IPGHU 


0 

8 1 5 



ir ( !Wt«HK(l 1 .EQ. QuiTJ UL TURN 



0 

816 



N - f* ♦ i 



0 

817 



IF (N.NE.l .AND. 1PGHU.NL.PJ GC TO 2 



0 

618 



CALL: PAGtHU 



c 

819 



WR I T6 ( NOT .2001 > 



0 

820 



N = l 



0 

821 


2 

IF ( h . EC. GO) N = 0 



c 

822 



WRITE i NOT. 2 002) ( l H cMHK ( I ) • I = 1 . 1 3 > 



0 

823 



GO TC 1 



0 

824 



ENC 



0 

825 


SUERCUTINE PAGEHD 

C DEBUG * 8 

RE AL *0 IRUNNO .DATE , UNA ME . T I TLE 1 . T I TLE2 , T ( M 

commcn /l start/ i kunng. date , npage 

CO MM C N /LSTRTl/ UNAMEl 3 ) .T I TLE l ( l 2) . TI TLE2( 12) 

DATA NOT / t> / 

C 

C ERlNCS CP NEW PAGE AND PUTS HEADING AT TOP. 

C EY COMBINED EFFORT OF OODLEY. HRUCA, WGHLEN. DEC 196B. 

C LASI Re Viol CN S V JW ERNSI. SEP 1572. 

INTERNAL VARIABLES. (TRANSFERRED THRU COMMON). 

C IRUNNC = Ron NUMBER. (AO FORMAT) 

C DATE = DATE. (A3 FORMAT) 

C NFAGE - PAGE NUMBER. 

C UNAME = DEERS NAME. ( -3 At> FORMAT ) 

C T(TLE1 = FIRST T I TLE * (12AG F LR MAT) 

C T I TLE 2 = SECOND TITLE. <(2At> FORMAT) 

C 

2001 FORMAT (9H1RUN NO. Ao. 42X SH DATE A8. 4 2 X V HP AGE NO. 14, 

* / SSX 7HRON BY BAG. // 10X 1 2 A6 . 1 0 X 1 d.H CDRR ENT TIME = .A8. 

* / 10X 1 2A6. I OX 16HIHE CPU TIMER = .IPE10.4) 

C 

NP AG E = NPAGE + I 
CALL TIME (TIM) 

CALL SECLND (SEC) 

WRITE (NCT.2001) 1RUNNU. DATE . NPAGE .UNAME.T I TLE l . T IM, T 1 TLE2. SEC 

RETURN 

END 


0 826 
0 827 

0 828 
0 829 

0 830 

0 831 

0 832 

0 833 

0 834 

0 835 

0 836 

C 83 7 
0 838 

0 839 

0 840 

0 841 

0 842 

0 843 

0 844 

0 845 

0 846 

0 847 

0 848 

0 849 

0 850 

0 851 

0 852 

0 853 

0 854 
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UUUUUU U u {J uuuuuuouuvjuu 


c 


SUBRCUIINE INTAPE (NT APE • I Apt 10) 


Ul:HUG H 


9 


PEAL * d T APLl DtdUFtiiOT 

CAT A I Z i *bUK ,CUT/ 1 • 0 .0 0 • JhLO T / 

LATA NOT / 6/ 

C 

C INITIALIZE TAPE PUR iLBKOUT iNt WTAPE. 

C CALLS FCKMA SUBROUTINE PA oEHD. 

C CODED B V Rh HK UD A • JULY 1966. 

REVISED BY R A PHIUPPUS. APRIL 1969. 

SUBROUTINE ARGUMENTS (ALL INPUT) 

NTAFE = NUMBER OF TAPE. (E*o. 10). 

TAPEID = TAPE I DENT IF l L A T 1 ON. (t.G. T1234). (Ao PuRMAT). 

200 1 FORMAT (//// UH LOGICAL UNIT 12. /H* TAPE AO. 

* 23H . HAS BEEN INITIALIZED.) 

REWIND NTAPt 

WRITE ( N TAPE ) T APEI D , I /.L .EOT . ( BUF . 1 = 1 . I 6 ) 

REWIND NTAPE 
CALL FAGEHD 

WRITE (NOT, 2001) NTAPE, TAPEID 

PE T U F N 
END 


0 055 

0 056 

0 857 

0 058 

0 059 

0 860 
0 861 
0 862 
0 863 

0 864 

0 865 

0 866 
0 86 7 

0 866 
0 869 

0 8 70 

0 871 

0 872 

0 873 

0 874 

0 8 75 

0 876 

0 877 

0 878 

0 879 

0 080 


SUBRCUI INE READ ( A , NR , NC , KR , KC ) 0 

DEBUG « 10 0 

PEAL*8 A ,X, I WE.MRK.ANAME , IZ2. REWIND .LIST . Ti D . I E J T CK , EOT 0 

DIMENSION A( KR* l ) *M 4 ) , lfcLMRK < 9) 0 

DATA N I I ,NOT /5,6/ 0 

CATA RE w IND*LIST , EOT , i DULAR .IASTRS/ 6HREWI NO , 4 NL l s T , SHEET , 1 h$ . I H*/ 0 

0 

READ MATRIX OP REAL NUMBERS FROM CARDS CR TAPc AMJ PRINT IT. WRITE 0 

MATRIX CN TAPE IF SO INDICATED (BY HAVING THE WRITE-TAPE NUMBER IN 0 

CC L CM NS 79-80). 0 

THE EXPLANATION OF FORMATS USED BELOW IS ... 0 

A - CENCTE3 ANY Ki_Y PUNCH SYMBOL. (EG. A1/4C). 0 

I - DENOTES AN INTEGER NUMBER. (EG. 436 > • C 

E - DENOTES A REAL NUMBER. (EG. 24.963). 0 

444 4 CARD INPUT *444 0 

FIRST CARD - MATRIX NAME. NUMBER OF ROWS. NUMB- 9 OF COLUMNS 0 

WITH A6.l4.IS FORMAT. 0 

- REMARKS IN COLUMNS 16-69. A-TYPc. FORMAT. C 

C - S IN COLUMN 72 FOR WRITE-TAPE I N I I I AL I ZmT l ON. 0 

C - WRITE-TAPE CGNTRQL IN COLUMNS 73-73. MAY BE BLANK. OR 0 

C THE WORDS REWIND OR LIST. OR (WHEN % IN COLUMN 72) 0 

C THE WRITE-TAPE-ID (EG. T1234). 0 

C - WRITE-TAPE NUMBER IN COLUMNS 79-80. (EG* 21). 0 

C MIDDLE CARDS - DATA WITH FORMAT (215* 4E17). C 

C - 1-ST 15 IS THE ROW NUMBER. 0 

C — 2-ND 15 IS THE CUL NUMBER OF THE NeXT E£7 FIELD. 0 

C - NEXT 4fc 1 7 ARE ELEMENTS OF THE MATRIX. 0 

C LAST CARD - TEN ZEROS IN COLUMNS 1-10. 0 


881 

882 

883 

804 

885 

806 

087 

888 

889 

890 

89 1 

892 

893 

894 

895 
096 

897 

898 

899 

900 

90 l 

902 

903 

904 

905 

906 

907 

908 
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C 

c 

c 

c 


♦ ♦ * ♦ TAPE INPUT **** 




0 

909 

CNE 

CAHC - MATRIX NAME, ZERO CR MINUS THE LOCATION NUMBER OF 

MATR IX 

0 

910 


ON READ- T APE • READ-TAPE NUMBER Ur MINUS. 

NO 

PR INTOUT ) • 

0 

911 


MATRIX RUN NUMdER WITH A6. 14. 15. As FJTMAT 

• 



0 

912 


- REAU-TAPt CONTROL IN COLUMNS 22-cI. MAT BE oLANK. 

OR THE 

c 

913 


WORDS REWIND OR EIST. 




0 

914 


- REMARKS IN COLUMNS 28-69. A-TYPE FORMAT. 




0 

915 


-SIN COLUMN 72 FOR WRITE-TAPE INlTIALIZAi 

[UN. 



0 

91b 


- WRITE-TAPE CONTROL IN COLUMNS 73 -to. MAY 

6E BLANK. 

OR 

0 

917 


THE WORDS REWIND OR LIST, OR (WHEN S IN CULOMN 72> 


0 

910 


THL WRI TL-T APE-10 (EG. TI234). 




0 

919 


- WRITL-TAPL NUMBER IN CCLUMNS 79-60. ( EG • 

21 J • 



0 

920 

CAULS FCRMA Sob ROUT 1 NES i NT APE . U T APE , P AGEH 0 .R T AP E , * R 1 Tc . W T APE , 

ZZBCMB. 

0 

921 

CODED BY RF HKOUA. JULY l<*66. 




0 

922 






0 

923 


SUBRCUTINE ARGUMENTS 




0 

924 

A 

= CUTPoT MATRIX READ FROM CARDS OR TAPE. 




0 

925 

NK 

= CUTPOT NUMBER OF ROwS IN MATRIX A. 




0 

926 

NC 

= CuTPOT NUMBER OF COLS IN MATRIX A. 




0 

92 7 

KF 

= INPOT ROW DIMENSION OF A IN CALLING PROGRAM. 




c 

928 

KC 

= INPUT CUL DIMENSION OF A IN CALLING PROGRAM. 




0 

929 






0 

930 

ICC l 

FORMAT I A6. I 4 . I 5 . SAG . 2XA1.A6.I2) 




0 

931 

1002 

FORMAT (2Ia.4Dt7.0) 




0 

932 

200 l 

FORMAT ( // 1 9 H CARD INPUT MATRIX Ab . 2X 1 HI I4,2rt X 

I 4 , 

2 H ) 


0 

933 

♦ 

2X 9A6.2X A1.A6.I4//) 




0 

934 

2002 

FORMAT 1//19H CARD INPUT MATRIX A6 . 2X 1 HI 14. 2H X 

I 4 . 

2H ) 


0 

935 

* 

3X 9HCUNT1NUEJ //> 




0 

936 

2002 

FORMAT (// 1 XAG, 14, I5.SX 9A6.2X Al.A6.I4) 




0 

937 

20 0 4 

FORMAT (IX 2 IS. 401 7 .8) 




0 

938 

20 C 5 

FORMAT (13H0END OF REaD.) 




0 

939 

20 0 6 

FORMAT (25H0SIZE OF MATRIX READ IS ( I 4 , 2H X 14.2H 

> ) 



0 

940 






0 

941 

REAL IN HEALER CARO. 




0 

942 


READ (NIT, 1001) ANA ME, N1 .N2.1REMRK, (21 , IZ2.NWTAPE 




0 

943 


IPKIN = C 




0 

944 


IF ( 12 l .EO.I ASTRS .OR. NWIAPE.GT.O . CR . Nl . OE . 0 ) 1PR1N 

- 1 


0 

945 


IF (IPRIN .EG. 1) CALL PA^thO 




0 

946 






c 

947 


IF (N1.LE.0) GU Tg 200 




0 

948 






0 

949 

C/>RC READING SECTION. 




0 

950 


NR = N i 




0 

951 


NC = N2 




0 

952 


IF ( I PR 1 N .LO. t ) WW lie ( NU T » c: 00 I ) AN AME • NR *MC • l R c i^RK 

.121 

. 122. 

NW TAPE 

0 

953 


NE PR CR = 1 




0 

954 


IF (NR.GT.KK .UR. NC.GT.KC) GO TO 999 




c 

955 


NLINE = C 




0 

956 


CO ICE 1=1. NR 




0 

957 


CO 1 Cb J= l .NC 




0 

958 

1 0 5 

A< [ , J) = O.D 0 




0 

959 

1 1 0 

READ IN I T. 10 02) I » Jj*X 




c 

960 


IF ( I.CC.O .AND. J J .LG-. 0) . GU TC 3C0 




0 

961 


NERRCR - 2 




0 

962 


IF ( l.Lt.O . UR • 1 .of • N K • uR • JS.LE.O .OR. J 6 . j T . NU ) uO 

TO 998 

0 

963 


JE — Jb*J 




0 

964 


IF (Jc.i_t.NC) GC ru lib 




c 

965 


JX = inju-JS+2 




0 

966 


NEFRCR - o 




0 

967 


JO l 12 J = JXi 4 




0 

968 
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112 IF (X(J) ,NE. 0.0 0> GO TO 998 
JE = NC 
1 IS N = C 

CO 120 J=JS.JE 
N = N + 1 

120 A( I , J ) = X(N) 

NLINE = NLINE+l 

IF ( FLINE.LE.47) GO TO 125 

IF (IPRIN .EO. 1) CALL PAGEHD 

IF (IPRIN .EO. 1) WRITE (NOT, 2002) ANAME.NR ,NC 
NL I N E = 1 

125 IF ( IPRIN .EO. 1) WRITE (NOT. 2004) I . JS . (A ( I , J) . J = JS. JE ) 
GO T C 110 
C 

C TAPE HEAOING SECTION. 

200 WRITE (NOT ,2003) ANAME , N 1 , N2 . 1 REMRK . I 2 1 , IE 2 , Mm T APE 
NR TAPE - I At) S ( N2 ) 

IF (IREMRM2) .EQ. REWIND) REWIND NR T A Pc 

IF (lflEMRME) ,tO. LIST) CALL LTAPE (N-tTAPS) 

IF (M.EG.O) GO TO 250 
C POSITION NRTAPE. 

READ (NRTAPE) T ID.LN, IECTCK 

NO M = LN+Nl 
IF ( NUM) 205.220.2 l5 
205 NERHCR = 4 

IF ( IlGTCK .EQ. LOT) GO TO 997 

FEAD (NRTAPE) 

NUN - -NLM-I 

IF (Nom.EQ.O) GO 10 250 

CO 210 L— l , NUM / 

FEAD (NRTAPE) Ttu.LN, 1EOICK 

NEFRCR = 5 

IF ( 1E0TCK .EQ. EOT) GO TO 997 

210 READ (NRTAPE) 

CO TC 250 

220 E A CK SPACE NRTAPE 
CO TO 250 
225 REWIND NRTAPE 

NON = (-M-1 ) *2 

IF (NOM.EQ.O) GO 10 250 
GO 2 20 L=1 .NUM 
230 READ (NRTAPE) 

250 CALL R T APE ( I RE MR N ( l ) ■ AN AMt . A . NR . NC . KR . Kc . NR T A PE ) 

WRITE (NLT.200O) NR , NC 

IF (N2 . GT . 0) CALL WRITE ( A , NR , NC , A N A Ml , KR) 

C 

C TAPE WRITING SECTION. 

300 IF ( NWTAFE.LE.O) GO TO 400 

IF (121 .cO. IDOLAR) CALL INTAPE (NWTAPE.122) 

IF (122 .lQ. REWIND) RlwIND NwTAPE 

CALL wl APE (A. NR. NC, ANA NiL ,Kk, NWTAPE ) 

IF ( 122 ,EU. LIST) CALL LTAPE (NwTAPE) 

C 

400 IF (IPRIN ,EQ. 1) WRITE (NOT, 2005) 

RETURN 

c 

997 CALL LTAPE (NRTAPE) 

GC T C 9 9 9 

998 WRITE ( NOT ,2004) l.JS.X 

999 WRITE (NLT.20I0) NLRROR 


0 969 

0 970 

0 971 

0 972 

0 973 

0 974 

0 9 75 

0 976 

0 977 

0 9 73 

0 979 

0 960 

0 981 

0 932 

0 983 

0 984 

0 985 

0 986 

0 987 

C 988 
0 989 

0 990 

0 991 

0 992 

0 993 

0 994 

0 995 

0 996 

0 997 

0 998 

0 999 

0 1000 
0 100 1 
0 1002 
0 1003 
0 1004 

0 1005 
0 1 006 
0 1007 
0 1008 
0 1009 

0 1010 
0 1011 
0 1012 
0 1013 
0 10 14 
0 1015 

0 1016 
0 1017 
0 1018 
0 1019 
0 1020 
0 1021 
0 1022 
0 1023 
0 I 024 
0 1025 

0 1026 
0 1027 
0 1 028 
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20 1C f-OKMM ( 1H i • 42FlPRUuk AM S1LHPL0 , E ft ROW IN 'jjUkJjlINc KtAD* 0 1029 

* lOH NtK«Gft = .15) 0 1030 

S T UP 0 1031 

END 0 1032 


SUERCUT INc h TAPE ( 1 AR UNO . 1 ANA ME • ^.NHA.NLA , .<-t ,Kc,NT APE) 

C 

C DEBUG ft 1 l 

REAL *8 A , l ARUNO. 1 ANAMc . T Apt ID . IEOTCK , I T RUN J • I 1 NAME. 

♦ CA1E* l TYPE ,uEM3E . EOT 
Cl ME NS I ON A( KPi 1 ) 

CAT A «\U I / o / 

CATA DENSE .EOT / iihJENSt .3hcUT / 

C 

C READ MATRIX A F RDM T APC UY IDENTIFICATION OF I Ak j • 1 ANA ME . 

C CALLS F C rt M A SUBROUTINES L T A PE • PAGEHO , Z ZGGMO . 

C CEDED BY WA f) EN FIELD • JUNt 19 66. 

C LAST RCVlSlCN 6Y ft f MRUUA. SEPTEMBER 1971. 

C 

C SUE-RCUTINE ARGUMENTS 

C I ARUNO s INPUT RUN NuMDLk OF MATRIX A. ( A6 FORMAT). 

C I AN AM E = INPUT MATRIX lUENTIH ICATICN. ( A6 FORMAT). 

C A = OUTPUT MATRIX READ FkCM TaPE. SI ZE ( NR A. N CA ) . 

c nka = output number of rcws of matrix a. wul ge read from tape. 

C NC A = UuTPuT NUMOCK LF COLS OF MATRIX A. WILL DC R c AD FROM TAPE. 

C KR = INPUT ROW DIMENSION OF A IN CALLlNu PRUGKAM. 

C KC = INPUT CUL DIMENSION OF A IN CALLING PROGRAM. 

C NTAFL = INPUT NUMBER Lr TAPE. (E.G. 10). 

C 

30 0 1 FORMAT ( 29 H 1 R T APE CANNOT FIND RUNNO = A u / 

* 21 X 8HANAME = A6 / 29 X 6H ) 

C 

NT1ME = 0 

C SEARCH TAPE FUR CORRECT HtADlNG. 

5 READ (NTAPt) T APEIO.LN , ILUICK, l TRUNO.I TNAMS .NR A.NCA.DATE. ITYPE, NNZ 
IF ( I T R U NO .EC. I AkUNJ .AND. I IN A ME .EO. iANAMtZ) GO TO 10 
IF (IE01CK .tQ. lUI) ^ C TO 20 
READ ( N TAPE ) 

CG TC 5 
C 

C MATRIX FAS BEEN FOUND. 

10 NERROR=l 

IF ( HYPE .Nc. Dt-NSc .AND. NNZ .NE. 0) T J 999 

NERROR-2 

IF (NRA.Cr.KK .OR*. NCA.GT.NC) GO TO 999 
READ (NTAPE) ( (A(i.J) .1=1. NRA) , J = 1 , NC A ) 

RETURN 

MATRIX CANNOT L*E FOUNl>. SEARCH TAPE ONCE MORE. 

20 MIME - NTIMEfI 

NERRO«=3 

IF (MIME .cQ« 2) GO TO 998 
RE W I FD NTAPE 
GO TC g 
C 


0 1033 
0 l 034 
0 1 035 
0 1036 
0 1037 
0 1038 
0 1039 
0 l 040 
0 104 1 
0 1 042 
0 l 043 
C l 044 
0 1045 
0 1046 
0 1047 
0 1048 
0 1049 
C 1050 
0 1051 
0 10 52 
C 1053 
0 1 054 
0 1055 
0 1056 
0 1057 
0 1058 
0 1059 
0 1060 
0 1061 
0 1062 
0 1063 
0 1 064 
0 1065 
0 I 066 
0 l 067 
0 1068 
0 1069 
0 1070 
0 1071 
0 1072 
0 1073 
0 1074 
0 1075 
0 1076 
0 1077 
0 1078 
0 1079 
0 1080 
0 1081 
0 1082 
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99& WRITE (NOT, 3001) 1 ARUNO , IANAME C 1083 

999 CALL L r APE (NTAPL) 0 1084 

WRITE 1NCT.3002) NckkUH 0 1085 

3002 FORMAT 1 111 1 . 43FIEHRUR 1M SUBROUTINE RTAPE, PROGRAM STOPPED. 0 1086 

* 10H NERRUR = ,Ij) 0 1087 

E T CP 0 1088 

END 0 1089 


SUBROUTINE WRITE 1A.NR.NL.ANANE.KRI 
C DEBUG « 12 

REAL Ad A .ANA ME 
EX NE NS 1 CN A< KR, 1 ) 

LATA NO 1 / 6/ 

C 

C WRITE MATRIX OF REAL NUMBERS ON PAPER. 

C REQUIRES 123 COLUMN (MINIMUM) PRINTER. 

C UP TO 1C DATA FIELDS PL R LINE. PRINTS C NL V NON-ZERO FIELD ROWS. 

L CALLS F'CRMA SUBROUTINE PAGEFiO. 

C COOED 8 V RL wOHLEN. OECEMbEk 1968. 

C 

c subroutine arguments (all input) 

C A = MATRIX TO BE PRINTED. S1ZEINR.NC). 

C NR = NUMBER OF ROWS IN MATRIX A. 

C NC = NUMBER OF COLS IN MATRIX A. 

C ANAME = MATRIX IOENT IF 1 LA T 1 ON. (A6 FORMAT). 

KR = ROW OlMENSION UF A IN CALLING PROGRAM. 

2010 FORMAT (//15H OUTPUT MAI R i X A6.2X 1HI14.2M X 14, 2H ) // 

* !CX.iO(7X.Ihi 12, 1H))/) 

2020 FORMAT (//15H OUTPUT MATRIX A6.2X 1HII4.2H X 14, 2rl ) 

* 3X . 9HCUNTINUE0 ✓✓ l OX , l 0 I 7 X , l H ( 12.1HI)/) 

203C FORMAT ( IX .2I5.2X, IP10D1 I.J) 

2040 FORMAT ( 14H0ENO OF WRITE.) 

PULL LP A NEW PAGE FOR MATRIX AND PRINT MATRIX NAME. 

CALL PAGEHD 

WRITE (NOT. 2010) ANAME .NR.NC.IL .L=l .10) 

NLINE = 0 

C 

DO 6 C I = 1 , NR 
NZERC = C 
JS = I 

10 JE = JS+9 

IF ( JL .GT. NC) JE-NC 
C SEE IF ELEMENTS ARE ZERO. 

CO 2 C J = JS,JE 

20 IF ( A ( 1 , J ) «NE.. 0.0 0) GO TO 30 

GO TC 40 

3 C NLINE = NLINEH 

IF INLINE .LE. 44) GO TO 33 
CALL PAGLHO 

WRITE (NCT.2020) ANA ME, NR.NC.IL »L - l . 1 0 ) 

NL I N E = 1 

35 WHITE INCT.2030) I . JS, I All . J) . J = JS.JE> 

N2ERC = I 


0 1090 
0 1091 
0 1092 
0 1 093 
0 I 094 
0 1095 
0 1096 
0 1097 
0 1 098 
0 1099 
0 1100 
0 110 1 
0 1102 
0 1103 
0 1104 
0 1105 
0 1106 
0 1107 
0 1108 
0 1109 
0 1110 
0 1111 
0 1112 
0 1113 
0 1114 
C 1115 
C 1116 
0 1117 
0 1118 
0 1119 
0 1120 
C 1121 
0 1122 
0 1123 
0 1124 
0 1125 
C 1126 
0 1127 
0 1128 
C 1 129 
0 1130 
C 1131 
0 1132 
0 1133 
0 1134 
0 1 135 
0 1136 
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40 If- ( J£ .tO. NC> GO TO 50 
JS = JS*10 

GO T C 10 

C SKIP A SPACE BETWEEN EACH RC* IF THERE ARE MOKE THAN 10 COLUMNS 
C AND SOMETHING HAS BEEN WRITTEN. 

50 IF (NC.LE.IO .OH. NZERO.EO.O .OR. l.EO.NR) GJ TO oO 
NL I NE - NL INE* l 
WRITE (NOT. 2030) 

6 C CONTINUE 
C 

WRITE (NCT.2040) 

Pc TURN 
END 


0 1137 
0 1138 
0 1139 
0 1140 
0 1141 
0 1142 
0 1143 
0 1 144 
0 1145 
0 1146 
0 1 147 
0 1148 
0 1 149 


C 


C 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE W TAPE ( A , NR A . NC A . A NAME . KR , N T A^> E ) 

REAL «fi A .ANA ML . IRUNNO. DA T E • UN A ME , T I TLE 1 . T1 1LE2 • 

* duF .EO T , DENSE • T mPE ID. I tOTCK 

C l ME F SI ON A (KR , l ) 

COVMCN /Lb TAR 1/1 RUNNO. DATE . NP AGE 

CO MM C N /LSTkTl/ UN/.ML { 3 ) • T I 1 l£ l ( 1 2 ) . T I TLE2 ( 1 2 > 
LATA EuF*EUT .DENSE/ 0 . D 0 . 3HEU T . 5HOENSE/ 

LATA N U T / O / 


DEBUG * 13 


WRITE MATRIX A CN TAPt. 

INITIALIZE TAPE WITH SUBROUTINE INTAPE. 

PEW INC TAPE 3EF ORE FIrST USE OF THIS SUBROUTINE. 

RCIE...THI5 ROUTINE IS uESiONcD SPECIFICALLY FUR W R 1 f I ON A DISK 

(EG CuC— 640 0 DISKI. USING THIS ROUTINE TU WRITE ON A PHYSICAL 
TAPE DIRECTLY (IE WITHOUT USING THE DISK AS AN INTERMEDIARY) 
WILL. PROBABLY GIVE POOR RESULTS (DUE TO Hd TuLERANCE 
CHARACTER 1ST ICS Or A TAPE DRIVE) AND jHLUlJ DC AVOIDED IF AT 
ALL POSSIBLE. 

...THE CDC-6400 DISK IS AUTOMATICALLY cNj- IL-J AF TER EACH WRITE. 
CODED BY W A BENFIELD. MARCH 1906. 

REVISED BY R A PHlLiPPUS. APklL 1969. 

REVISED BY RF HRUDA. NOVEMBER 1970. 


SUERCUTINE ARGUMENTS (ALL INPUT) 

A = MATRIX TO tit WkllTLN GN TAPE. S l ZE (Nk A , NL A ) , 

NR A s NUMBER OF KCwS OF MATRIX A. 

NCA = NUMBER UF COLS Or MATRIX A. 

ANAME = MATRIX IDEN1 IF ICAT 1UN. (AO FORMAT). 

KR = ROW DIMENSION OF A IN CALLING PROGRAM. 

MAP£ - NuMBcH OF TAPE. (E.G. 10). 


INTERNAL VARIABLES THAI ARE PUT ON TAPE < T RAN‘3 = eft RED THRU COMMON). 
C IRUNNL IS RUN NUMBER Or PROBLEM. <A6 FORMAT). 

C DATE IS BAIL. ( A6 FORMAT). FuR EXAMPLE ISFduu. 

C 

IF (FRA .LT. 1 .OR. NCA .LT. 1) GO TO 999 
C 

C SEARCH TAPE FOR END OF WRITTEN DATA. 

10 READ (NTAPE) T APEIO. LN . I EUl CK 


0 1150 
0 1151 
0 1152 
0 1153 
0 1154 
0 1155 
0 1156 
0 1157 
0 1158 
0 1159 
0 1160 
0 1161 
0 1 162 
0 1 163 
0 1 164 
0 1165 
C 1166 
0 1167 
0 l 168 
0 1169 
0 l I /O 
0 1171 
0 1172 
0 1173 
0 1174 
0 1175 
0 1176 
0 1177 
0 1178 
0 1179 
0 1180 
0 1181 
0 1182 
0 1183 
0 1184 
0 1185 
0 1186 
0 1 167 
0 1188 
0 1189 
0 1190 
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IF ( IEGTCK .EQ. EOT) GO TO 20 
RE AO (NT APE) 

CO TC (0 

EM) OF WRITTEN DATA HAS BEEN FOUND. 

20 EACKSFACE NT APE 

WRITE (NTAPE) FAPlU).LN. BUF , I R UNNO .ANAME. NRA. MCA .DATE .DENSE , 
* ( 8 OF ,1 = 1 *10) 

•RITE (NTAPE) (1AI1.J) ,1=1 iNRA ) , J= 1 • NC A ) 

LN = LN 4 1 

•RITE (NTAPE) T APE1D.LN .EOT . ( BUF, I =1 . 1 6 ) 

EACKSPACE NTAPE 
RE TURN 

959 WRITE (NET. 1000) 

1000 FORMAT ( 1HI , 43HERROR IN SUBROUTINE • T A PE . PROGRAM STOPPED.) 
STOP 
END 


0 1191 
0 1192 
0 1193 
0 1194 
0 1 195 
0 1196 
0 1197 
0 1198 
0 1199 
0 1200 
C 1201 
0 1202 
0 1203 
0 1204 
0 1205 
0 12 06 
0 1207 
0 1208 


subroutine ltape (ntapei 

DEBUG ft 

REAL48 TAPE! D, IRUNNG. ANAME , IEOTCK. CATE , l T/PE.tCHK, EOT . 

* CENSE. SPARSE .SPART 

CATA NOT / 6/ 

CATA EOT .DENSE. SPARSE. SPART/ 3 HEO T . 5 HUE NSE . OH S P ARSE . S H SP ART / 


1 4 


C 

C 

C 

C 

C 

c 

c 


LIST READINGS OF MATRICES UN TAPE. 

CALLS FCRMA SUBROUTINE PAGEHO. 

CODED BY RF HK UOA . JULY 1 9o8 • REVISED NOV-MUlR 
REVISED BY R A PHIUPPUS. APRIL 1569. 

SUER C U T I NE ARGUMENTS (ALL INPUT) 

NTAFE - NUMBER CF TAPE. (E.G. 10). 


19/0. 


2001 FORMAT 

2002 FORMAT 
* 

2003 FORMAT 

* 

* 

* 

2004 FORMAT 
20 0 S FORMAT 


I//36X33HLISTING CF MATRICES ON LOulCA_ UN1T13.7H, TAPE A6 ) 
l //SO X35HL 1ST ING OF MATRICES ON LOolCA. UN1TI3.7H. TAPE A6, 
12H (CONTINUED)) 

( 2 7 Xu 9. ( IH- )/2 /X JHNO. 3X7HRUN NO . 4 X4rt H AME j < 3HNRU W S4 X 5HNC0L S4X 
4H0ATEOX3HNNZJX9HPART I TICN/ 

27 X 3H 3X.6H 4X 6H 4XSH 

4X5H JX6H 5X3H 3X9H / ) 

(25X15. 3X AU.4XA6. 3X15. 4X15. 4XA6.3Xl3.3Xl4, l H/ 14) 

(/27X12HENO UF LIST.) 


REWIND NTAPE 
READ (NTAPE) 
REMIND NTAPE 
L=C 


T APE l D 


12 CALL PAUEIID 

IF ( L .EC. 0) WRITE 

IF ( L • NE • 0) WRITE 

WRITE (NOT, 2 003) 

NL INC = l 

13 L—L-F 1 


( NOT .2001 ) 
(NUT ,2002) 


NTAPE, TAPEID 
NTAPE, TAPE1J 


0 1 209 
0 1210 
0 1211 
0 1212 
0 1213 
0 1214 
0 1215 
C 1216 
O 1217 
0 1218 
0 1219 
0 1220 
0 1221 
0 1222 
0 1223 
0 1224 
0 1225 
0 1226 
0 1227 
0 1228 
C 1229 
0 1230 
0 1231 
0 12 32 
0 1233 
0 1234 
0 1235 
0 1236 
C 1237 
0 1 238 
0 1239 
0 1240 
0 124 1 
0 1242 
0 1243 
0 1244 
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c 


READ (UTAHL) T APE l U. LN , l EOT C* , I RUNNC . ANAMz , INK. 

NC.JATti I TYPE .NNZ • 

0 

1245 

f.P , NPI 


0 

1 246 

IF (L .EC, 1) l CHn = liUNNJ 


c 

1247 

IF ( I Ciix .EG • I RUNNU J oo TO 15 


0 

1248 

NL I NE =NL I N fc> 1 


0 

1249 

WRITE (NUT. 2004) 


0 

1250 

ICHK = 1KUNNC 


0 

1251 

IF ( lEUTCK .CO. tul ) JO 10 JO 


0 

1252 

READ (NTaPL) 


c 

l 253 

If ( ITYPE .60. ) -KITE (NOT. 2004) 


0 

1254 

LN i I RUN NO i ANA ME «NK . NC 

. DAT l. 

0 

1255 

IF ( ITi'PE .EG* LLNbE ) oO TO 20 


0 

1256 

IF (ITYPE .EG. SpAk St: ) a KITE (NOT, 2004) 


0 

l 257 

LN . 1 V. UN NO , A NAME .NK , 

. J A T C . N NZ 

0 

1258 

IF (ITYPE .cO. bPARbc) oU TO 20 


0 

l 259 

IF (ITYPE .cU. SPAR T ) WRITE (NUT.2C04) 


0 

1 260 

LN . 1 K UN NO , A NAME .HR .NC 

. i>AT E.NNZ »NP i NPT 

0 

1261 

IF ( ITYPE .EQ. 5PART ) UL TO 20 


0 

1 262 

WRITE (NC;T,2u04) LN . i KuHNO • mN 4M£ • NR . NC , I Ty Pt 


0 

1 263 

NL IN E sNL INE F 1 


0 

l 264 

IF(NL I N L • J T .43) GO TO 1e 


0 

l 265 

GC T C l J 


0 

1 266 



0 

1 267 

WRITE (NCT.2004) LN.ltOTCK 


0 

1 268 

WRITE (NLT.2005) 


0 

1 269 

REWIND N TAPE 


0 

1 2 70 

RE IUFN 


0 

1 271 

END 


c 

1272 


SUtiRCUTlNE M SMODC liNBOD ) 

C DEBUG * 15 

IMPLICIT NtAL«6(A-h,U-t) 

C 

COMMON /MAXMUM/ 

* NOMAX . NHMAX • NsPMA X * NMttMAX • N. MW BOD .NMOuJj. K M J %K Y , K. U 

COMMON /NUNS / 

* NHPCK a)* NSPuK o) 

COMMON /NUKtiRa/ 

* ikC ,UN£ » T » fkcb 

COMMON /SPuClF/ 

$ Ul T AH ( 6 » 6 ) • i)L T AH D l 6 • 6) .AM 0(2. 5 ) » PH ( »U^(3*3»30) » 

* Ch{ 3» 3‘j ) »DS( 3i 30 ) • l MU ( 3 . 5)*NMCW(ot o > . I r T iMW ( l 5 ) . 

* NO . NH .NSPT , NOE MU. NJELT A, I TCPOL ( 2 • 6),IRoF_X( o ) ♦ l HD AT A ( 7 * 6). 

* LLCL( 14 ) ,LtNU( H) ,NuiN01£TA,NLAN,NEQ 

COMMON /5UMMKY/ 

* ASUMRYi 15.6) • lSuMRY < 1S.S) .KSUMRY 

COMMON /TAPcNO/ 

* N TAPE l . NT APE2.Nl AP£3 
C 

DIMENSION A ( 42. 4<i),0( 42. 42).IV< 42).JV( 42 ) . C ( o . o ) . PHR 6 ( 6 .6 ) • 

* BC ( 9 . 12 ) . »St( 12.1 2 ) 'WS2< 12. 12) . CM2( 42) , UMG A2 ( 1 6 ) . JOOF ( 7.6) 

C 

CATA M T .NOT .KAO.KJUOF/ s , u . 42. 7 / 

1001 FORMAT < 161 6 ) 

1 002 FORMAT l CD 10*3) 


0 1273 
0 1274 

0 1275 
0 1276 
0 1277 
0 1278 
0 1279 

12 1280 
0 1281 
0 1282 
0 1283 

16 1284 

17 1285 

18 1286 

19 1287 

0 1288 

9 8 12 89 
0 1290 
0 1291 
0 1292 

61 1293 

62 1294 
0 1295 

63 1296 
0 1297 
0 1298 
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300 1 FORMAT ( /✓ ISX30HSUMMAR Y OF 1NPLT CAT A FOR 3UD7.13, 

* 4 4 H WHICH 15 F'LEXIUCE W/CONSI STENT MASS MATRIX.// 

* 3X4<IhIFE INTEGER PARAMETERS I F POM . I F 01 A X . i r U I AO ARE5XI2.1H. 

* 5* 12 , 1H.5XI2 . // 

4 JXiSHTHE JOOF TADLE FOLLOWS ) 

3002 FORMAT 1//3X36HTHE MODE SELECTION VECTOR FOLLOWS ) 

3003 FORMAT 1//3XI2HFUR bOUY N0..13.25H THE POSITION VECTOR FROM 
A 25 H THE ECDV ORIGIN TC JOINT. 14, 3H IS. / 

* 10* 4HX = IPO 10 «Ji SASH Y = 1PC10.3.5X5H L = 1PD10.3) 

3004 FORMAT I//5X46HTHL CONSISTENT. REPARTI T I ONED MASS MATRIX IS ) 

30 C 5 FORMAT I//5X36HTHE REPARTITIONED MCCAL MATRIX IS ) 

3006 FORMAT I//5X44HTHE - U NO eF CRiME D- INERTIA MaIRIX (Msl IS ) 

3007 FORMAT I//SX27HTHE A COEFFICIENTS ARE ) 

3008 FORMAT I//SX27HTHE fa COEFFICIENTS ARE ) 

3 009 FORMAT I//5XJ1HTHE CUFXY COEFFICIENTS ARE ) 

3010 FORMAT 1//sX31HTHl CUFxZ COEFFICIENTS ARs ) 

3011 format I//5X31HTHE CGF Y L COEFFICIENTS ARE J 

3012 FORMAT I//SX31HTHC U 1 COEFFICIENTS ARE > 

3013 FORMAT I//SXJ1HTHE C22 COEFFICIENTS ARE J 

3014 FORMAT I//5XJIHTHE C33 COEFFICIENTS ARE > 

3015 FORMAT I//SXJ1HTHE C12 COEFFICIENTS ARE ) 

3016 FORMAT I//5X31HTHE C13 COEFFICIENTS ARE ) 

3017 FORMAT 1//5XJ1HTHE C25 COEFFICIENTS ARE ) 

30ie FORMAT I//SX33HTHE MODAL STIFFNESS MATRIX IS ) 

3019 FORMAT 1//5XJ1HTHE MODAL DAMPING MATRIX 15 > 

3020 FORMAT I//5X50HTFE INITIAL MOO AE COGROINATu J i ^PLACEMENTS ARE ) 

302 1 FORMAT ( //5X 4 IHT HE INITIAL MUOAL COORDINATE VELOCITIES ARE ) 

3022 FORMAT 1//5X 9HF0R DODY I5.29H THE P-Q HIN5E Nu.. THE EULER 

* 57H ROTATION TYPE AND THE JOINT NC. C ORRc s PON 0 1 No TO THE P -O . / 

* SXS4H HINGE APPEAR IN THE FOLLOWING INTEGER ARRAY WHICH IS 

* 4SHFCLLUWED fa* AN AkRAY CONTAINING EULER AVGLeS THAT,/ 

* 5 X 4 4 H PCS I T ION THE HINGE TRIAD WRT THE 3D J Y liUAJl 

3023 FORMAT (//fax 9HFGR bOuY 1 J. 32 H THE SENSOR POINT NO.. I HE EULER 

* 60 E ROTATION TYPE AND THE JOINT NO. CORRESPOND 1 NG TO THE SENSOR,/ 

+ 6X53 FPG I NT APPEAR IN Tilt FOLLOWING INTEGER ARRAY WHICH IS 

* 49HFCLLOWLU BY AN ARRAY CONTAINING EUlER ANGLES THAT,/ 

* 5X4EH PGSITION THE SENSOR TRIAD WRT THE UJDY IRIaD) 

C 

RE WIND NTAPE2 
KMC A N MOO OD 

CALL ZERO < DC , S ,KMO, 9 ) 

READ (N IT. I00l> I FkBM , I D l AK , I O I AD 
CALL READIM ( JDDK .NX .No.KJOOF , 6) 

1C = 0 
DO 2 J - I . o 
CO 2 1 = 1, NX 

NDF ■= JUCFI 1 , J 1 
IC = IC + 1 
2 IVINCF) = IC 

CALL RE AC l M ( J V , N l , N2 . t . K AO ) 

NY = NX 
NZ = NX 
NMC * O 
CALL PAGEHD 

WRITE (NOT. 3001) NfaDD . IF RBM , I D I AK , IDI AD 
CALL WRITIS ( JOOF .NX . 6 .K JUOF) 

WRITE (NOT, 3002) 

CALL wRITIS (JV.I.N2.1) 

C 

CO 3 1=1, N2 


0 1299 
0 1 300 
0 130 1 
0 1302 
0 1303 
0 1 304 
0 1 305 
0 1306 
0 1307 
C 1 308 
0 1309 
0 1310 
0 1311 
0 1312 
0 1313 
0 1314 
0 1315 
0 1316 
0 1317 
0 1318 
0 1319 
0 1320 
0 1321 
0 1322 
0 1323 
0 1324 
0 1325 
0 1 326 
0 1327 
0 1328 
0 l 329 
0 1330 
0 1331 
0 1332 
0 1333 
0 1334 
0 l 335 
0 1336 
0 1 337 
0 1338 
0 1339 
0 I 340 
C 1341 
0 1342 
0 1 343 
0 1344 
0 l 345 
0 1346 
C 1347 
0 1348 
0 1349 
0 1350 
0 1351 
0 1352 
0 1353 
0 1354 
0 1355 
0 1356 
0 1357 
0 1358 
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c 


c 


IF ( JV( I > .EG. 0) GO TO 3 
NMC = NMO * 1 

3 COM INUE 

IF (NMO .GT. KM O + 6) GO TO 999 
CALL ROAD ( A. NRA ,NCA .KAd, KAO ) 

CALL REVISE ( A . I V • 1 V , B >NRA . NC A ,NR A ,NRA , KAt), KA3 ) 
WRITE (NTAPtZ) ( ( Q( I , J ) . 1 = l , NR A ) . 3= 1 , NR A ) 

REwlNG NIAPt2 , 

CALL HEAD ( A.NRA.NMUI .KAb.KAB) 

IF (I01AK .tO. 0 .AND. I LIAO .EG. 0> GO TJ 11 
CALL KEAC (0M2,Nl,W,l,AAB) 

1 1 NE = NMC - G 

CALL fitVISc ( A, l V , JV , 0 ,NKA . NMUT ,NR A .NMO .KAa.KAb) 
IF IIOIAK .EG. 0 .ANG. IDlAu .EG. 0) GO TO \ >Z 
CALL RLVIbE (UM2, 1 , JV. 0MGA2. 1 . N2. 1 .NMO. 1 .1 ) 

12 IF ( IFREM .tG. 0) jG TO 0 
READ (NIT* 1001} JTTPCl 
F t AG (NIT, 10 02) ( OM2 ( J ) . J= l , 3 ) 

WRITE (NOT. 3003) NCUD . J T YPLL . C M2 < 1 ) . C M2 ( 2) , GM2 ( 3 ) 
JR 6 = JTYPCL - NX 

CO 4 1=1,6 
JR E = JRb + NX 


0 1 359 
0 1360 
0 1361 
0 1362 
0 1363 
0 1364 
0 1365 
0 1366 
0 1367 
0 1 366 
0 1369 
0 13 70 
0 1371 
0 1372 
0 1373 
0 1374 
C 1375 
0 1376 
0 1377 
0 1378 
0 1 379 
0 1380 
0 1381 


4 


26 


CC 4 J = 1 ■ G 

0 

l 382 

FHH6CI.J) = d(JRd.J) 

0 

1383 

CALL G«U6Sl (PHR6.C.6.6) 

0 

1384 

CALL ZEMC ( PHR6<4,4) . 3,3,6) 

0 

1385 

CALL UNITY ( PHR 6 ( l . 4 ) . 3 . G ) 

0 

1386 

CALL UNITY ( PHK 6(4,1), 3,6) 

0 

1387 

CALL 3K.tV.V3 (0M2 ,PU«6. 1.6) 

0 

1 388 

CALL MJLTA (C.PHRo.G.6,6.6 ,o) 

0 

1 389 

CALL MuLTA ( 8 , C ,Nk A, 6 , o .KAb.u ) 

0 

1 390 


0 

1391 

RE AO (NTAPL2) ( l A( I . J ) , l =1 , NR A ) , J= 1 . NR A ) 

0 

1 392 

REV.INO N1APE2 

0 

i 393 

WRITE (NCT.J004) 

0 

l 394 

CALL A A 1 TEG (A , NRA , NRA ,KAb) 

0 

1 395 

WRITE (NLT.JOOG) 

0 

l 396 

CALL WRITES (d .NRA ,NMU ,KAG) 

0 

1397 


0 

1 398 

CALL dTAtiA { A , t) , NR A , NMO . K AG , K A B ) 

c 

1399 

WRITE (NOT. 3 UOo ) 

0 

1 400 

CALL WRITES (A , .Si.JO , NMu ,K A 0 ) 

0 

l 40 l 

WRITE (NT APE 1 ) ((Ail ,3) ,J=1 , NMC), 1 = 1 , NMO) 

0 

1402 

CO 2 E J = ) , NE 

0 

1 403 

jPG = J + 6 

0 

1404 

CM2 ( J ) = A < JPG, J Po ) 

0 

1405 


0 

1 406 

RE AG (NTAPt-2) ( ( A ( l , J ) , 1 = l , NR A ) , J= l .NR A ) 

0 

l 407 

REWIND NTAPL2 

0 

1408 

NR F = 3 4 NX 

0 

1409 

CALL MULTA ( A , 8 , NRP , NR A . NMO • K A 8 , X A 0 ) 

0 

14 10 

CAUL Zc_RL ( UC . 9 . NE , 9 ) 

0 

14 11 

CO IE J=l,Nt 

0 

14 12 

K = C *■ J 

0 

1413 

CO IE . X = l . NX 

0 

14 14 

IY = IX + NX 

0 

14 15 

I Z = l Y ♦ NX 

0 

14 16 


L : C(1.J) = GC(l.J) + A(lZ,<*)*d(IY,K.) - A(IY,4)«u(iZ.K) 0 1417 

cC (2,3) = rJC ( 2 . J ) + A(1Z.G)*U(IY,K) - A(Ir,d)*G(lZ.K) 0 1418 
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ec< 3 ,j) = BC t 3 . J ) * At IZ , 6 ) *B ( I ¥ ,K ) - At IY ,o)*6t IZ.X) 
ECt4.J> = 0C14.J) * At IX, 4) *8t 1Z.K > - At IZ.4)*8t IX.K) 

EC 15 .J ) = 8 Ct 5 .J> + At iX ,5 i *Bl IZ.K ) - At IZ, 5 >* 8 t 1 X.X) 

ect 6 ,j) = 8 C 16 .J) +■ At IX . 6 ) *8 t IZ . K I - A ( JZ . 6 J ♦ B t i X , K) 

BC 17 .J) = 8 Ct 7 *J) E At l Y .4) *Bt IX.X > - A t IX , 4 ) *8 1 1 Y , X ) 

ECta.J) = 8 C 18 .J) *■ At I Y .6) *8 t IX.K ) - A I IX . 6 ) « 8 1 l Y , K ) 

EC t 9 , J > = BCI9.J) + At lY,o)*Bl IX.K) - At IX, o) *dt t Y ,K) 

15 CONTINUE 

WRITE t N TAPE l ) t tbCt l , J > , J=l ,NE ) . 1 = 1 .9 ) 

WRITE ( NET ,3007) 

CALL WRITES t8C , 9 , Nfc , 9) 

CALL ZERG tBC,9,Nt,9J 

co it j=i,ne 

X = t * J 
CO It IX=1,NX 
IV = IX + NX 
IZ a IY + NX 

ECtl.Ji = BC I 1 «- J ) + At IZ , 1 ) *0 t I Y ,K ) - At If , 1 )*3t IZ.K) 

ECta.JJ = BC t 2 , J ) +■ At IX, Z) *B( IZ.X ) - At IZ,z)*8t 1A.XJ 

ECtS.J) = BCt3»J> + At 1 Y .3) *8 t I X.X ) - At lx.J>*8t IY ,X) 

EC 1 4 , J > = 8C14.J) +■ At IZ, 1)48 t IX.K) - AtlX.l)*atlZ.X) 

4 + At I Y ,Z ) 48 t IZ ,X) - At IZ,2)*8i IY,X) 

BCtS.J) - L)C f 5 • J ) <■ A t IX . 1 ) 48 t I Y , X ) - At IY, 1 >461 IX.K) 

* * AtlY,J)48tIZ,X) - AtIZ, 3)4 a lIY.X) 

ECto.J) = BCf6,.J> * A t 1 X ,Z ) 48 t 1 Y,K ) - At IY ,Z)4Bl IX. X) 

* 4 At IZ , J> 48 ( IX.K ) - At IX,3)4Bt IZ.X) 

It CONTINUE 

WHITE tNTAPEl) t tbCt I , J) , J= l ,NE > . I =1 .6 ) 

WRITE t NOT , 3 008) 

CALL WHITES tHC , 6.NE , 9) 

CALL ZERO t WS1 .NE.NE.KMC) 

CO 17 I=I,NL 
KI a fc * I 
DO 17 J= l.NC 
KJ a 6 + J 
CO 17 IX-l.NX 
IY a IX 4 NX 
IZ = IY 4 NX 

WSl(l.J) = WlSlU.J) 4 Bf IX.KI ) 4AC IY.KJ > - 8t lr . XI )4At IX, KJ) 

l 7 CO NT I NUE 

WRITE INTARLl) t t»Slt l ,J), J=1 .NE) . I = l . NE ) 

WRITE INCT.U009) 

CALL WHITES t WS 1 * NE ,NL ,XMG) 

CALL ZuRC t wSl . NE .NE , KMO) 

CO IE I = l . NE 
KI a 6 4 I 

CO l£ J=1,NE 
KJ a 6 4 J 

CO I £ I X=l .NX 
IY a IX 4 NX 
IZ a IY 4 NX 

WSl(l.J) = WSItl.J) 4 8t 1 Z. XI ) 4A t I X ,KJ ) - Bt IX. XI )4At IZ.XJ) 

IE CONTINUE 

WRITE tNTAPEl) t ( wSl t I , J ) , J= 1 , NE )', 1= 1 , NE ) 

WHITE t NCiT .3810) 

CALL WHITES tWSl.NE . NE ,XMC) 


0 1419 
0 1420 
0 1421 
0 1422 
0 1423 
0 1 424 
0 1425 
0 1426 
0 1427 
0 1428 
0 1429 
0 1430 
0 1431 
0 1432 
0 1433 
C 1434 
0 1435 
0 1436 
0 1437 
0 1438 
0 1439 
0 1 440 
0 1441 
0 1442 
0 1 443 
0 1444 
0 1 445 
0 1446 
0 1447 
0 1 448 
0 1449 
0 1450 
0 1451 
0 14 52 
0 1453 
0 1454 
0 1455 
0 1456 
0 1457 
C 1450 
0 14 59 
0 1460 
0 1461 
0 1462 
C 1463 
0 1464 
0 1 465 
0 1 466 
0 1 467 
0 1468 
0 1 469 
0 1470 
0 1471 
C 1472 
0 1473 
C 14 74 
0 1475 
0 1476 
0 1477 
0 14 78 
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CALL 

2LHC (toSi.NL.NE.KML) 

0 

14 79 

DO l « 

I = 1 . NC 

0 

1480 

Kl ~ 

fc * 1 

C 

148 1 

oo i <; 

J = 1 , Nt 

0 

1 482 

K J = 

6 + J 

0 

1463 

CO 1 S 

ix = i .NX 

0 

i 484 

I V = 

IX + NX 

0 

1 485 

IZ = 

l y ♦ nx 

c 

I486 

to 5 l ( I 

.J) = WSl(I.J) *- bUY.Kl ) *AUZ.KJ) - d( IZ.Kl )*A( IY.KJ) 

0 

1487 


IS CONTINUE 

wRITt (NTAPLl) < tWSlt l ,J), J=1 .NE) . 1=1, NS> 
W I I E ( her ,3 0 1 l ) 

CAl.L. WRITES (ViSt.NC .NE »KMO) 

LX - l 

LY = LX + NX 
LZ = LY ♦ NY 
SI = C.NE 

READ (NTAPE'2) ( ( A ( i • J ) ti=l(KKA)iJ=l ( NPA) 


C ALL ZERC ( '.VS 1 .Nt ,NL . KMC) 

CALL PRJ < A( LZ .LZ) .8 ( LY, 7) , olL Y ,7) ,WS2 . wSl . 

* KAE.KAE .KAB.KJULY iKMul 

CALL PR 3 l A ( LZ .LY ) ,6 C LZ . 7) . bl L Y , 7 I , Wi S2 . W SI . 

* KA E . K A L ,KAB , K JDUh , KMO ) 

CALL ERJ tA(LY.LZ>.UtLY,7>,BtLZ.7).WIS2.WSt. 

* KAE ( KAfc,KAd,KJCH> ■KMC) 

CALL PR 2 (A( LY.LYI.blLA, 7).b(LZ.7) .HSZ.aSl. 

* K A E . K AE ,KAd . K JOCH . KMG ) 

WRITE (MmPLI) t < WSl ( 1 . J ) . J-l . NE ) , I = l , NE ) 
HRITE 1 NOT ,3012) 

CALL ak 1 It b I Yv S 1 , Nt » NE iKMCt 
CALL ZcRC USl.NciNE.KMU) 

CALL Fftj ( A ( LX .LX ) ,D ( LZ, 7) ,d(L Z . 7 ) .WS2 . WSl . 
A K A E , K At , KA 3 ,K JOCt , K.WO ) 

CALL PK 3 (A(LX.LZ).b(LX,/) .k(L7.7) ,ttS2.WSl. 

* KA E .K AE ,KAd ,K JJLF , KMU) 

CALL PK3 (At LZ .LX ) ,B (LZ. 7> , BtL X ,7) .WS2 . WS1 . 

* K A E . K At ,KAd , K JDUE . KMCl) 

CALL PK3 (AtLZ.LZ),UlLx.7>.BtLX.7).WS2.WSl, 

* K AE . K At) .KAb .K.JOCE , KMU ) 

WRITE ( MAPL 1 ) l ( <ibl ( I . J ) . J-l . NE ) . 1 = l ,NE > 
WRITE (NCT. 30 13) 

CALL WRITES (WSl.Nt .NE ,KMG) 

CALL ZERO ( WS 1 .Nc . NE . KMU) 

CALL PR 3 (A(LY.LY) *b(LX« 7) , b ( L X • 7 ) .WS2.WS1. 

* KAE .KAE.XAb.K JOUK.XMb) 

CALL P(<3 l At LY ,L X ) .b ( L Y , 7) ,B< L X .7 ) ,WS2 . WSl . 

* KA E ,K AE .KAB ,K JOGE . KMG) 

CALL PR 3 (A(LX.LY) ib(LX. 7] .b(LY.7> .WS2.W51 * 

* KAE .KAE, KAB, K JOBE .KMU) 

CALL PR 3 ( At LX .LX) .BtL Y . 7) .Ul L Y ,7) .WS2 . WSl . 
A K AE , K A6 .KAU.K JuGE . KMU) 

WRITE (NT APE 1 ) ( ( WSl ( I . J ) . J = » .NE > , 1= 1 ,N6> 

WRITE ( NCT ,3014) 

CALL WRITES (WS1 .NL .NE ,KMC) 

CALL ZERO l WS l .Nil. NE .KMU) 

CALL PR J ( A(LZ.LX) ,B(LZ. 7) .BILY.7I .WS2.WSI . 


S i . NZ . NZ , NE , NE . 
-SI .iNt.NY » Nt * NE , 
-S I . NY , NZ, NE . NE , 
31 . NY , NY . NE . NE , 


Si . N a.NX.NE.NE, 
-SI , NX , NZ . NE .NE , 
-Si . NZ. NX , NE .NE , 
Si .NZ.NZ.NE.NE, 


Si . NY . NY . NE .NE . 
-Si . NY . NX . NE .NE . 
•St , NX . NY . Nt . NE . 
Si , NX. NX. Nb.NE, 


-Si .NZ.NX.NE.NE, 


1488 

1489 
I 490 

1491 

1492 

1493 
1 494 
l 495 
1498 
1 497 
1 498 
1 499 
1S00 
1 50 1 
1 502 
1503 
l 504 
l 505 
1506 
1 507 
1 50b 
l 509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 
1 520 
1 521 

1522 

1523 

1524 

1525 

1526 
152 7 

1528 

1529 
1 530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 
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* KAE ,NA6 ,KAG ,K JOoF . KMO) 

CALL PR 3 ( At LZ ,Li) .at LX. 7) , tilL Y .7 ) ,WS2 . WSl . S l . M2 , NZ . NE , NE . 

* KAE . K Afc ,KAB .K JOCF , KMC) 

CALL PKJ ( A( L Y .L X) ,o(LZ . 7) , d( L 2 , 7 ) , WS2 . WSl . 5 i . N V . N A , NE , NE . 

* KAE .KAE.KAB.KJDGF ,KMO) 

CALL PKJ ( A{ LV .L 2) . tj ( LX . 7 J . U( L 2 .? I . WS2 . WSl ,-Sl . NY . NZ. NE ,NE , 

* KAE .KAE.KAB.KJDGF .KMU) 

WRITE (NT APE 1 ) < ( kb 1 ( I • J i . J= l . NE ) . I = 1 . NE ) 

WRITE INCT.301S) 

CALL WRITES (WSl « NE .NE .KMU ) 

CALL 2t«t (WSl* Nt . Nt ■ K MO ) 

CALL PR J ( A ( LZ ,L Y) ,U(LX. 7) ,B( L Y , 7 > . WS2 . WSl ,-Sl , NZ, NY. NE .NE. 

* KAE .KAB.KAO.KlJOCf .KMU) 

CALL PR J ( A( LZ ,LX) ,B(LY . 7) ,B(LY. 7> ,WS2. WSl , S l . N Z , Nx , NE , NC , 

* KAE .KAE .KAD.KJDUF ,KMU) 

CALL PKJ l A( LY ,LY ) ,Bl u A . 7) ,U(L 2 , 7 > ,WS2. WSl , S 1 . NY . NY , NE , NE , 

* KAE , K AB .KAO.K JJUF « KMQ ) 

CALL PN3 ( A( LY ,LX) ,t>(LY. 7) .BIL2.7 1 ,WS2. WSl ,-Sl .NY, NX, NE .NE, 

* KAE, KAE, KAU.KJOGF, KMU) 

WRITE (NT APE 1 ) ( ( WSl ( I . J ) . J=1 . NE) . 1 = 1 . NE ) 

WR ITE ( NCT , 3016) 

CALL WRITES (WSl.NE ,Nh .KMC) 

CALL ZtRG ( WS 1 .Nh . NE .KMU ) 

CALL PR3 (A( LX.LY ) .(3(LX. 7) ,U(L 2.7) ,WS2. WSl ,-Sl .NX.NY, Nfc.NE, 

* KAE .KAE.KAti.lCJOUf- ,K.WG) 

CALL PR 3 ( Al LX, LX) ,B(LY , 7) ,U(L 2 , 7 ) .WS2 . WSl , S l . NX . NX . NE , NE . 

* KAE ,K Ab.KAB ,K JDOF , KMU) 

CALL PR 3 l A( LZ ,L Y) ,£)( LX, 7) ,B( L X .7 > ,WS2 . WSl , S 1 . NZ . NY . NE , NE . 

* KAE .KAb.KAD.KJO OP .KML) 

CALL PR 3 ( A( LZ ,LX) .LILY . 7) . ti(LX .7 ) ,WS2 . WSl ,-Sl .NZ.NX.NE ,NE. 

* KAE.KAE.KAU.KJU OF .KMU) 

WRITE (NIAPE1) ( (wSi( l .J ) » J— 1 .NE),I=1.NE) 

WRITE (NCT.30I7) 

CALL WHITES (WSl. NL ,Nt . KMQ I 

IF (IG1AK .EG. 1) GO TG SO 
CALL StAC ( A ,NR A ,NLA ,KAt) .KAu) 

CALL dTAEA ( A , B ( l , 7 ) , NR A . NE . K A G . K A £3 ) 

CO TC ol 

SC CALL ZERO ( A .NE.NC.KAd) 

00 5E J— 1 , NE 
JP6 = J ♦ G 

5 S A(J.J) = 0M2 ( J) *0M„A2( JP6) 

51 WRITE (NTAPE1) ( ( Al 1 , J ) , J= 1 .NE > , 1= 1 , NE ) 

WRITE (NOT, 3 Old) 

CALL WRITES (A .NE .NC .KA8) 

IF (IL1A0 .EG, 1 > GU IG GO 
CALL READ (A.NRA.NCA.KAB.KAa) 

CALL STABA < A.B< 1 .7) .NKA.Nfc ,KAH,KA3> 

GO T C O l 

6 C CALL ZERG < A ,NE . NE , K At) J 

CO 6 E J= l.NE 
JP6 = J t 6 

65 CMGA21JP6) = T WC*CM2( J 1 WOSGRT ( CMGA2{ JP6 > ) 

READ (NIT, 1002) ( UM2 ( J ) , J— l.NE) 

CO 6 6 J=1.NE 
JP6 - J + 6 

66 A ( J « J ) = UM2 ( J) *CMGA2l JP6) 

61 WRITE (NTAPtl) ( ( A( 1 , J ) . J=1 ,NE ) . 1= l , NE ) 

WRITE (NCT, 3019) 


0 1539 
0 1540 
0 1541 
C 1 542 
0 1543 
0 1544 
0 1545 
0 1 546 
0 1 547 
C 1548 
0 1549 
0 1550 
0 1551 
0 1 552 
0 1553 
0 1554 
0 1555 
0 1556 
0 1557 
0 I 558 
0 1559 
C 1560 
0 1561 
0 1562 
0 1563 
0 1504 
0 1565 
0 1566 
0 1567 
0 1568 
0 1569 
0 1570 
0 1571 
C 1572 
0 1573 
C 1574 
0 1575 
0 1576 
0 1577 
0 1578 
0 15/9 

o iseo 

O 1581 
0 1582 
C 1583 
0 1584 
0 1585 
0 1586 
0 1587 
0 1588 
0 1589 
0 1590 
0 1591 
O 1592 
0 1593 
0 1594 
0 1595 
0 1 596 
0 1597 
0 1598 
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CALL WRITES (A , Nt. ,NE #KAti) 

READ CM IT, 10 02) (UM2 ( J ) , J=1 tNE ) 

WRITE (NT APE l ) (QM2C J) *J-=i # NE ) 

WRITE l NCT • 3020 ) 

CALL WRITES (CM2. 1 * NE • 1) 

READ (Wilt 10 02 ) ( C.42( J ) . J- 1 ,NE ) 

WRITE (NT APE 1 ) C0M2C J) • J=1 • Nc > 

WRITE (NCT. 3021) 

CALL WRITES ( GM2 • l tNE • l) 

NH e = NhPOl(NBGD) 
f^SB = N SPG i ( NBUD ) 

NHC IS N C « UF P-0 riiNGL^ ON THE BODY, NOT TO 1 NCLUUt H INGE l 
WR ITE ( N I APE i ) NHd 
DO 110 L=1 • NHB 

READ (NIT* IQQl) NOH. I f YPE, JC1 NT 


OH ( 3 , LD ) - b ( JHX ,2) 

READ (NIT, 1002) ( UM2 4 J ) • J- 1,3) 

AS UM R Y ( L • 1 ) = 0M2 ( 1 ) 

A S L M R Y ( L • 2 ) = UM212) 

AS LM R Y ( L ,3 ) = UM2(o) 

CALL RuTTR ( J , I T YPL • UM2 »KH( i , 1 » LR ) * DUM , D J M ) 
DO 1 IE J = l ,NE 


JPt - J 
BC ( l , J) = Li( JHX, JPo) 

EC ( 2 , J ) = li( JHY , JPO ) 

EC ( 3 • J > = b( JHZ , JP6) 

bC(4,J) = d ( JbX , JP6 J 

ULib.JI = b(JSY,JPo) 

IIS BC ( 6 , J ) - B(J52. JPo) 

WR I T E ( N TAPE l ) NOH 

WRITE (NT APE 1 ) ( ( riC ( 1 »J) ,J=i,NE) ,1=1,3) 

WRITE (NTAPtl) ( ( CU 1 . J ) • J= l ,NE ) , 1=4,6 ) 
t 0 C C NT INUE 

WRITE (NCT, 3022) NbUD 

CALL W.UTIS ( 1 SUMRY , NHb , 3 .KSUMRY ) 

CALL WRITES ( ASuMK Y , NHu , J , K Sd.MR Y ) 

WRITE (NTAPcl) NSu 
IF (NSb ,t_U. 0) RLTUHN 


0 1599 
C 1600 
0 1601 
0 1602 
0 1603 
0 1604 
0 1605 
C 1606 
0 1607 
0 1608 
0 1609 
0 1610 
0 1611 
0 1612 
0 1613 
0 16 14 
0 1615 
0 1616 


1 SUM R Y ( L • 1 ) = NOH 




0 

1617 

ISLMRY(L,2) = ITYPt 




0 

1618 

ISLMR Yi L ,3 ) = JOINT 




0 

1619 

IF (NOH ,L T • 2 • OR, NOH ,GT. 

NH) 

GO 

TO 996 

0 

1620 

LR = 6*(NOH -2)41 




0 

1621 

LD = 7 * { NOH - 2) 4 1 




0 

1622 

IF (IT cP CL ( 1 , NOH ) .tQ, NBOl) ) 

6G 

TO 

1 12 

0 

1623 

IF (IT UP CL ( 2 , NOH ) * NE • NbOL) ) 

GO 

TO 

996 

0 

1624 

LR = LR 4 l 




0 

1625 

LD = LD ♦ 1 




0 

1626 

JHX = JOINT 




0 

1627 

JHY = JHX 4- NX 




0 

1628 

JH Z = JHY 4 NX 




0 

1629 

J5X = JhZ *■ NX 




0 

1630 

JSY - JoX NX 




0 

1631 

JSZ = JSY f NX 




0 

1632 

CH ( l , LD ) = b ( JHY , j) 




0 

1633 

CH ( 2 .LJ ) = B ( JH 2 , l ) 




0 

1634 


0 1635 
C 1636 
0 16 37 
0 1638 
0 1639 
0 1640 
0 1641 
0 1642 
0 1643 
C 1644 
0 1645 
0 1646 
0 1647 
0 1 648 
0 1649 
0 1650 
0 1651 
0 1652 
0 1653 
0 1654 
0 1655 
0 1656 
0 1657 
0 1658 
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CO l 20 L = 1 .NS6 

READ (MIT. 1001) NOS. 1 TYPE. JOI N T 
1 S UM R Y I L . 1 ) = NOS 

IS0MPYIL.2) = 1TYPL 
ISUMPYIL.3) - JOINT 

IF ( IF T S MW (NOS) . NE . NbCO) GO TO 998 

LH = 2* NOS - 1 

JHX = JOINT 

JHY = JHX F NX 

JHZ = JHY F NX 

JSX = JH2 F NX 

JSY = JSX F NX 

JS 2 * JSY + NX 

CS < 1 .OR ) •= B I JHY ,3) 

OS12.LR) = B< JHZ. I) 

CS ( 3 .OR ) = B ( JHX ,2 ) 

READ (NIT. 1002) ( CM2 ( J ) . J= 1 . j ) 

AS CM W Y ( L .1 ) = OM2 ( 1 ) 

ASCMRYi L .2 ) = O M 2 i 2 ) 

ASUMR Y ( L .3 ) = OM2 ( 3 ) 

CALL HOITR (3. I 1 YRE ,OM2 .RS( 1 . 1 ,LR ) .CUM ,DJM ) 
CO 125 J=1,NC 
JP6 = J +6 

ec ( i , j ) = b( jhx . jpo) 

EC(2.J) = BIJHY.JPo) 

BCC3.J) = B( JHZ. JPC) 

ec<4, j) = b< jsx, jpc) 

BC ( Si , J ) = B( JSY. JPo) 

125 ECI&.J) = d(JSZ.JPb) 

• RITE (NT APE 1 ) NOS 

• RITE ( N TAPE 1 ) ( (BL( I , J) . J= 1 .NE) . 1 = 1 .3 > 

•RITE (NTAPE1) ( (UL( 1 , J) ,J=1 .NE) . I =4 .to ) 

120 CONTINUE 

•RITE (NOT, 3023) NBUO 

CALL MR 1 T I S ( 1SUMRT .NSO.S.KSUMRY ) 

CALL WRITES (ASOMRY, NSO.S.KSUMRY) 

c 

RETURN 


C 

998 WRITE (NCT.2001) 

2001 FORMAT ( 1HI , 31HTOPCLOGY ERROR , PRGGRAM STUPPEJ) 

STCP 

999 WRITE (NCT.2002) 

2002 FORMAT I 1H 1 . 47HMORL THAN NMoOOU MOOES SELEC TE J , PROGRAM STOPPED) 
STOP 


C 


ENO 


0 1659 
0 1660 
0 1661 
0 1662 
0 1663 
0 1664 
0 1665 
0 1666 
0 166/ 
0 1668 
0 1669 
0 1670 
0 1671 
0 1672 
0 1673 
0 1674 
0 1675 
0 1676 
0 1677 
0 1678 
0 1679 
0 1680 
0 1681 
0 1682 
0 1683 
0 1684 
0 1685 
0 1686 
0 1687 
0 1688 
0 1689 
0 1690 
O 1691 
0 1692 
0 1693 
0 1694 
O 1695 
O 1696 
0 1697 
0 1698 
0 1699 
0 l 700 
0 1701 
0 1702 
0 1 703 
0 1 704 
0 l 705 


SUBROUTINE M SMODL INOUO) 

C 

IMPLICIT REAL*8( A— H, 0-2 ) 

C 

COMMON /NHNa / 

* NHPCII 6). NSPOII 6) 

COMMON /NUMBRS/ 


0 I 706 

DEBUG * 16 0 1707 

0 l 708 
0 l 709 
0 1710 
12 1711 
0 1712 
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* 2R C iCNfc , IWU , IKES 

COMMON /SPl.LIF/ 

S Be T AH ( 6 » a ) ,oLl AHJl o, o).AF0(2. S ) . Rn( j . J . 30 > . RS t 3 , 3 , 3 0 ) . 

* CH<3. 35 ) ,JG( 3.30 ) . IMOt J . 5) ,N.VCW( 6. O ) , I - IS MW ( 1 B ) . 

* NO ,NH ,N 5PT . HCI MO. NUuL TA, I TCPOL ( 2 . 6).ll<orLX{ 61.1HDATAI7. 6). 

* LUCot IaI.LCNUIIAI.NU.NBETA.NLAM.NEQ 

Common /summry/ 

* A S U MH Y ( 1 o . 6 ) . ISUM«Y I l 5 , J ) . KSUMRY 

COMMON / T APeNO/ 

* NT APE 1 . NT APEi.NTAi'E J 

c 

CINENSION A ( SOO.lcl.Bl 500.12>.C( 500,12) , AM J ( 10, 18) 

CIMENSICN W5( 500, 13) .uvtCI bOO).V.V(J) 

C 

CATA KJCINT, KMGOE 

* / 300 . 12 / 

CATA M T .NOT /5,6/ 

C 

100 1 FORM ATI 1 £1 5) 

1002 FUKM AT ( BC 1 0. J) 

2022 FORMAT I//5X SHFGR BUY 1j.2YH THE P-0 HINje NO., THE EULER 

* 37H RE TAT UN TYPE ANE TllE JOINT NC. CORREbPlj.'O l NO TO THE P-Q./ 

* 5XE4r1 HINGE APPEAR IN THE FOLLOWING INTEGER ARRAY WHICH IS 

* S-JHFCLLGWLU BY AN ARRAY C U N T A I N I NG EU.eK ANGLES THAT,/ 

* 5XMH PLSiriON THE HINwe TKIAO WRT THE BJJT T 1 1 AJ ) 

3022 FORMAT I //SX SHF OR BGEY I3.32H THE SENSOR POINT NO., THE EULER 

SCOF ROTATION TYPE XNij THE JOINT NO. COR WEaPUNJ 1 NG TU THE SENSCR./ 
SfcXE3HP0lM APPEAR IN THE FOLLOWING INTEGER ARRAY * H iCH IS 

* 49HF LLLUWEO OY AN ARRAY CONTAINING EU_i_R ANGLES THAT,/ 

S 5X4CH POSITION THc SENjCK TRIAO WRT THE BJDY TRIhl)} 

c 

KA = KJUINT 
KQ = X JOINT 
KC = KJUINT 
NWS = KJUINT 
KAVU ■= KMUOE *■ O 
C 

CSSS 1MT IAlUl NTAPE2, NT APES 
REWIND N TA PE 2 
RE * I NO N TAPE 3 
C 

{2**$:$* **$****>}t$<:$********$ *********$************** 

c 

c*** NJ = NUMEEk cr MASS PUINTs CN BCDY I 
C*** NE “ NUMBER J F El_A5ltC MODES RETAINED FOR JUDY 1 
N£ = i R OFL X ( NHOU ) 

NE6 = NE + o 
C 

C*** READ FORMA TAPE OR CARDS - CREATE NTAPE2 
C 

c masses 

CALL READ ( A ,Nl . N 2 . K JO 1 N T . K MOD E > 

N J = N1 
CO 2 I=l*NJ 

IFIAli.l) .LT. ZRO) GU TC 995 
2 CONTINUE 

WR I TE (NTAPE2 ) ( A ( i.l ) .1=1 ,NJ) 

C 

C INERIIAS 

CALL ScflU ( A ,M .N2.K JO INT .KMOOE ) 


0 

1713 

0 

1 714 

I 6 

1715 

17 

1716 

1 8 

1717 

1 9 

1718 

0 

1719 

9 £ 

1 72 0 

0 

1721 

0 

1722 

0 

1723 

£4 

1 724 

65 

1725 

0 

1 726 

0 

1727 

6 6 

1 7 28 

C 

1 729 

0 

1 730 

0 

1 73 l 

0 

1 732 

0 

1733 

0 

1 734 

0 

1735 

0 

1736 

0 

1 737 

0 

1738 

0 

17 39 

0 

1 740 

0 

174 l 

c 

1742 

0 

1 743 

0 

1744 

0 

1745 

c 

1746 

0 

1747 

c 

1 748 

0 

1 749 

0 

1 750 

0 

1751 

0 

1752 

0 

1 753 

c 

1 754 

0 

1755 

0 

1756 

0 

1 757 

0 

I 758 

0 

17 59 

0 

1760 

0 

1 761 

0 

1 762 

0 

1 763 

0 

1 764 

0 

1765 

0 

1766 

0 

1767 

c 

1768 

0 

l 769 

0 

1770 

0 

1771 

0 

1772 
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IF ( N 1 ,NE. NJ .OH. N2 .NE. 6) GC TO 99* 

HR IT E ! NT APE2 ) !!AU,J),J=l,fa),l = l,NJ) 

C 

C STATIC MOMENTS - oLUMttRIC COORDINATES 

CC 5 K= I ,2 

CALL HEAD ( A ,Nl .N2.KJ0INT .KMODE) 

1F(N1 .Nt. NJ .UR. N2 .Nt. 3) GO TO 999 
HR 1 TEINT APE2 ) !IA(1,J),J=1,3),I=I.NJ> 

5 CONT 1NUE 
C 

C MJCAL AMPLITUDES 

CO 1C K= l . G 

CALL He AO ( A , N1 ,N2,K JU l NT .KMODE ) 

IF(N1 . Nt . NJ .OR. N2 .NE. NE) GO TO 99* 

HR I T 6 ( N I Apt 2 ) ( ( A ( 1 . J ) ,J-1 .NE ) ,1 = 1 .KJ) 

1C CO NT I Not 
C 

C STIFFNESS - DAMPING 

CO 2 C K = l , 2 

CALL HEAD (A ,N1 ,N2,KJGINT,KMOJE) 

IFINl .Nt. NE .OR. N2 .Nt. NE) GO TO 999 
HR I T E l NT APE2 ) I ( A( I , J ) , J = i , NE ) . 1= l . NE ) 

20 CONTINUE 
C 

CO 4i 1=1. N J 
4 7 L V EC ( I ) = ONE 

C 

BEHIND N T APt 2 
NREC2 = 0 
C 

C*** CREATE N T APt 3 

CALL CHET 3 ( NRCC2 ,N J .Nt . A, B , HI S .KA .K6.KWS) 

C 

REWIND N T APt 3 
NREC3 = 0 
C 

C*** FORM MU ZERO MATRIX 

CALL ZERO! AMU ,NEo ,NEO . KAMU) 

C 

CALL CHEMU J! NREC3.NJ , U VE C , A ,W S , AMU ,KA , K WS. < AM J ) 

C 

C*** FORM AO AND 00 COEFFICIENTS 

CALL CHE ADO I NREC3.NJ. NE , U V t C , A . 8 , C , W S , AMU, K A , < 3 , KC , K* S , KAMU) 
C 

C*** FORM E CCEFF IC1ENTS 

CALL CRtE 1 NREC3 ,NHEC2, NJ , N'E , A ,B «C , AMU ,KA , K8. KC , KAMU > 

C 

C**H SYMMETRIZE AMU 
CO 4 6 1=1, NEC, 

CO 46 J=I,NEt> 

46 AM U ( J, l ) = A MU ( I . J) 

C 

CALL WRITE! AMU.NtO.NE6, JFiMUC.K AMU) 

WRITE! NT APE! ) 1 IAMuU.J) , J = l ,NE6> ,1 = 1, NE6) 

C 

C*** FORM ACCF 

CALL CREA ! NREC3 ,N J , NE , UVEC , A ,8 , K A , KB , KWS ) 

C 

C**w FORM 6CCF 

CALL CRE6 ! NREC j .NRECt , NJ , NE , A, 8 , WS.KA , Kb, KwS ) 


0 1773 
0 1 774 
0 1775 
C 1776 
0 1777 
0 17 78 
0 1779 
0 1 780 
0 1781 
0 1782 
0 1783 
C 1784 
0 1785 
0 1 786 
0 1787 
0 1 788 
0 1 789 
0 1790 
0 1791 
0 1792 
0 1793 
0 l 794 
0 1 795 
C 1 796 
0 1797 
0 1798 
0 1799 
C 1800 
C 1801 
0 1 802 
0 1803 
0 1804 
0 1805 
C 1806 
0 1807 
C 1 808 
0 1809 
0 18 10 
C 1811 
0 1612 
C 1813 
0 1814 
0 1815 
0 1816 
0 1817 
0 1818 
0 1819 
0 1820 
0 1821 
0 1 822 
0 1823 
0 1824 
0 1825 
0 1826 
0 1827 
0 1828 
0 1829 
0 1830 
0 1831 
0 1832 
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c 

c** * 
c 

c** ♦ 


c 

C** ♦ 


c 

C* * * 

c 


c 


l 52 
C 


C 

C + * * 


c 

c 

c* * # 


c 


1 54 
C 

C* * * 


FORM CCGF 

(ALL ClltC < NREC3 tNkLCi, NJ , NE . A .8, C . AMU . KA . KO , KC . KAMU ) 

Ft ICF ANO STORE SliFFNESS AND CAMPING 
CALL Ft I Cb IN TAPE 2 . I 1 . NKEC2 . AMU . NE . NE.KAMU) 
URITEINTAPL1) I ( AMUt 1 . J) . J= 1 .NE ) . I = 1 . NE I 
CALL Ft TCHl N TAPE 2 . IE • NREC2 .AMU .NE . NE . KAMU) 

UR I TE (NT APE l ) ( ( AMUt I . J) . J- 1 .NE ) . 1 = l .NE I 

READ AND STORE INITIAL LLNDllICNS 
RE AD tNl T . 1 JO 2 ) l A { 1 , J ) . J =1 , NE ) 

RE AD (NIT ,IOOt) ( A ( 2 « J ) . J = l « NE ) 

CALL UR I Tt ( A ( 1 . 1 ) . I . NE .4HXE0 .KA) 

CALL UK I Tel A { 2. 1 ) . i . NE , AHXlOD . KA ) 

UR I TE( NT APE l ) ( A ( l . J ) , J= 1 . NE > 

UR I TE (NT APE1 ) ( A ( £ » J ) «J=i.NE) 

NHo = NhPUKNaOO) 

UR I TE IN r APEi ) NMD 


CO 1 EO L — l ,NHO 

RBADIMT .1001) NOH.IIVPl.jLIM 
ISLMRYIL .1 ) = NOH 

ISLMRYIL.2) = ITYPE 
ISLMR Yl L .J I - JO INI 

IF INCH .LT. 2 .OH. NOH .GT. NH ) GO TO 9yS 


LR = E»(NUil-2) R 

1 




LO = 7* (NOH- 2) R 

i 




IF I 1 TOPOL! 1 . NOH) 

• tzQ • 

NOCDJ 

GO TO 

15 2 

IF ( I TCPULl 2. NOH ) 

• Nt: • 

NLl Lit) i 

GO TO 

996 


LR = LK*1 
LO = LJRl 
CONT I NJl 

CHI l ,LD ) = U Si JOINT , 11 ) 
CH(2,LO) - W S I JO I NT .12) 
CrllJ.LD) = W S ( J 0 1 NT .13) 


READ ANGLES 
RE AD I N1 T . I JO 2 ) 
ASLMRY(L.l) = 
ASOMFYIL.2) = 
ASLMRY(L.J) = 


(UV(J).J— l.J) 
UV ( i ) 

WV (2) 

W V { w I 


CALL HOTTR ( J . I TYPE, u Y ,RHl 1 . I . LR ) . DUM.DUM) 


READ IU.RY.HZ 
CALL Fc 1 OH (NT APE 2 » 
CALL FlTCH(NTAPL2, 
CALL FETOKNTAPE2. 


b .NKEC2 . A, N J ,NE . KA) 
6.NRLC2.Q.NJ. NE . KD ) 
7 . NKc C2 . C . N J . NE .KC) 


cc ie» j = i .no 

AMU ( 1 . J ) = A ( JO I NT . J ) 

AMO ( 2 . J ) = u ( JO I N T , J ) 

AMO(J.J) = C(JOINT.J) 

READ SI GX, SI GY . S l GZ 


0 1833 
0 1834 
0 1835 
0 1836 
0 183 7 
0 1838 
0 1839 
0 1840 
0 1841 
0 1842 
0 1843 
0 1 844 
0 1845 
0 1846 
C 164 7 
0 1848 
0 1 849 
0 1850 
0 1851 
0 1852 
C 1853 
0 1854 
0 J 855 
0 1856 
0 1857 
0 1858 
0 1859 
0 1 860 
0 1861 
0 1862 
0 1863 
0 1864 
O 1865 
0 1866 
0 1867 
0 1 868 
0 1869 
0 1870 
0 1871 
0 1872 
0 18 73 
0 1874 
0 1875 
0 1876 
0 1877 
0 1878 
0 1879 
0 1000 
0 1881 
0 1 882 
0 1883 
0 1884 
0 1085 
0 1 886 
0 1887 
0 1888 
0 1889 
0 1890 
0 1891 
0 1892 
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c 


l 55 
C 


C 

ISC 


c 

c*** 

c 


c 


c 

c ** * 


c 

c 

c* * * 


c 


1 c 4 

c 

C* A * 


c 


CALL FETCH1NTAPE2. 6 . NREC2 , A , N J , NE . K A ) 
CALL FETCH! NTAPE2. 9 , NRE C2 . 8 . N J , NE . KB ) 
CALL- FETCH(NTAPti!,10.NKLCc.t.NJ ,N£ ,KC) 

CO 158 J=1,N£ 

AMU(A.J) = A(JOINT.J) 

AMC!5.J) = 3<J0INT.J) 

AMU(t.J) = C!JOINT,J) 

WR I TE 1NTAPE1 ) NOH 

WR ITE iNTAPEl ) ! I AMU! I . J > , J= 1 . N E > . I = 1 , 3 > 

WHITE (NT APE1 > (( AMUl l.J).J=l.NE),I=4,6) 


CO NT IMJE 

WHITE (NOT, 3 022) NUUU 

CALL WRITIS ( 1 3UMRY . NH8 . 3.KSUMRY I 

CALL WHITES ( A30MHY • NrtU. 3. KSUMRY ) 

SEFSCR LCOP WWW***************** 


NSE = N SPO I ! NfaOD ) 

WRI TE INTAPEI ) NSB 
IF ( N 56 .EO. 0) RETURN 

DO ICO L=1,NSB 

READ (N1 T , 100 1 ) NOS. I TYPE, JOINT 
ISCMR Yi L , 1 ) = NOS 

ISLMRY1L.2) = I TYPE 
I SUM R Y ( L iJ ) - JOINT 

IF ( IFTSMW(NUS) .NL. NUUU) uC TO 996 
LR = 2*NCS - 1 
CS(l.LR) = wS(JOINT.ll) 

USI2.LR) - WS!J0INT.12) 

CSI3.LR) = W3( JOINT. 1J) 

READ ANCLES 

REAU (NI T , 1002) (WVtJ) , J=1,J) 
ASLMRYIL ,1 ) = WVI 1) 

ASUMRY(L,2) = W V ( 2 ) 

ASJMfYlL.JI = WV(J) 


CALL RGTTk ( 3, I TYPtt WV .RSI 1 . I , LK > , CUM.OUM) 
READ FX.RY.HZ 

CALL FE TCH( NTAPE2 . 3 i NHL C2 . A . N J ,NE . K A ) 

CALL FETCHINT APE 2 . O , NRLC2 . U . N J , NE . K8 I 
CALL fc TCH( NT APc.2 . 7 , NKcC2 , C . N J , NE . KC > 

CO IE* J = 1 iNE 
AML(I.J) = A I JO I NT. J) 

AMU(E.J) - U(JOINT.J) 

AMJ(j.J) = CTJulNT.J) 

READ SIGX.3IGY.S1CZ 

CALL FETCHINTAPE2. 8 , NREC2 . A . N J , NE , K A ) 

CALL EcfCH(NTAPE2. 9 , NREC2 . d . N J , NE . K8 ) 

call fetch! nt ape 2 . 10 ,nkec 2 , c ,n j ,ne ,kc > 

CO lEs J=1.NE 

AM LI A . J ) = A(JUINT.J) 


0 1893 
O 1894 
0 1895 
0 1896 
0 1 897 
0 1898 
0 1899 
0 1900 
0 190 1 
0 1902 
0 1903 
0 1904 
0 1905 
0 1906 
0 190 7 
0 1908 
C 1 909 
0 1910 
0 191 1 
0 1912 
0 1913 
0 1914 
C 1915 
0 1916 
0 1917 
0 1918 
0 1919 
0 192 0 
0 1921 
O 1922 
O 1923 
0 1924 
0 1925 
0 1926 
0 1927 
0 1928 
0 1929 
0 1930 
0 1931 
0 1932 
0 1933 
0 1934 
0 1935 
0 1936 
C 1937 
0 1938 
C 1939 
0 1940 
0 194 1 
0 1 942 
0 1943 
0 1944 
0 1945 
0 1946 
0 1947 
C 1 948 
O 1949 
0 1950 
0 1951 
0 1952 
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nr. nnnnnnnr, nr. nr. nnnnrnnnn 



amui e . j ) = u ( jrj i nf , j ) 

c 

1953 

l 05 

AML ( t . J ) = C ( JU l N7 , J ) 

0 

1954 

C 


0 

1955 


WK l T E 1 N J Ap E l } MOS 

0 

19 56 


nRITtlNTAPU 1 < ( AMul I . J ) . J = t .NE ) . 1 = 1 ,3 1 

0 

1957 


EfilTt INTAKtl ) ( ( A Mo ( I . J ) . J= l . N E > , l =4 .6 1 

0 

1958 

C 


0 

1959 

l 6C 

ccnt irue 

G 

1960 


■Ah ire ( isci # jol:3 > nlilo 

c 

l 961 


(ALL WRIT IS ( I jU.'WY . Non , 3 .KSUMHV ) 

0 

1 962 


CALL At< I TL 3 ( ASUMRY , NbL>. 3. KbUMRY ) 

0 

1963 

C 


0 

1964 


RE TURN 

0 

1965 

c 


0 

1 966 

995 

WRITE (NUT, 2001 ) 

o 

1 967 

200 1 

FORM AT < in .4 5HNEGATI Vc uR ZtRU LUMPED MASj . PROGRAM b TOPPED ) 

0 

1968 


ST CP 

c 

1969 

996 

Ai< I I £ (NOT . 20 0 3 ) 

c 

1970 

200 3 

FORMAT ( iHl .3 IHIUPULuLY ERHLKi PROGRAM STOPPtU) 

0 

1971 


S T CP 

c 

19 72 

999 

WRITE <N0 T. 23 04 ) 

0 

1973 

2004 

FORM AT ( IHl .4 I HE R R Uk IN I NPU 1 TO MS-MOOL. PR U ok A M STOPPED) 

0 

l 974 


S T CP 

0 

1975 

C 


0 

1976 


ENC 

0 

1977 


SUtrfiCuT 1 Nfc 

CRET3 (NHEC2 ,NJ,NE.A,6.WlS.KA,KB,K.»S) 


0 

1978 





0 

1979 



0 5 BUG ft 

1 7 

0 

I960 

[m pl ici r f; 

CAL#8< A- 

M. O-Z) 


0 

1981 





0 

1982 

Ltl! 




0 

1983 





0 

1984 

N 

= JOINT 

NUMbt K N = 1 ♦ • • • » N J 


0 

1985 

MINT 

= JUINT 

MASS 


0 

1986 





o 

1987 

J > X l N ) 

-J XY ( N ) 

- JXZ < N ) 


0 

1988 

- J * Y i N > 

JYY(N) 

-JYZIN) = JUINT tNcRTIA 1 tNa OR 


0 

1989 

- J *Z< N ) 

- J YA I N ) 

JZZ(N) ' 


0 

1990 





0 

1991 

0 

SZ{N) 

-5Y ( N ) 


0 

1992 

- S 2 ( N > 

0 

SX(N) = JOINT MASS MOMENT TENSOR 


0 

1993 

S Y( N > 

- SX ( N ) 

0 


0 

1994 





0 

1995 


P l ( M 

= 

JOINT 

MOO AL 

X 

DISPLACEMENT COMPONENTS 

0 

1996 

PE ( M 

= 

jOi NT 

MLtJ AL 

Y 

DISPLACEMENT CvjMPUN-.NTS 

0 

1997 

PJIM 

= 

JOINT 

MUJAL 

z 

DISPLACEMENT COMPONENTS 

0 

1996 

PtIM 

= 

JO I NT 

MOO AL 

X 

ROTATION COMPONENTS 

0 

I 999 

FblM 

= 

JC l NT 

MODAL 

Y 

ROTATION COMPONENTS 

0 

2000 

P6 ( N ) 

= 

JOI NT 

MOuAl 

z 

ROTATION COMPONcNT> 

c 

2001 

x ( M 

- 

JOINT 

X LOCATION 

0 

2002 

Y(M 

= 

JOINT 

Y location 

0 

2003 

Z CM 


JOINT 

Z LOCAT 

I CN 

0 

2004 







0 

2005 

THEN : 






0 

2006 
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r» n 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

L 

c 


c 

c 

c 

c 

c 

c 


c 


1000 

c 

c* + * 
c* * 4 
c*»* 
c* * * 

C4 * * 


C*4 * 


UN 

NT AP£j 

RECORD 

I 

MAT it IX 

M 

* 

PI 

0 

2007 

UN 

NT APE5 

RECORD 

2 

MA r H 1 X 

3Y 

♦ 

P l 

c 

2008 

ON 

NT APE3 

RECORD 

3 

MA TWIX 

52 

♦ 

PI 

0 

2009 

UN 

NT APt3 

RECUR D 

4 

MAT k 1 X 

N 

* 

P2 

0 

20 10 

UN 

NT AP cj 

R cCOR 0 

5 

MA T Ft 1 X 


* 

P2 

c 

20 1 1 

ON 

N T AP E 3 

RECORD 

6 

MAT HI X 

32 

* 

P2 

0 

20 12 

ON 

NT APE 3 

RcCCRO 

7 

MA T k 1 X 

A 

* 

P 3 

0 

20 13 

UN 

NT A PE3 

RECORD 

8 

MA T H i X 

3* 

* 

P3 

0 

20 14 

UN 

NTAPE3 

RECORD 

9 

MA r H 1 X 

5 Y 

$ 

P3 

0 

20 15 

U N 

NT APE3 

RECORD 

10 

MA T H 1 X 

JXX 

* 

P4 

0 

20 16 

UN 

N 1 APL3 

KtCC-RO 

1 1 

MA 1 K 1 X 

JXY 

♦ 

P4 

c 

2017 

UN 

NT APE 3 

RECORD 

12 

MA I H i X 

J X 2 

* 

P4 

0 

20 18 

ON 

NT A?EJ 

RECORD 

13 

MA I H I X 

5 Y 

* 

P 4 

0 

20 19 

UN 

NT APt J 

RECORD 

14 

MA 1 K I X 

32 

* 

P4 

0 

2020 

UN 

NTAPcj 

RECORD 

15 

MA I K l X 

JXY 

* 

P5 

0 

202 1 

UN 

NT APE3 

ReCURO 

16 

.MA I k l X 

jYY 

$ 

P5 

0 

2022 

CN 

NT APc j 

RECORD 

1 7 

MAI KU 

JY2 

♦ 

P5 

c 

2023 

UN 

NT APE3 

RECORD 

18 

Ma IRIX 

5x 

* 

Pb 

0 

2024 

UN 

NT APE3 

RECORD 

19 

MA T R i X 

5Z 

* 

P3 

0 

2025 

UN 

NTAPtJ 

RECORD 

20 

MATRIX 

JXZ 

♦ 

PO 

0 

2026 

UN 

NT A PU3 

RECORD 

21 

MA T k 1 X 

JY2 

* 

Pb 

0 

2027 

UN 

NIAPL3 

RECORD 

22 

MATRIX 

JZZ. 

* 

PO 

0 

2028 

UN 

NT APL3 

RECORD 

23 

MA 1 K I X 

5X 

* 

Pfc 

0 

2029 

UN 

N T AP 1 3 

RECORD 

24 

MA T k I X 

5 Y 

* 

P6 

0 

2030 

UN 

NTAPtJ 

RECORD 

25 

MA T H I X 

<4 

♦ 

X 

0 

2031 

UN 

NTAPtJ 

RECORD 

26 

MA 7 k I X 

M 

* 

Y 

0 

2032 

UN 

NT APtJ 

RECORD 

27 

maT k i x 

M 

* 

Z 

0 

2033 


COMMON /ISUM6RS/ Zkb.CNE, TaU.TRES 
C L'MMCK /1APENG/ NTAPEl ,NT»Pte , NTAPE3 

Cl ME F SI UN At KA. I 1 ,bC KU. I ) . WSCKftS. 1 > 
LOGICAL CEBUG.LEQu 
COMMON /LOEDUL/ OLBUGt 120) 
EQUIVALENCE (LEQU.OEbuot 1 / > ) 

C A T A NUT/6/ 

IFtLEQU) *kl TE< NOT, l GOO) 

FORMAT i* SUBROUTINE CkLTj' ) 


FfcjTC 
CALL 
FETC 
CALL 
FBTC 
CALL 
FETC 
CALL 
FETC 
CALL 
CALL 
IFtL 
CALL 
IF (L 
CALL 
IFtL 
FETC 
CALL 
CALL 
IFtL 
CALL 


F M 

FETCH IN 
F JXX. . . 

FcTCHtN 
F SX.SY. 

FETCHtN 
F GECMET 
FE TCHtN 
F FIX 
FETCHtN 
STORE t N 
EQU ) CAL 
5 TORE t N 
EGO ) CAL 
STORE IN 

eaui cal 

F HY 
FE TCHtN 
ST ORE t N 
EQU) CAL 
ST CJRE t N 


TAPE 2 . 1 « Nkt_ C 2 * 
• • i-JYC 

tape2. a.NRtca. 
sz 

tapez. s.NREca, 

RY 

TAPE 2 * 4 ,NRtC 2 , 

TAPE 2 , StNRtCa. 
TAPE 3 .WSI l . 1 ) . 

L WRI TEt cl . N J .NE 
TAPES, WSt 1 , 9) . 
L WRI ILtO.NJ.NE 

tapes. nst i , 10 . 

L WRt lc_t O. NJ , NO 

TAPE2, O.NRcCZ, 
TAPE3 .*S( 1 , 1 ) , 

L WRl TL< B. NO ,NE 
TAPES.WSt 1 , ti) 


WSt 1 , I > ,NJ, 1 ,<MS) 

MS t 1 • 2 > .NJ. 6 ,.<«S) 

MSt 1. B) .NJ.S.Kftj) 

MSt 1 ,1) ) » N J , 3 »fC A S ) 

A.NJ.NE .KA) 
A.O.NJ.NE.KWS.XA.KJ) 
,6H MAPI .KB) 
A.B.NJ.NE.KWS.iXA.KS) 
.OH SY*Pl,KB) 

A, 8 .N J .NE .KWS .KA ,KJ ) 
•OH SZ4PI.K0) 

A.N J.NE .KA) 
A.B.NJ.NE.KWS.KA.Ks) 
,OH M4P2.K3) 
A.B.NJ.NE.KWS.KA.KS) 


2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 
2056 

2059 

2060 
2061 
2062 

2063 

2064 

2065 

2066 
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IF(LEQU) CALL WR 1 Tt ( o . NJ ,NE ,oH SXYP2.KB) 

CALL faTCPLl N r APEJ . »S( 1 .10) . A , B , N J , NE . K W S ,.< A , Ki ) 
IF(LEU<J> CALL W R l Tt l biNJ • NE ioH SZ*P2.KB) 

C*** FBTCE HZ 

CALL ECICHINTAFE2. 7 . NKt C2 > A , N J . NE . K A ) 

CALL STORE (NTAPt J .WS( l . 1 ) . A . d . N J . NE .K W S A . Kd J 

IF(LEUCi) CALL WRlTtlb.NJ.NE.6H M»P3,Kl() 

CALL SfljRElNTAPE3...Sl 1 . 8) . A , B .N J , NE .KWS ,K4 , Kd > 

IF (LtllJ ) CALL WRlTtlb.NJ .NE.6H SXYP3.KB) 

CALL SICRE1NTAPE3.V.SI l . 9 ) . A , B , N J . NE .K WS .< A . Kd ) 
IF1LE0U) CALL *R 1 Tt l b . N J .NE .6H SYYP3.KB) 

C*** FETCE falGX 

CALL FtTCHlNVAPE2. 6 • Nkt. C2 . A . N J , NE . K A > 

CALL STCKLINTAPE3.WS1 l . 2 ) . A , 3 . N J . NE . K W S A , X.3 ) 

IF(LEUU) CALL WR 1 TE ( fa i NJ .NE .oH JXXYP4 .K B ) 

CALL STORtlNTAPEJ.wSl l . fa) .A.B.NJ.NE.KwS.KA.KJ) 
IF1LEUU) CALL wRl Ttl fa. NJ . NE .6HJXYYP4. KB ) 

CALL faTCREtNTMP£3.<.bl l . 6) . A, d ,N J .NE ,KWS ,<A , Kd > 
IF(LEdfa) CALL WR 1 TE ( L) . NJ .NE .6H JXZYP4 ,K B ) 

CALL STCfiL(NTAPE3.'«fat l . Si) . A , B . N J . NE .X WS .X A . <3 ) 
IF(LEUU) CALL WR I TE1 d . N J ,NE »6H SYYP4.KB) 

CALL STORE (N TAPE 3 . wfal 1 .10) . A , B , N J . NE . K w S .K A , Kd ) 
IF1LECU) CALL WRlTtlU.NJ .Nt.oH SZYP4.KBI 
C*»» FETCE falCY 

CALL FcTCHINT AP t 2 . Si . NRE C2 • A . N J , NE . K A ) 

CALL ST OWE l N T APt 3 . Wfa ( 1 • fa) . A , B . N J , NE . KW S ..< A , Kd ) 
IF(LEOU) CALL wR 1 TE ( B. N J ,Nt .faH JXY*P5 .KB ) 

CALL fa T 0 RE l N T APE 3 . W fa ( 1 . 3).A.8»NJ.N£*KwS.KA»K:)) 

IF(LEJU) CALL WR 1 Tt ( b. NJ ,Nt .OH JY Y»PS ,KB > 

CALL STORE! N rAPt'3 .WS< 1 . V ) . A . B , N J , NE . K W S .K A , KB ) 
IF(LECfa) CALL WKlTLl U. NJ .NE ,6H JYZ*P5.K8) 

CALL S f UHc 1 N TAPE3 .WSl 1 . b) . A . Q . NJ ,NE .K wS .KA , Kd ) 
IF(LEOJ) CALL WRI Till fa. NJ ,Nt .faH SX4P5.KB) 

CALL S T CRt U1 TAPt 3.* fa ( 1 .10) . A , 0 . N J , Nc .K W S .N A , K J ) 
IF1LECU) CALL WRl Ttl d . NJ ,NE ,oH SZ*P5,KB) 

C**Y FGTCE J10Z 

CALL FE TCHCN TAPE 2 .Id. NhtCZ.A , N J . NE . KA) 

CALL SCORE 1 N TAPE j . WSl 1 . fa ) . A , O . N J . NE .K WS .< A . Kb ) 
IF(LECU) CALL W R I TLtcJ.NJ .NE .OHJXZYP6.KB) 

CALL S < CPE l N TAPES . .v fa( 1 . /) .«.3.NJ.NE.KwS.KA,Kd) 

IF(LEQU) CALL WRl TLl d, NJ ,N l ,6H JYZ*P6.KB) 

CALL fa C L RE 1 N TAPE 3 • w fa 1 1 , A ) . A , 3 , N J , NE . K W S .K A , K J ) 
IFILEGU) Call WR I I'l l d , n j ,NE .6H JZZ *P6 .K 8 > 

CALL fa T CRt (NTAPcJ.nSt 1 a 6 ) . A , 0 . N J . NE . K W S .K A . Kd ) 
IF(LEQJ) CALL V»R 1 TE ( L> . NJ ,Nt . faH SX*Pfc,KU> 

CALL STL'KttNTAPtJ.Afall* 9).M.Q*NJ.NE.KWS.KA»k - 3) 

[FILE Cld ) CALL WR 1 Tl< 6 . NJ ,N£ . faH 5Y*P6.Kd> 

CALL S TORE ( N TAPE J . .ifa l i . I ) . W fa l 1 . I 1 ) , O , N J . 1 , K w j . K« fa , Kd > 

IF(LEGU) CALL WRI I'Ll d.NJ . i .CM MY X .KB) 

CALL fa ILRt ( N TAPE j . »fal l . I ) . 1* S < 1 . 1 2 .) . O , N J , 1 . K» fa . K* fa . KU ) 

IF ( LEOLl ) CALL WR l Tt 1 u , NJ , l . faH M * Y .KD) 

CALL SCORE (NT APED* A fat 1 * l).AS(l.l3).c3.NJ.l.K«afa.K«aS.KB) 
IFILEGO) CALL WR M t ( d . NJ . I ,6H M»Z .KB) 

C 

RETURN 

ENd 


0 2067 
0 206B 
0 2069 
0 2070 
0 2071 
0 2072 
0 2073 
0 2074 
0 2075 
0 2076 
0 2077 
0 2070 
0 2079 
0 2080 
0 2081 
C 2082 
0 2083 
0 2084 
0 2085 
0 2086 
0 2087 
0 2088 
0 2089 
0 2090 
0 2091 
0 2092 
O 2093 
0 2094 
0 2095 
0 2096 
0 2097 
0 2098 
O 2099 
0 2100 
0 2101 
0 2102 
0 2103 
0 2104 
0 2105 
0 2106 
C 2107 
0 2108 
C 2109 
0 2110 
0 2111 
0 2112 
0 21 13 
0 2114 
0 2115 
0 2 116 
0 2117 
0 2116 
0 2119 
C 2120 
0 2121 
0 2 122 
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SUBRCUT TNE C RLMU01NREC3 • NJ , UVEC . A . US . AMU ,<A , K.* S . *AMU) 


0 

2123 

c 







0 

2124 

c 





OEBUG 0 18 

0 

2125 


IMPLICIT RtAL#8( A-H.O-Z) 





0 

2 126 

c 







0 

2127 

c 


Lie THE LUMPED PARAMETER 

DATA ON NTAPd3. 

ALONO WITH EQUATIONS 

0 

2 126 

c 


11-30. 31, 3*3 AN„ 37 TO COMPUTE THE INERTIA 

I d NS UK * 

STATIC MASS 

0 

2 129 

c 


ncmlm anu total mass fur 

THE UNDEFORMcD 

FLEXIBLE 

BODY • 

0 

2130 

c 


THESE TERMS Akt_ STORED AS 

A 6 BY 6 MAI«Ia 

ANU 

DEFINE THE 

0 

213 1 

c 


LPPcfi LEFT 2 uY 2 PARTITION OF EQUATION II -&7 



0 

21 32 

c 







0 

2133 

c 







c 

2134 


CCMMCN /NUMB ft 5/ ZRU « CNt iTwu»FR£S 




0 

2 135 


CO VMC N / TAPE: NO/ NTAPEl .NTAPE2 

• NTAPE3 




c 

2136 

c 







0 

2137 


Cl ^E f>S I CN A(KA,l),'*S(Ktt:>.l).AMU(KAMU.L),UVEC( 

1 ) 



0 

2138 

c 







0 

2139 

o* * 

FETCF M *HHQX * MWRHUY »M*khC^ 





0 

2140 


CALL 

FETCH(NTAPE3,^3,NHEC3.A< 1,1) .NJ.I.KA) 




0 

214 1 


CALL 

f-E TCH (N r APE3.EO , NKECJ , A! l .2l.N3.lt KAl 




0 

2142 


CALL 

FETCH! NT APE 3,^7 .NREC3 .A( 1 ,3).NJ,l.KA) 




0 

2143 

c * * $ 

FC PM 

JXXC 





0 

2 1 44 


CALL 

LATE! ONE. MSI 1 • 13) • All. 

3 ) . AMU! 1 . 1 ).N J . 

I . 1 

• KW S 

KA , KA MU > 

0 

2145 


CALL 

SATE! ONt.W 3(1,12), All, 

2 ) . AMU! 1 . 1 ), N J, 

4 • 1 

• KW S 

KA , K AMU ) 

0 

2146 


CALL 

SAT LI! T MCJ . M S! 1 . 1 3 ) , MS! 1 , 

1 0 ) . A MU t 1 , 1 ) , N 3 . 

I • 4 

• km s 

KWS • KAMU ) 

0 

2 147 


CALL 

SAT61 T WO. MS! 1 , 12 ) . MS! 1 . 

9) , AMU! 1 , 1 ) • N 3 • 

l • I 

■ 1CWS 

KWS* KAMU > 

0 

2148 


CALL 

SATO! ONE.UVEC ,W3!1. 

2 ) . AMU C 1 .1 ) • N J , 

l • 1 

• KmS 

KWS • KAMU ) 

0 

2149 

C * * * 

FORM 

JXY C 





0 

2150 


CALL 

SATE!— UNE.WSI 1 , 12 ) , A!l. 

l ) . A MU 1 1 , 2 ) . N 3 , 

I . 1 

)KmS 

KA* KAMU ) 

0 

2151 


CALL 

SATE! -ONE. WS! 1 , 12 ) , MS! 1 . 

a ) . AMU! 1 ,2). NJ, 

I . I 

• KMS 

KWS • KAMU ) 

0 

2152 


CALL 

S A T 8 ! —0 NE .WSll.ll), MS ( 1 , 

9). AMU! 1 ,2),NJ, 

1 • 1 

. KMS 

KWS* KAMU ) 

0 

21 53 


CALL 

SA TU( -ONE ,U VEC , MS ! 1 , 

S ) . AMU (1 , 2 > . N J , 

1 * 1 

. KWS 

KWS* KAMU ) 

0 

2154 

C + + * 

FORM 

J X 2 C 





0 

2 155 


CALL 

SATE!-ONE.WS! 1 « 13) * A!l, 

l > . AMU! 1 . 3 ) ,N 3 . 

l . 1 

»KmS 

KA * KAMU ) 

0 

2156 


CALL 

SATei -ONE, MSI 1 , 13 ) .MS! 1 . 

8).AMU(l,3).NJ, 

1 f I 

. KWS 

KWS * KAMU ) 

0 

2157 


CALL 

SATE!— ONE, MS! 1 • 11 ) .MSI l . 

t 0 ) . A MU ( 1 • 3 ) • N J , 

l • 1 

t K*S 

KWS • KAMU J 

0 

2158 


CALL 

SaTEI— ONE, UV cC .MSI 1 , 

6), AMU! 1 » 3 ) » N J , 

l • l 

i Km S 

KWS* KAMU ) 

0 

2159 

c* * * 

FORM 

jrvo 





0 

2160 


CALL 

SATE! ONE.WSl 1 . 13) , All. 

3 ) . A MU ( 2 , 2 ) . N J , 

1 . 1 

• Km S 

KA • KAMU ) 

0 

2161 


call 

SATE! ONE. WSll.ll), All, 

l ) , AMU 12 , 2 ) ,N J. 

1 • I 

• K W S 

KA * KAMU > 

0 

2162 


CALL 

SATEI TMO.WSI 1 , 13 ) . MS! 1 . 

10). AMU (2.2), NJ, 

I « i 

* KmS 

KWS . KAMU ) 

0 

2163 


CALL 

SATE! T WO, WSI 1 , 1 1 ) , MSI 1 . 

3) . AMJ12.2).NJ. 

1 . 1 

* KWS 

KWS* KAMU ) 

0 

2164 


CALL 

SATE! ONL.UVtC , MS ( 1 , 

3) , AMU !2»2).NJ» 

1 • l 

iK’mS 

KWS* KAMU ) 

0 

2 165 

c* * * 

FORM 

JY ZC 





0 

2166 


CALL 

SATEI -ONE, MSI 1 , 13 ) , All, 

2 ) , A MU ( 2 , 3 ) , N J , 

1 • 1 

• KWS 

KA * KAMU > 

0 

2167 


CALL 

S A T d ( -U NE . W S ( l , l 3 J , MS 1 l . 

9), A MU 12, 3), NJ, 

1 . 1 

• KWS 

KWS* KAMU ) 

0 

2168 


CALL 

SATO (-ONE. MSI 1 . 12 ) , MSI 1 . 

1 J ) , A MU ( 2 , 3 ) . .N J . 

1 * 1 

• KwS 

KWS *KAMU ) 

0 

2169 


CALL 

S A T B I — 0 NE , uVLC , MS! 1 • 

7) , AMU! 2. 3>,N J, 

I. * I 

« KW S 

KWS* KAMU ) 

0 

2170 

c** * 

FORM 

J7.ZC 





0 

2171 


CALL 

SATEI ONE , MSI 1 , 12 ) , All. 

2) . AMU (3 ,3 ) , N J , 

1 • l 

* K*k S 

KA* KAMU ) 

0 

2172 


CALL 

SATEI ONE, WSI 1 , 1 1 ) , All, 

1 ) , A MU ( 3 . 3 ) . N J , 

1 t 2 

♦ KmS 

KA « KAMU > 

0 

21 73 


CALL 

SATEI T WC, MSI 1 , 12 ) . MS! 1 . 

9) , AM0I3 , 3) ,N J . 

I • 1 

• K A S 

KWS • KAMU ) 

0 

2174 


CALL 

SATEI T MU, WS I 1 , l l ) , MS! 1 , 

0 ) . A MU 1 J . 3 ) . N J , 

1 • 1 

• KwS 

KWS. KAMU ) 

0 

2175 


CALL 

SATO! ONE.UVEC « M S 1 1 , 

4). A MU (3. 3). NJ. 

i * 1 

« iv w S 

KWS* KAMU ) 

0 

2176 

c**w 

FORM 

sxo 





0 

21 77 


CALL 

SATE! ONE.UVEC . wSll. 

«) , AMU! 3. S). N J , 

1 • 1 

• Kw S 

KWS . KAMU ) 

0 

21 78 


CALL 

SATO! ONE. WS ( l , l l ) , MS! 1 . 

l),AMUI3,S).NJ, 

1 t I 

• KwS 

KWS • KAMU ) 

c 

2179 

c * * * 

FORM 

S Y 0 





0 

2180 


CALL 

SATE! O N't , 0 VLC « Mol l , 

9 ) . A MU 1 1 , 6 ) , ,N J , 

1 . 1 

• KwS 

• KWS* KAMU ) 

0 

2181 


CALL 

SATO! ONE, MS! 1 . It ) . MS! 1 . 

l ) . AMU! 1 , 6 ) , N J , 

I . I 

• KwS 

KWS • KAMU ) 

0 

2182 
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C»*<> FORM SZO 0 il83 

CALL J/lTL'l ONE. UVEC . wS l 1 . 1 3 ) . A MU < 2 . A ) . 4 J , l, 1 , Nit S , KWS . K AMU ) 0 2 I 8A 

CALL SATHl ONL. 1. S ( 1 . 1 3 > . ».3( I . l I , AMU ( 2 , A > , N J , 1, 1 . KW S . KW 5 . K AMU ) 0 2 l 85 

AML(t.o) = -AMU <3.51 0 2186 

AMU< 3.4) = -AMull.b) 0 2187 

AMLCl.ul = -AMU (2.4) 0 2188 

c*** FORM .MASS 0 2 1 89 

CALL S A I e < LNL-.UVcC .‘..5(1. I ) . A,VU( 4 , 4 > . N J , 1. I . K W S i K W S . K A MU ) 0 2190 

AMUCt.s) = A .MU ( 4 . 4 ) 0 2 19 1 

AML(C.u) = A ML 14*41 0 2192 

C 0 2193 

CALL «.< l lL (AMU( 1 . 1 1 . 3. 3. 5H UtBO.KAXU t C 2194 

CALL ».<I TE(AMU( 1 .4) ,J. 3 . 5i>S T A t 0 . < AMU I 0 2195 

CALL MI 1c (Ai*tU< 4 .4) , J, J. 5nM AS S 0 . KAMU ) O 2196 

C 0 2197 

RETUFN 0 2198 

END 0 2199 


SUERCUUNE CkcAUD <NKeC3. NJ » NE . UVEC . A .D ,C . ws . A.IU ,KA ,KU ,KC , KW S .KA MU ) 0 2200 

C 0 2201 

C DEBUG * 15 (J 2202 

C C 2203 

C UL THE LUMPED P AH 4!*.<_TL (5 DATA ON NTAHuJ. ALUNo WITH EOUATICNS C 2204 

C 11-33.36 TU ComPUTc THt 3 BY IRGFLX(N) MATRIX JF 0- t OEr F 1 C l ENT 0 2205 

C AND THL 3 3V IKGFLX1N) MATRIX CF A - COi z F 1 L 1 E N T j IN EQ 1 1-87 0 2206 

C T He. SE ARE INE.tsTlAL COUPLING COEFFICIENTS v»-ilLn ARE l NCEP END ENT C 2207 

C CF DEFORMATION 0 2208 

C 0 2209 

IMPLICIT REALY8C A-d.D-E) 0 2210 

C 0 2211 

COMMON /NUM3KS/ ZRu, ONE. TWO , 1 RES 0 2212 

COMMON / T APE NO/ NTAPEl .NTAPE2.NTAPE3 0 2213 

C 0 2214 

CIMEFSlLN A( KA, 1 ) . u( Kb . I 1 .C (KC . 1 ) . WS (KW S . 1 ) . AMD ( K AMU , 1 > , UVEC ( 1 ) 0 2215 

C 0 2216 


C**» FETCF «l *FX ,M*HY • M*HZ 

CALL FE TCh( NTAPE 3 . 1 , NKcC 5 . A , N J .NE . K A > 

CALL FE T CH l N T AF>E3 . 4 . N Rt Co . 6 . N J . NE . K O > 

CALL FETChCNTAPED, 7 .NRECJ.C.NJ. NE . K C ) 

CALL SATE( ONE. UVEC . A , A MU ( 4 , 7 ) , N J , 1 .NE . Kw 5 , KA . KAMU ) 

CALL SATU< UNL.UVLC , 8 . A MU ( 5 . 7 ) . N J . I .N5.KwS.K8. KAMU ) 

CALL SwTBl uNt.UVtL . C . A MU ( 6 . 7 ) . N J , t ,NE • KW S > KL • K A MU > 

CALL SAT E( UNE. W5( l . 1 3 ) • A, AMU< 2.7 ) ,N J. 1 .Nc.KwS.KA, KAMU) 

CALL SATcI-UNE . WS1 l , 12 ) . A. A MU ( 3.7) ,N J, 1 .Nl .KwS.KA.KA MU ) 
CALL SATEC -ONE. WS ( l , l 3 I .8. AMJC l , 7 1 ,N J , l .ME .tCwS .Kti.KAMU I 
CALL SATfcH ONE , WSl 1 , 1 l 1 .6. AMU( 3, 7) ,NJ, l .N E . Kj S • KU , K AMU ) 
CALL S A T 0( UNE,WS(1,12J.C.AMU1 1.71.NJ, 1 ,Nz , Kw S.KC.KAMU) 

CALL SATdf-ONE.WSl 1 , 1 l ) .C.AMUC 2.7 1 .NJ. 1 ,N= . Kw 5 , <C . KA MU 1 
C*** FETCF 5Y*SUx,S2*stGX 

CALL FL T CHI NT APE 5 . 1 j . NR cC3. A.N J .NE .KA) 

CALL FET CH(N TAPE 3. 14 ,NReC3,i3,iN J.NE.K8) 

CALL SATEC UNt.UVEL . A . A MU ( 6 , 7 ) . N J , 1 ,iN£ . KW 5 . K A . K A MU > 

CALL SA TBI -UNE. UVEC , 8 , AMU t 5.7 > ,N J, 1 ..,L.Kla.K3.KAMU) 

CALL S A T d ( GNE.WSl 1 , 12 1 . A.AMUI 1 .71 ,NJ, 1 .Nz.KwS.KA, KAMU) 
CALL SATfcl UNE . w S< 1 . 1 3 ) . U . AMU 1 l . 7 > , NJ , 1 „N£ . K* S . Kd . KA MU ) 
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0 221 7 
0 2218 
0 2219 
0 2220 
0 2221 
0 2222 
0 2223 
0 2224 
0 2225 
0 2226 
C 2227 
0 2228 
O 2229 
0 2230 
0 2231 
O 2232 
0 2233 
0 2234 
0 2235 
0 2236 



(ALL SA rt'( -ONE. WS( 1 i 1 1 ) . A , AMU( 2 . 7) ,N J. 1 ,Nt , N4 u . KA . K A MU > 

(ALL iATtM -UNL,»S( t . 11 ) . OiAMU( 3.7) ,NJ, 1 .Nt , K* , Kt> , KAMU > 

C** * FETCH SX*SI(<Y.S(*iU.y 

(ALL Ft TCHl NT APL3 . 18 , NRLCj ■ A . N J ,NE . KA> 

(ALL FLT CHIN TAPE 3 , 1 9 . NRt C 3 , U . N J . NE , KO ) 

CALL Gm T B ( -UNLi U VLC , A . A MU ( 6 . 7 ) . N J . 1 ,N£ iK« i iKA . KAMU ) 

(ALL GATE! UNE.UVEC . 8 . A MU ( 4 . 7 ) . N J . 1 ,u£ . K* 5 . KB , K A MU ) 

CALL S ATEl -ONE • <S( 1 . It ) . A. AMU ( 1 . 7 ) ,N J , 1 «>L • Krt 3 pKA iKAMU) 

(ALL S A TE ( O NE, WS( l . L 3 ) . E. AMU ( 2, 7 ) ,N J, l ,Nt , K'» 3 , <u . KA MU > 

CALL 5AT£( UNL. HS( i , 1 1 ) . A.AMJI 2,7) ,NJ. I .Me , K* S . KA , KAMU > 

CALL £Atbl-LlN£.»S(l i K) .a.AXUU.n iNJ. 1 .NE , K* 5 , Ku . KAMU ) 

C»** Fti TC F SX*SlGZ,SY*3lGZ 

CALL Ft TCH( NT APE 3 ,23 t NRtC3. A. N J ,NE . KA) 

CALL FtTCmNTAPEJ,Z«,NRLLJ.B.NJ.NE.KB) 

CALL SATfa( UNL. U VLC , A . A MU ( 5 . 7 ) . N J . 1 ,Nt • K» b . KA . KA MU ) 

CALL 5ATE( -LNE.UVEC , B . A MU l 4 . 7 > . N J , 1 .N t . K<Y S , N d . K A MU ) 

CALL 3ATE< -O N£. DS( 1 , 1 J ) , A . AMU( 1,71 iNJ. 1 ,Ni . K« 5 . KA , K AMU ) 

CALL 5ATt( -UNE.*S(l . U) ,fl,AMU( 2,7) ,NJ, 1 ,NE . K* 3 , Kii , KAMU 7 

CALL SA Fti UNC , »S< 1 • 1 I > . A, AMUI 3 . 7 ) ,N J, 1 ,Nc . K* 3 , K A . K A MU ) 

CALL GATE! ONE, WS< l . 12 ) . 6. AMU< 3. 7) .NJ, 1 „VE . K* 3 , Kd , KAMU > 

C#** FETCH iY*HX,S7*HX 

CALL Ft 1 CH ( NTAPtJ , 2 . NKEC3 . A , N J , NE . KA ) 

CALL FETCH1NTAPE3. 3 . NX t C3 . o . N J , NE , K8 > 

CALL SATL( UNE.UVEC , (J. AMU ( 2 , 7 ) . NJ , 1 ,N t . KM 3 . Ko . K A MU ) 

CALL EATBl-ONE.UVcC . A • AMU ( J • 7 ) . N J . 1 ,VE .K* 3 , KA , KAMU ) 

C*** FETCH SX*HY,SZ*HY 

CALL Ft TCH(NTAPE3 . 5 , Nkt C 3 , A , N J , NE . K A ) 

CALL FLTCrKNTAPtJ, o . N Hi t L 3 .5 , N J , Nh . KH ) 

call 3ATEC -ONE . UVLl , B • A MU ( 1 , 7 ) • N J , l ,!L • K* 3 . KB i KAMU ) 

CALL SAT81 UNE.UVtC . A,AMU< 3.7) ,NJ. 1 ,Nt . K« a . KA . KAMU ) 

C*** FETCH 3XHHZ.5YAHZ 

CALL F'LTCMlNrAPej, o . NR l C3 . A . N J . NE . K A ) 

CALL FcICHtNT APE 3 * V .NHtCJ.tj, N J .Nt , K 3) 

CALL S A T E ( UNL.UVtC . b . A MU ( l . 7 ) . N J , 1 ,NE . K* 3 , KO , KAMU ) 

CALL SATEC -UNt, UVEC . A , A MU ( 2 , 7 > . N J , 1 ,N E . K* 5 . KA , KA MU I 

C*** FETCH. JXX*SlGX,.JXY*5IuX, jXitilGX 

CALL Ft T CH( NT APE 3 , 1 0 . NkECJ , A , N J .NE , KA ) 

CALL FETCH! NT APfcJ , 11.NNEC3.B.NJ.NE.KB) 

CALL FtTCH(NTAPL3.12,NfitC3,C.NJ,NE.KC) 

CALL 3 A T E ( UNE.UVEC , A . A MU ( 1 , 7 ) . N J . 1 .NE . KW a , KA , K A MU > 

CALL 3A It (-UNE.UVEC , U , A MU ( 2 . 7 ) . N J . I ,N t . K M 3 . KB , K A MU ) 

CALL 3ATL(— UNL.UVtC . L . A MU ( 3 . 7 > , N J . I ,Ni . K* 3 . i<C . KAMU ) 

C FETCH JXYXSIGY. JYYtilGY, JYZ4S1GY 

CALL F ETCH ( NTAPE3.15,NkECJ.A,NJ.NE,KA) 

CALL Ft 1 CH( NT APt J , i o . NHEC j . B< N J . NE . KH) 

CALL Ft T CH ( N T Apt 3 , l 7 . NkcCJ .C . N J , NE ,KC) 

CALL SA Tb< -ONE, UVLC . A , A MU ( l . 7 ) . N J , l .N E . K« 3 . K A . K A MU ) 

(ALL 3 A T E ( UNE.UVEC , d , A MU ( 2 . 7 ) . N J . 1 .hie . KX 3 , K fa , K. A MU ) 

CALL SATBC-UNL.UVtC , C . A MU ( 3 . 7 ) , N J . 1 ,Nt , K« d . K.C . K AMU ) 

C *** FETCH JXZ»3I 07. J YZ*j I 3 Z. JZZ*3I GZ 

CALL Ft T CH( NT APE 3. 20 . NRtCJ. A .N J ,NE .KA) 

CALL FETCrt(NTAPE3.21 .NREC3.B.NJ.NC.KB) 

CALL FtTCH(NT AP 1 3 *22, NKt C3.C.NJ.NE.KC) 

CALL 5A IU( — ONL. UVtC . A . A MU ( l . 7 ) , N J , 1 .NE.KwS.KA.KAMU) 

CALL SATB(— UNL.UVtC , U . A MU ( 2 . 7 ) . N J . 1 ,Nt . <* 3 . KU . K AMU ) 

CALL SATb( UNL.UVtC , C . A MU ( 3 . 7 ) . N J , l .NL . K* b . KC . KA MU ) 

C 

CALL Wkl TE<AMU( I .7) . J . NE . oH DOC CEF , K AMU ) 

CALL VYN I TE (AMU( 4 ,7) , J , NE . uHAOCOEF . KAMU ) 

C 


0 2237 
0 22JB 
0 2239 
0 2240 
0 2241 
0 2242 
0 2243 
0 2244 
0 2245 
0 2246 
0 2247 
0 2248 
0 2249 
C 2250 
0 2251 
0 2252 
0 2253 
0 2254 
0 2255 
0 2256 
0 2257 
0 2258 
0 2259 
0 2260 
0 2261 
0 2262 
0 2263 
0 2264 
0 2265 
0 2266 
0 2267 
0 2268 
0 2269 
0 2270 
0 2271 
0 2272 
0 2273 
0 2274 
0 2275 
0 2276 
0 2277 
0 2278 
0 2279 
C 2280 
0 2281 
0 2282 
0 2283 
0 2284 
0 2285 
0 2286 
0 2287 
0 2288 
0 2289 
0 2290 
0 229 1 
0 2292 
0 2293 
0 2294 
0 2295 
0 2296 


RETURN 0 2297 

END 0 2298 


B-42 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c**» 

c * * * 
c * * * 

c** * 
c** * 

c* * * 
c* * * 

c * * * 

c* * * 
c* + * 


EUeRCUUNE CRLt'l NREC 3 • NKEC2 # N J . NE . A . B, C , AM J , K A . KB . KC . KAMU) 

OE BUG 0 20 

IMPLICIT RLAL*8( a-h, u-z ) 

LSE THE LUMPEl) PARAMETER OATA CN NTAPEJ; ANl> EQ 11-34 TO 
CCMPUTt THE IRGFLXiN) bV IRGFLXIN! MOJAL MAS5 MATRIX. THIS 
IS THE E MATRIX IN EU 11-87 

CO MM C N /SuMbRS/ ZRG.GNL, TupG.TRES 

co mm c n / tape no/ ntapci ,ntape2. ntape3 

C1ME7S1CN A! KA , 1 ) • H Kd • i I.CtKC . 1 ) . A MU I KAMJ , 1 > 

FETCH rt*F,X,SZ*SlUY.SY*5lGZ 

CALL FcT LH I N T APES • i • NREC 3 . A . N J , NE . K A ) 

CALL FETCH (NT APE3,l9.NREC3,b.NJ,N£,KQ) 

CALL FETCH! N TAPE 3 .04 , NRLC3. C.N J ,NE . KC ) 

CALL AUU3! ONE, A. uNc , G . -UN E . C . N J . NE . K A ( 

FETCH HX 

CALL FeTCH! NT APE2 , O , NkbCZ . O . N J , NE . K B > 

CALL SATBI UNE.B.A.AMO! 7. 7) ,NJ . NE . NE . K B , KA , K A 4 U > 

FETCH M«hT.SX*SHiZ.A7*SIliX 

CALL FETCHCNTAPE3. 4 . NRE L3 . A . N J , NE , K A ) 

CALL FETCHCNTAPES.ES.NRECJ.b.N J.NE.KB) 

CALL FETCH! N TAPES , 1 4 , NRE C3 . C , N J , NE . KC I 
CALL AoJ3( O NL , A • ui\c ,b«— ONEtC , N J , NE t K A ) 

FETCH H Y 

CALL FETCHCNTAPE2. O . NRE C2 . b . N J . NE . KB ) 

CALL SATE! ONE , B . A. AMo < 7 . 7 ) ,NJ , NE . NE .KB . KA . KAMO ) 

FETCH M*F2 .3Y*SiGX.5X*51 GV 

CALL FE T CMC N T APES , 7 . NRE C3 . A . N J . NE . K A) 

CALL He TCHCN TAPES . 1 S . NRE CS . B . N J . NE . KB » 

CALL Fc TCH (N T APES . 1 8 .NRECJ , C , N J .NE ,KC) 

CALL AOU3C ONE, A, ONE , L» , — ONE , C , N J , NE , K A ) 

FETCH HZ 

CALL FE TCH ( N TAPE 2 , 7 , NRE C2 . d , N J , NE , KS) 

CALL SATE! ONE, 8 , A, AMU I 7 , 71 ,NJ .NE , NE ,KB ,KA , KAMU) 

FETCH JXX* SI GX , JXYFSIGT . JXZ*SI GZ 
CALL FETCH!NTAPE3,10.NREC3,A,NJ,NE,KA) 

CALL FETCH! N T APL3 , 1 S.NRcCS. b.N J , NE ,K3> 

CALL Fetch! NT APES , e0 . NRECS.C ,N j ,NE , KC > 

CALL ADOS! ONE, A, -ONE. b. -ONE. C .NJ.NC.KA) 

FETCH SY*MZ.SZ*HY 

CALL FETCH! NT APES, 9 . NRcC s , b , N J , NE . KB ) 

CALL Ft TCHCNTAPEO • o . NKEC3 . C . N J , NE , KC ) 

CALL AUU3! ONE, A, oNe , b . - ONE . C . N J , NE . K A ) 

FETCH gIGX 

CALL FeTChIN TAPE 2, b . NRE C2 . b . N J , NE . KB > 

CALL SaTB! ONE, B. A, AMO! 7.7) ,NJ ,NE .NE .KB . Ka . NAMU I 

FETCH JXY*SIGX,JYYHS1GY,JYZ*SIGZ 

CALL FETCH! N TAPES . IT . NRE Co . A , N J ,NE , KA ) 


0 2299 
0 2300 
0 2301 
0 2302 
0 2303 
0 2304 
0 23 OS 
0 2306 
0 2307 
0 2308 
0 2309 
0 2310 
0 231 1 
0 2312 
0 2313 
0 2314 
0 2315 
0 2316 
O 231 / 
0 2318 
0 2319 
0 2320 
0 2321 
0 2322 
0 2323 
0 2324 
0 2325 
0 2326 
0 2327 
0 2328 
0 2329 
C 23S0 
0 2331 
0 2332 
0 2333 
0 2S34 
0 2335 
0 2336 
0 2J37 
0 23S8 
C 2339 
0 2340 
0 234 1 
0 2342 
0 2343 
0 2344 
0 2345 
0 2346 
0 2347 
0 2348 
0 2349 
0 2S50 
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c n n on 


CALL F E TCH(NTAPE3,16,NReC3,B.NJ,NE.KB> 

CALL FETCH1NTAPE3.21 .NREC3.L.N J.NE.KCI 
CALL A0D31-0NE..A , ONE, B, -ONE. C ,NJ . NE ,KA ) 

C*** FETCF SZ*HX,SX»HZ 

CALL FETCH1NTAPE3, 3 , NRtC3 . B . N J ,NE . KB ) 

CALL FETCHCNTAPE3 , fa . NRECJ . L . N J ,NE . KC ) 

CALL ADO 3 { ONE. A. UNE . B , -ONE , C , N J , NE , K A > 

C*** F6TCF 3 1 GY 

CALL FeTCHCNT APE 2 * 9 . NREC2 . B . N J ,NE . KB ) 

CALL 3 A T B ( O NE . B , A . AM J l 7 , / J .N J . NE . NE , KB , KA . K A* J ) 
C*** FETCF JXZ»SI OX. J YZ*S IGY . JZZ*S I GZ 

CALL FETCH CN TAP E3 .12 , NREC3 . A , N J , NE , K A > 

CALL Ft TCHCNT APE3 » 1 7 , NRECJ itiiNj ,NE .KB ) 

CALL FE TCrt( NT APE 3 , 22 . NREC3 . C. N J .NE . KC ) 

CALL AU03<-UNE.A,-GNE.O, UNE , C , N J , NE , K A ) 

C*** FETCF SX*HY.SY*HX 

CALL FETCHCNT APE 3 • 5 . NREC3 . B . N J ,NE . KB > 

CALL PET CH ( N T AP E3 • 2 , NRL C3 . C . N J , NE , KC ) 

CALL ADOZC ONE. A .ONE . B ,-GNE .C . N J ,NE . KA ) 

C*** FETCH 3 I GZ 

CALL FETCHCNTAPE2,1Q.NRlC2,0.NJ,nE,KB) 

CALL SATEl UNE.B.A.A Mu ( 7 . ft .NJ .NE .NE.KB.KA. KA't J ) 
CALL i»HITECAMUC7,7).NE,NE.5H£C CEF , KAMU > 

C 

RETURN 

ENC 


0 2351 
0 2352 
0 2353 
0 2354 
0 2355 
0 2356 
0 2357 
0 2358 
0 2359 
0 2360 
0 2361 
0 2362 
0 2363 
0 2364 
0 2365 
0 2366 
0 2367 
0 2368 
0 2369 
0 2370 
0 2371 
0 2372 
0 2373 
0 2374 
0 2375 
0 2376 


SUER CUT INE CRE A ( NRL£ 3 . NJ , N£ . U V EC . A , B .K A , KJ . K*> ) 

OEBUG * , 2 1 

IMPLICIT REAL*8C A-h. U-Z J 

CSE THE LUMPED PARAMETER DATA CN NTAPEJ, AND EG 11-33.35 
ALONG WITH A— Ic. TO A-2G TO COMPUTE THl ALPHA COEFFICIENTS OF 
C EQ 1I-8B. UaED TU DEFINE THE linear dc j ENDENLd OF BODY'S 

C STATIC MASS MOMENT ON DEFORMATION 

C 

COMMCN /NUMDRS/ ZRO. UNE . TwU . TRES 
COMMON / T APE NO/ NTAPcl .NTAPE2. NTAPE3 
C 

LI ME MS l ON A I KA, 1 ) ,L>( KB , 1 J ,U VEC ( 1 ) 

C 

CALL Z.-RCC A, 9.NE ,KA) 

C*** FETCF M*F,X 

CALL FE TCH ( N TAPE 3 . I , NREC J . U , N J , NE . KB ) , 

CALL JATBI -UNE.UVEC. B. A( 6, 1 ) .N J , 1 .NE ,KWS »K8 .KA) 

C*** FETCF M*PY 

CALL FETCHCNTAPeJ , 4 . NREC3 . B . N J . NE . KB 1 

CALL SATcC ONE, J VLC . B . A I 3. 1 ) . N J , l . NE .KWS ,t\3 ,K4 ) 

C*** FETCF M*PZ 

CALL FETCHINTAPE3 , 7 , NKEC3 . U , N J . NE . KB 1 

CALL SA TBl-ONE, UVEC, U.AiZ, l ) .NJ) I .NE.KWS.KS.KA) 

DO 49 J=l,NE 
A( 4 , J ) = -AC 2, J ) 

AC 7, J ) = -AC 3. J ) 


0 2377 
0 2378 
0 2379 
0 2380 
0 2381 
0 2382 
0 2383 
0 2384 
0 2385 
0 2386 
0 2387 
0 2388 
0 2389 
0 2390 
0 2391 
0 2392 
0 2393 
0 2394 
0 2395 
0 2396 
0 2397 
0 2398 
0 2399 
0 2400 
0 2401 
0 2402 
0 2403 
C 2404 
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49 A18.J) = -Alt.J) C 2405 

C 0 2406 

CALL SillI 1L ( A ,9 , NE ,'lh ACCF .KA ) C 240? 

*R IT E l Ml APtl ) 1 ( A( l , J) . J=l ,NE > . 1=1 .9) C 2408 

C C 2409 

LETUP N 0 2410 

END 0 2411 


SUHRCL r I Nt: CRE6 1 NEILL 3. NHtC2 . N J . NE . A , R . SS .KA . K3 . K'« S ) 

C 

C DEBUG # 22 

IMPLICIT REALfcal A-h. O-L) 

C 

C LSE THt LUMPED PARAMETER DATA CN NTAP-3 ANJ EGS 11-31.32.37 

C ALJNG «I IH A- 2 1 TO A — 2o TO COMPUTE T He. 8 CJfcFHCILNTS OF 

C £0 11-68. USED TO utFINc THE LINEAR Dc. j EnJEnLE GF UtJDY'S 

C INERTIA TENSOR UN UtFuRMATICN 

C 

CIl.VMCN /NUM8RS/ 2RG.ONE . TwO.TRES 
CUMMCN /TAPLNO/ N TAP E l , N T AP> E2 , N T APE3 
C 

CIMEPSICN A( KA, 1 ) . Dl Ko . 1 ) . RSI ECUS i 1 > 

C 

CALL CcHOI U. 6 .NE . Kt) 

C*** FETCH H »RH0X .M4RHLV • M*RnLi 

CALL FE JCrtl NTAPE3 ,2S .NKEC3.A1 1 , 1 I ,NJ . I .KA) 

CALL FE TCH (NT APEJ ...6 .NRcCJ » A( 1 .2 > . N J . 1 , KA) 
call Fetch ( ntapl j.27 .nrlcs . ai i .ei.aj.i.kaj 


co 5; 

l - 

l.NJ 



»S( l , 

a ) 

= WS1 1 . a) 


Ail.lt 

WS 1 l , 

y ) 

= A SI l , 9) 

♦ 

A 1 1,2) 

2 WS 1 1 , 

10 ) 

■= W S 1 1 . 1 0 ) 


At 1.3) 


C*** FETCH H X 

CALL FETCHl N TAPE2 . J . NRtC2 . A , N J , NF. . K A ) 

CALL SA TE< ONE , W5< 1 . 8 ) . A , o ( 2 . I ) , N J . I ,NE . KW J , < A , KO ) 

CALL SAT £( LNE .-'US ( 1 . 8) . A . 8 l 3 . 1 ) . N J t 1 »NE . Kw S * K A . KO ) 

CALL SATE1GNE.WS1 l . 9 ) , A ,6( 4 . 1 ) ,NJ , ) ,NE ,KWS .KA . KU> 
CALL SATtl UNE , WS ( 1 .10) ,A,6(5. I ),NJ,1 .NE . K. 3 , K A , K 8 ) 
Cf** Ft TC F HT 

CALL FETCHl NTAPtE . 6 . NREC2 , A , N J ,NE ,KA ) 

CALL SAT E< ONE . WS < l . 9 > . A , 8 4 l . I > . N J . 1 ,NE . Kw 5 . K A . K6 ) 

CALL S A TE( UNE, WS ( l . 9 ) . A . til J . 1 ) . N J . 1 .NE , K« S . KA . Ko) 

CALL SATKIONE.WS1 1 . 0 ) . A , 8 1 4 . I ) . N J , 1 ,NE . K„ 5 , K A . K8 ) 

CALL SATE! UN t.WSl 1.10) *A,6(G« 1 I.NJ.l . NE . K* S.KA.Ko) 

C*** FETCH HE 

CALL FETCHl N TAPE2 , 7 . NRt C2 . A , N J , NE . K A ) 

CALL SATE! ONE .WS( 1.10) .A, 81 1.1 I.NJ.l .NE.KwS.KA.K6) 
CALL SAT El ONE. WS 1 l . 1 0 ) . A ,U1 2 . 1 I.NJ.l .NE . KW S.KA.K6) 
CALL SATE1UNC.US1 1 . 8) .A ,□( o, l ) ,NJ, l .NE .KwS .KA, K8) 
CALL sATEl 0NE.WS1 1 , 9 ) . A . H 1 6 . I ) . N J . 1 .NE . K*S . KA . KO) 
C 

CALL ViR ITE (6 .G.NE .4HQCUF ,K8 ) 

SR IT E 1 NT APLl ) l(U(l.J).J = l.NE).I = l,6> 

C 

RETURN 

END 


C 24 12 
0 24 13 
0 24 14 
0 2415 
0 2416 
C 2417 
0 2418 
0 24 19 
0 2420 
0 2421 
0 2422 
0 2423 
0 2424 
0 2425 
0 2426 
0 2427 
0 2428 
0 2429 
0 2430 
0 2431 
0 2432 
C 2433 
0 2434 
0 2435 
0 2436 
0 2437 
0 2438 
0 2439 
0 2440 
C 244 1 
O 2442 
O 2443 
0 2444 
0 2445 
0 2446 
0 2447 
0 2448 
0 2449 
0 2450 
0 24 51 
0 2452 
0 2453 
0 2454 
0 2455 
0 2456 
0 2457 
0 2458 
C 2459 
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<** c\ n n r. nnnn on 


SUC'ROuTlNE CKEC C NRLC3 . NRLC2 , N J . NE . A , 8. C , AM J , KA . KB . KC , K AMU ) 

c 

C DEBUG tt 2 2 

IMPLICIT K£AL*8l A-H.O-Z) 

C 

C IbL THE LUMPED PARAMETER DATA ON N T APE 3 AND tQb 11-32.36 

C ALONG uITH A-27.2b.24 TE CCMPUTE THE C COEFFICIENTS OF 

C EO t 1—60 » USED TO DEFINE THE LINEAR DEPENucNLc UF BODY • S 

C COUPLING COEFFICIENTS ON DEFORMATION. 

C ALSO WITH EOS 11-31. 32, 37 ALONG WITH A-30 IU A-3S CCMPUTB THE 

C C COEFFICIENTS OF Eu 11-89. USED TO DEFINE THE QUADRATIC 

DEPENDENCE OF oUDY'S INERTIA TENSOR On dE = J-CMAT ION 

COMMON /NUMBHS/ ZKU . ONE , T *G . TfitS 
CO MM C N /TAPENG/ N T AP E 1 . N I AP E2 . NT AP E3 

DIMENSION A< KA,. 1 > , cl KB ,1 J .CIKC .1 ) . AMU ( KAMj, 1) 

*»* FORM CCCF1 = CAY 

CALL ZERCCAMU.NE.Nt.KA Mu ) 

*** FETCF M»FY ,SX*SIGZ.SZ*SIGX 

CALL FL T CH ( N TAPE 3 . 4 ,NRlC3 . A , N J . NE , KA) 

CALL FE T CHI NT APE 3 .23 .NRLC3.B .N J ,NE , KU ) 

CALL FETCH! N TAPE 3 . 14 , NKECJ , C .N J .NE ,KC ) 

CALL ADD 2 ( O Nc , A , UNE . B . -ONE . C . N J . NE . K A ) 

*** FETCF HX 

CALL FC TCHC NTAPE2 . b ,NRcL2 . 6 , N J ,NE . KB > 

CALL SATE! ONE, e , a, AMU ,N J , NL .NE ,KB . KA, KAMJ j 
*** FETCF M*hX.bZ*SIGY.SY*SIGZ ' 

CALL FETCHCNTAPE3. 1 , NREC3 . A , N J .NE . KA ) 

CALL Fell CHIN TAPED, 1 9 . NREL3. 6 . N J ,NE ,KB) 

CALL FE TCH l NT APE3.24 .NkcCD. C.NJ.NE . KC) 

CALL AJ03C UNE, A, UNE . b . -uNL . C . N J , NE , K A ) 

** FETCF HY 

CALL FETCHCNTAPE2, 6 , NREC2 , B , N J ,NE . KB ) 

CALL SATBC-UNE.a.A.AMU.NJ.NL.NO.KB.KA.KAMUi 

CALL *<H I TEC AMU.NE ,NE , 3HCXY , KAMU) 

WR l TE (NT APE l ) ( C AMuC I . J J , J- 1 ,N E ) . I = l .NE > 

** FORM CCCF2 = CXZ 

CALL ZERCC AMU.NE ,NL . KAMU ) 

C*** FETCF HZ 

CALL FOTCHCNT AP E 2 • 7 , NRLC2 , B . N J , NE , KB) 

CALL SATEC ONE ,B, A, AMu .N J ,NL ,NE .KB ,K A, KAMU) 

C*** FETCF M*FiZ.SY*SIGX.SX*SIGY 

CALL FETCH! NTAPEJ , 7 , NKE C3 , A , N J .NE , K A ) 

CALL FE T CH C N T AP 1 3 tl3»NRLC3,U,NJ,NE,KB) 

CALL FETCH! N TAPED . 16 .NRLC3, C, N J .NE , KC) 

CALL ADD3C ONL.A. UNE , O . -ONE . C . N J . NE ,K A ) 

C*** F6TCF HX 

CALL Ftl CMC NT APE 2 . b , NKt C2 , B . N J . NE . KB ) 

CALL SATBC-UNE ,B. A. A Mu .N J.Nt.NE.KB ,KA, KAMu) 


0 2460 
0 2461 
0 2462 
0 2463 
0 2464 
0 2465 
0 2466 
0 246/ 
0 2468 
0 2469 
0 2470 
C 2471 
0 2472 
0 2473 
0 2474 
0 2475 
0 2476 
0 2477 
0 2478 
0 2479 
0 2480 
0 2481 
0 2482 
0 2483 
0 2484 
0 2485 
0 2486 
C 2487 
0 2488 
C 2489 
C 2490 
O 2491 
0 2492 
0 2493 
0 2494 
0 2495 
0 2496 
0 2497 
0 2498 
0 2499 
0 2500 
C 2501 
0 2502 
0 2503 
0 2504 
0 2505 
0 2 506 
C 2507 
0 2508 
0 2509 
0 2510 
0 251 1 
C 2512 


B-46 



c 

c 

c*** 

c*** 

c*** 

c*** 

c 

c 

c* * * 

c 4 4 4 
C44 4 

c 

c 

C44 4 
C44 4 

c 

c 

c*** 

C44 4 

c 

c 

C44 4 

c*** 


CALL *Rl TE l AMU.NE »NE .3HCXZ .KAMU > 

*R ITEINT APE1 ) < ( AMul I . J 1 . J= 1 . N E » ■ I = l , NE ) 

FORM CuOF3 = C YZ 

call zerci amu.ne ,ne, kamu > 

FETCH HY 

CALL FfcTCHlNTAPEZ. 6 . NKE C2 . B . N J ,NE . KO ) 

CALL 5ATBI ONE .8 , A. AMUtN J.Nh .NE .KO .KA. KAMul 

FETCH M#hV .SX4SI GZ.3Z4 SI OX 

CALL FETCHl NT APE3 . A » NKcC3 • A , N J ,NE , KA ) 

CALL Ft TCH<N TAPE 3.23. NRt C3 . B . N J , NE , KB ) 

CALL Ft T CH (NT APE 3 , l A , NKEC3 . C . N J ,NE ,KC) 

CALL ADU31 ONE. A, CNE , B. -UNE, C ,NJ ,NE,KA I 
FETCH HZ 

CALL FETCH1NTAPE2. 7 , NREC2 , B , N J . NE , KO ) 

CALL SaTBI-UNE.B.A.AMu.NJ.NE.NE.KB.KA, KAMU) 

CALL i»RlTE(AMU,NE.NE, JHuYZ.KAMU) 

l*R I T E ( N TAPE l ) It AMU I , J ) > J= 1 , N E ) , [ = 1 ,NE ) 

FORM CCCF4 = Cl 1 

CALL ZEROl AMU.NE .NE • KAMU ) 

FETCH M4HY ANU HY 

CALL FE TCH( IMTAPE3 , 4 , NRLC3 . A , N J . NE . K A > 

CALL FtTCH(NTAPE2. o . NR l C2 , B . N J , NE , KB ) 

CALL jATBI UNE ,B. A.AMu . NJ ,Nt . NE .KB ,K A, KAMU) 
FETCH M»FZ ANU HZ 

CALL FETCH(NTAPEJ. 7 . NRt C J . A , N J . NE . K A ) 

CALL FL ICH( NTAPE2 . 7 , NRt C2 . B . N J . NE . KB ) 

CALL SaIBI UNL .8 . A, AMU .N J iNc , NE.KB .KA.KAMU J 

CALL VtR 1 TE< AMU.NE .Nt . JHL l l , KAMU) 

HR I TE (NT APL1 ) < ( AMu( l,J).J=l.NE),l=l,NE) 

FORM cCCFo = C22 

CALL ZtRGlAMU.NE .NE.KAMU) 

CALL SATET UNE .8 . A. AMJ ,N J .Nt .NE .KB.KA , KAMJ J 
FETCH ,«*FX AND HX 

CALL FETCH (NTAPE3. 1 ,NRE C3 . A , N J .NE . KA) 

CALL FuTCH(NTAPt2, 5 ,NRtC2 . B. N J .Nt . KB » 

CALL BATE! LINE .8. A, AMU .N J.Nt • NE .KB ,KA, KAMJ ) 

CALL »R HE ( AMU, NE . Nt . 3HC 22 , KAMU ) 

»R I TE InTAPEI ) { ( A Mu l I , J ) ,J = l,NE).l— l.NE) 

FORM CCCFB - C 33 

CALL ZERO! AMu.Nt . nu , KaMU ) 

CALL SATBt UNE ,B , A , AMu .N J.NE . NE .KB . KA, KAMJ) 
FETCH M ♦ HY AND HY 

CALL FL T CH 1 N T AP c 3 » 4 , NKttC3 , A , N J , NE , KA ) 

CALL FuTLH(NTAPE2. o . NWC.C 2 , b , N J • NE . KB ) 

CALL BATBl U NE • D . A , AMU . N J , Nt , N E . KB . K A , K A Mu ) 

CALL i»R I TE( AMU.NE . NE , 3HL3J • KAMU ) 

VlR I TE InT APtl ) < { AMU l 1 . J ) . J = 1 .NE ) . I = 1 .NE ) 

FORM LC OF 7 = Cl 2 

CALL ZERO'! AMU.NE .NE , KAMU ) 

FETCH M*H.X 


0 2513 
0 2514 
0 2515 
0 2516 
0 251 7 
0 2518 
0 2519 
0 2S20 
0 2521 
0 2522 
0 2523 
C 2524 
0 2525 
0 2526 
0 2527 
0 2528 
0 2529 
0 2530 
0 2531 
0 2532 
0 2533 
0 2534 
0 2535 
0 2536 
0 2537 
C 2538 
0 2539 
0 2540 
0 2541 
0 2542 
0 2543 
0 2544 
0 2545 
0 2546 
0 2547 
0 2548 
C 2549 
0 2550 
0 2551 
0 2552 
0 2553 
C 2554 
0 2555 
C 2556 
0 2557 
0 2558 
0 2559 
0 2560 
0 2561 
0 2562 
0 2563 
0 2564 
0 2565 
0 2566 
C 2567 
0 2568 
0 2569 
0 2570 
0 2571 
C 2572 
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U<J<J<JUVJUUU uu 


(ALL FE TCH( N TAPE3 . 1 ,NREC J . A . N J , NE . K A ) 0 2573 

CALL SATE! ONE.B.A.AMu.NJ.NE.NE-.KB .KA.KAMU) 0 2574 

C 0 2575 

CALL UK I TE I AMU.NE ,NE , JHC12 .KAMU) 0 257b 

WRITECNTAPE1 i ( ( AMuC I . J> .J=l .NE ). 1=1 ,NE) 0 2577 

0 2578 

*** FORM CCCF8 = Cl 3 0 2579 

CALL ZEKCI AMU.NE ,NE. KAMU ) 0 2580 

*** FETCF Hi 0 2581 

CALL FETCH ( NT APE 2 , 7 , N RE C2 . B , N J , NE , KB ) 0 2582 

CALL SAT6( 0NE.a.A.AMj,NJ,N£.NE.K3.KA,KAMU) 0 2583 

0 2584 

CALL WK I TE ( AMU, NE .NE , 3HC 1 J , KAMU) 0 2585 

WRITEINTAPEl ) ( ( AMO( 1 , J ) . J=1 ,NE ) . I =1 ,NE ) 0 2586 

0 2587 

*4* FORM CCCF9 = C23 C 2568 

CALL, ZERiOl AMU.NE ,N£ . KAMU ) 0 2589 

#*» FETCF M *FiY 0 2590 

CALL FETCH(NTAPE3, 4 . NREC3 , A . N J . NE , K A ) 0 2591 

CALL S A T 8 ( UNE . B. A. AMU ,N J. NE . NE ,K8 ,KA. KAMJ) 0 2592 

0 2593 

CALL WR 1 TE< AMU. NE . NE , 3HC25, KAMU ) C 2594 

HR 1 TE { NT APEl ) ( ( AMU< 1 , J ) . J= 1 .NE ) . 1= 1 ,NE ) 0 2595 

0 2 596 

RETURN 0 2597 

END 0 2598 


SUERCUf INE a ICRE (M aPE.A.U.Z.NA.NCB.KRA.KKJ.KRZ) 


DEBUG # 24 

IMPLICIT REAL*8( A-H, 0-2 ) 

C 

C MATRIX PRODUCT 2 - A*b WITH A - DIAGONAL AND iluKED AS VECTOR 

C PRODUCT WRITTtN UY «GWS ON N T APE 

C HFiERE A = INPUT INA.NA) 

C 0 = INPUT (NA.NCB) 

C 2 = OUTPUT I NA.NCB) 

C 

C I MENS ION A ( KRA , 1 ) . 8 ( K RB , l ) , 2 ( KP Z . 1 ) 

C 

CO 1C l = 1 . NA 
S = A ( I , l ) 

CO 1C Js.liNCB 

10 2 ( 1.3) = S*u C I . J ) 

C 

WR ITE (NT APE) ( ( Z ( I . J ) . J- 1 ,NCB ) , 1= l .NA) 

C 

RE TURN 
END 


0 2599 
C 2600 
C 2601 
0 2602 
0 2603 
0 2604 
0 2605 
0 2606 
0 2607 
0 2608 
0 2609 
0 26 10 
0 261 1 
0 2612 
0 2613 
0 2614 
0 2615 
0 2616 
0 261 7 
C 2618 
0 2619 
0 2620 
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EUERCUI 1 Ml l-tTCHINTAPc.MRcU'l, 

N’JfcCO , b ,NRA ,.\|C A , < i A ) 

C 

262 l 

c 



UcBUG # 2 5 

0 

2622 



implicit i<i-:al* 8( A-ll. O-Z ) 


0 

2623 

c 




0 

2624 

c 


FCfCh MATRIX f-HOM NT ARE - ASjUMEJ 'aRITTEN jY 

0 

2625 

c 


*HLME NMECN - iNPJJ RECORD NUMBER OESHEO 

0 

2626 

c 


NHECO = L«af OUTPUT 

RECORD NUM.3iL7< H£TCMu.O KKCM ntape 

0 

2627 

c 


UitJ Tu AVUI J EXCESSIVE 1 AP; SEARCH 

0 

2628 

c 


A = AH RAY *HtRE 

RECORD STORED (Nr<A,NCA) 

0 

2629 

c 




0 

2630 



C l ME h S i 0 N A l KR A , 1 ) 


c 

2631 

c 




0 

2632 



IF(NF£CN - NRECO) 1.2,3 


0 

2633 

c 




0 

2634 


l 

Fd'Alf'LJ NTA PE 


0 

2635 



NS* IF = NRELN - 1 


0 

2636 



IFINSKIP .EO. 0) GO TO 20 


0 

2637 



CO 1C K=l. NOKIP 


0 

2638 


1 c 

RE AO <M APE) OUM 


c 

2639 



CO T C 2 C 


0 

2640 

c 




c 

264 l 


2 

E A CK SPACE NT APE) 


0 

2642 



GO TC 20 


0 

2643 

c 




0 

2644 


j 

ESKlF = NRELN - NRECO - 1 


0 

2645 



IFINSXIP • LO • 0) GU IU 20 


0 

2646 



CO 11 K = 1, NS KIP 


0 

2647 


1 1 

RE AD ( N T A PL ) OUM 


0 

2648 



CO TC 20 


0 

2649 

c 




0 

2650 


20 

NRECC = NRELN 


0 

2651 

c 




0 

2652 



KEAMNTAI-E) ( [All . J) . J=l .NCA) 

t I - l * NR A ) 

0 

2653 

c 




c 

2654 



FETUFN 


0 

2655 



END 


0 

2656 



SUER cur i NL S ATEU S . A. 8 . Z . NR A , NC A , NC 8.KR A , KKd , KRZ ) 


0 

2657 

C 



0 

2658 

C 


DEBUG * 26 

0 

2659 


IMPLICIT RtAC«8(A-h,0-tl 


0 

2660 

C 

T 


0 

2661 

C 

NATHIX PRODUCT Z ( NEW ) = Z(OLO) ♦ S*A *8 


0 

2662 

C 

VHtRE S = SCALAR 


0 

2663 

C 

A = INPUI (NRA.NCA) 


0 

2664 

C 

B = INPUT (NRA.NCB) 


0 

2665 

C 

Z - OUTPUT (NCA.NCB) 


0 

2666 

c 



0 

2667 


CIMEESICN AlKRA.l I.UIKRD.I ) ,Z< KRZ. 1 ) 


0 

2668 

c 



0 

2669 


CO 2 C 1 = 1. NCA 


0 

2670 


CO 2 0 J=l.NC8 


0 

2671 


CO 2 C K= 1 . NR A 


0 

2672 


20 ZII.J) = ZII.J) P B*A( K. I ) *B( K . J ) 


c 

2673 

c 



0 

2674 


RETUFN 


0 

2675 


ENO 


0 

2676 
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SUERCUTINE ADD3I ALPHA , A , BET A . a . G AMMA.C . NR.NC .KM ) 0 2677 

IMPLICIT KtAL*8l A-H.O-Z) 0 2678 

DEBUG #27 0 2679 

0 2600 

C MATRIX ADDITION A = ALPHA# A P EETAPB P GAMMA*C 0 2681 

C WHERE ALPHA, UfcTA, oAMMA ARE INPUT SCALARS AND 0 2682 

c a , b , c are input matrices <nr.no o 2683 

C 0 2684 

CIMEASICN A< KH. 1 ) ,B( KR , l ) ,C <KR . 1 > 0 2685 

C 0 2686 

CO 1C 1= I. NR C 2687 

CO 1 C J = 1 , NC 0 2688 

10 A(l.j) = ALPHA*A(l,J) p b£TA*B(I.J> P GAMMA *C I I , J ) 0 2689 

C C 2690 

RETURN 0 2691 

END 0 2692 


C 

C 

C 

C 


C 


sueRCuriNt mrigio <n» 

DEBUG # 28 

SEE SUBROUTINE DeF 3 . ubuuG# l 1 4 .FOR I NPUT DATA DEFINITION 
IMPLICIT REALPOl A-H.G-C) 


COMMON /NHNS / 

* NHPCII 6). NSPOII O) 

COMMON /SPECIF/ 

* 0£TAH(b. 6) .BcTArHD(6. 6I.AM0I2. 5 I ,RH(. 3 , 3 , 30 J . R5 ( 3 , 3 , 30 1 . 

* CHI 3 . 35 ) .031 3 .30 I . IMUI J , 5).NMC'*<6, u) , I F T SMw ( 1 a I , 

* NO , NH .NSPT • NCFMU, NUELT A. I TCPCL ( 2. 6>,lRuF^X( OI,IHDATA(7, 6). 

* LOCL< 14 ) ■ LENOi Ul , NU, NBE T A, NL AM, NEQ 

COMMON / SUMMR Y / 

* ASUMRVI 1 5, 6) . 1 SuMRY < l 5 ,3 > , KSUMRY 

COMM GN /TaPENG/ 

* NT APE 1 « NTAPE2.N TAPED 


CIMERSICN V< 6) , AI NERI o . 6 > 

CATA M T .NOT /5, 6/ 

1001 FORMAT ( 16 I 5 J 

1002 FORMAT (8010.3) 

3001 FORMAT (//16X30HSUMMARY OF INPOT DATA FOR BODY. 13, 

* 16H WHICH IS RIGID. //3X29HTHE 6X6 INERTIA MATRIX IS ) 

3002 FORMAT I//5X9HFOR BODY 13.33H THE P-0 HINGE NO. AND THE EULER 

* 57HRQT ATI ON TYPE APPEAR IN THE FOLLOWING I NT L.cW ARRAY WHICH / 

* 5 > u7 H IS FOLLOWED BY AN ARRAY CONTAINING EJLcR ANGLES (1.2.3). 

* 58H AND PUS IT l UN VECTOR COMPONENTS (4,5,6) THAT POSITION THE / 

* 5*30HhINGE TRIAD wR T THE BODY TRIAD) 

J0C3 FORMAT <//SX9HFO'R BODY 1 3 .OSH THE SENSOR POINT ND. AND THE EULER 


0 

2693 

0 

2694 

0 

2695 

0 

2696 

c 

2697 

0 

2698 

c 

2699 

12 

2700 

0 

2701 

16 

2702 

1 7 

2703 

1 8 

2704 

19 

2705 

0 

2706 

9e 

2707 

0 

2708 

c 

2709 

0 

2710 

0 

271 1 

0 

2712 

c 

2713 

0 

2714 

0 

2715 

0 

2716 

0 

2717 

0 

2718 

c 

2719 

c 

2720 

0 

2721 

0 

2 722 
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uuu uuuau 


t 5£ f HGTATION T YPL APPEAR IN THE FOLLOWING INTEGER ARRAY WHICH / 

* 5X53HIS FOLLOWED t>Y AN ARRAY CONTAINING cULcR ANGE ES < 1 , 2 . 3 ) . 

* 56 FAND POSITION VECTOR COMPONENTS (4.5.6) THAI POSITION THE/ 

* 5>31HS£NSUR TRIAL) WRT THE OOOY TRIAD) 

C 

c NHd = NUMBER OF HEDGES ON BODY N 

C NSb - NUMBER CF SENSOR POINTS ON BODY N 

NHE = NHFUI(N) 

NSB = NSFOI I N) 

C 

C CREATE 6X6 INERTIA MATRIX 

CALL ZERC ( AINER.6.6,6) 

Mttl l*tt*n*t*t* «. READ BODY MASS AND CG LOCATION 
CALL HEAD ( V .Nl ,N2, 1 . 6 ) 

CCMPUTE RIGID OUDY MASs MOMENT ABOUT C„ 

FCR GENERALITY INERTIA TENSOR DEFINED ABOUT REFERENCE POINT 
CO 5 J = 2 .4 
S V( J> = -V( I > *V( J > 

CALL SKEWV3 ( V ( 2 ) .AINER( 1.4 ) ■ I .6) 

DO 6 1=4,0 
C A INEM 1 . 1 > = V(l> 

***** ************** REAs INERTIA TENSOR CF BODY RELATIVE TO REFERENCE 
POINT. IF NUT CG MASS MOMENT NJNkZLKO 


CALL READ 

(V .Nl ,N2. 1 . o I 

DC 7 1=1.3 


7 A l NE H ( I . 11 

= V( l I 

AINERI I ,2) 

= -VI 4 ) 

A I NEfi ( 1.3) 

= -V(S> 

AINEF(2,31 

= -V(6> 

CO 8 1=1.6 


DO 8 J= 1 ,6 


E AINEP(J.I) 

= AINERI! , J ) 


WRITE (NTAPEl) ( ( AINERI I . J) , J = 1 .6) . I = 1 .6) 

CALL PAGEHD 

WRITE (NOT. 3001) N 

PRINT ULDY INERTIA MATRIX FOR BGDY N 
CALL A' KITES (AINER.6,6,6) 

CYCLE IHRUUGH HINGL6 UN BODY N 
CO 1C 1=1, NH 8 


******************* READ HINGE NUMBER AND EULER TYPE 
READ (NIT, 1001). NOn.lTYPL 
C NOH = HINGE NUMBER 

C I TYPE = TYPE OF EU^ER ANsLE ScQUENCE 

C HINGE TO BODY TRIAD 

ISUMFY( I .1 ) = NGH 

I S U M P Y ( l ,2) = 1 TYPE 

IF (NOH .EO. 1) GO TO 999 
LK = £ * ( NGH - 2) +3 

LD = 7* l NUrt - 2 ) + J 

IF ( ITUPCLf l .NOH) * EO. N) GO TO 12 
IF. ( ITuPLL(2 .NOH) .NE. N) GO TO 999 
LR = LK F I 
LO = LU ♦ l 
C 

C ***************** ** READ ANGLES TU GRIENT HINGE AND BUJY TRIADS 
C USc TG COMPUTE TN AN SF CR M AT 1 UN AATRIX IN RH 


0 2723 
0 2724 
0 2 725 
0 2726 
0 2727 
0 2728 
0 2729 
0 2730 
0 2731 
0 2732 
0 2733 
0 2734 
0 2735 
0 2 736 
0 2737 
0 27 38 
0 2739 
0 2740 
0 2741 
0 2742 
0 2743 
0 2744 
C 2745 
0 2746 
0 2747 
0 2748 
0 2749 
0 2750 
0 2751 
0 2752 
0 2753 
0 2754 
0 2755 
0 2 756 
0 2757 
0 2758 
0 2759 
0 2760 
0 2761 
0 2762 
C 2763 
0 2764 
0 2765 
0 2766 
0 2767 
0 2768 
C 2769 
0 2770 
0 2771 
0 2772 
0 2773 
0 2774 
0 2775 
0 2776 
0 2777 
0 2778 
0 2 779 
0 2780 
0 2781 
0 2782 
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12 RE AD (MIT* 10 02 ) (V(J). 3=1.3) 


C** *************** ** REA u VECTOR POSITION BODY TO Hi MCE TRIAD 
C STOKE IN OH ARRAY 

READ (NIT. 1002) ( OH( 3 , LD ) . 3= l . 3 ) 


C 

c 

c 

c 

c 

c 

c 


CO 11 3=1,3 
J1 = 3 + 3) 

ASUMRYi 1,3 ) = V< J) 

11 ASUMRY(I.3l) = DH(J.LJ) 

EKANCH TO ROTTR TO COMPUTE TRANSPUT MAI l ON MATRIX 
HINGE FRAMt lO BODY FRAME 

KH = ARRAY TO STORE HINGE TO BODY 
TRANSFORMATION MATRICES 
CALL RCTTR ( 3. I T YPE . V . KH( 1 . I ,LR ) . COM, DUM) 

1C CONTINUE 

PRINT INITIAL HINGE TO BODY FRAME ORIENTATION DATA 
WRITE (NOT, 3002) N 

CALL WK1TIS ( I SUMRY. NhB . 2 .KSUMRY > 

CALL WRITES (ASUMRY, NHB. 6. KSUMRY) 


IF (NSB .00. 0) RETURN 

Cfl 2C 1=1. NSB 


NOS = SENSOR POINT NJMSER 


READ (NIT, 1001) NGS.ITYPE 
ISUMRY( 1,1) = NOS 

I SUM R Y ( 1,2) = I TYPE 

IF ( IFTSMW(NOS) ,NE. N) GO To 999 
LR = 2*NCS 


C******************* READ ANGLES TO ORIENT SENSOR AND BUOY TRIADS 
C USE TO COMPUTE TRANSFORMATION MATRIX IN RS 

RE AO (NIT. 1002) (V(J),J=l,3) 

C 

c***** t* ****** ****** real, veciuk sensor pgint Tl. body triad 
c store in ds array 

RE AO (NIT. 1002) (OS(J.ER).J = l ,3) 


c 

c 

c 

c 

c 


CO 21 3=1,3 

J 1 = J +3 

ASUMfi Y( l , J ) = V ( J ) 

2 I ASOMFY(l.Jl) = OS(J.CS) 

ERANCFi TO ROTTR TO GET SENSOR POINT TD BUOY FRAME 
TRANSFORMATION MA1RIX 

RS = ARRAY TO S T CRl SENSOR POINT TO BODY 
1 R ANSFCRMA T I ON MAI R IX 

CALL ROTTR ( 3 . I T YPE , V , R S( 1 . 1 , LR > , COM , DUM) 


2 C CONTINUE 

WRITE (NOT. 3003) N 

CALL WR IIIS ( 1 SOMRY, NSD. 2.KSUMRY ) 
CALL WRITES ( ASUMRY, NSU. 6. KSUMRY) , 
RETURN 


999 WRITE ( NOT ,2001) 

2001 FORM/IT ( 1H 1 , 49HT UPuLUGY ERrOR , SUBROUT I NE MM I G I 3 . PROGRAM STOPPED) 


C 


STOP 

ENC 


0 2783 
0 2784 
C 2785 
0 2 786 
0 2787 
0 2788 
0 2789 
0 2790 
0 2 791 
0 2792 
0 2793 
0 2 794 
0 2795 
0 2796 
0 2797 
0 2798 
0 2799 
0 2800 
0 2801 
0 2802 
0 2803 
0 2804 
0 2805 
C 2806 
0 2807 
0 2808 
0 2809 
C 2810 
0 281 1 
0 2812 
0 2813 
0 2814 
0 2815 
0 2816 
0 2817 
0 2818 
C 2819 
0 2020 
0 2821 
0 2822 
0 2823 
C 2624 
0 2825 
0 2826 
0 2827 
0 2828 
C 2829 
0 2830 
0 2831 
0 2832 
0 2833 
0 2834 
0 2835 
0 2836 
0 2837 
C 2838 
0 2839 
0 2840 
0 2841 
0 2842 
0 2843 
0 2644 
0 2045 
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SUBROUTINE ZERO (Z.NM.NC.KR) 

0 

2846 

c 


DEBUG » 29 

0 

2847 



IMPLICIT RcAL*d( A-ll.O-Z) 

0 

2848 



Cl ME FS ION Z < KR . 1 i 

0 

2849 

c 



c 

2850 

c 

GENERATE A MATRIX OF aEKOES. 

0 

2851 

c 

CODED BY RL WUHLCN. F Ed 1905. 

0 

2852 

c 



c 

2853 

c 


SuERCwT iNE AKCUMtNlb 

0 

2854 

c 

z 

= CU1PU7 MATRIX licNt^A T cO • SI ZE ( NR, NC). 

0 

2855 

c 

NR 

s [NFul NUMUt’R Uh KOwb IN MATRIX /• 

0 

2856 

c 

NC 

= INPUT NUMBER Of CCi_S IN MATRIX Z. 

0 

2857 

c 

K R 

= INf-Ul HU.V DIMENSION UF MATRIX Z IN CALuINU hMuGRAM. 

c 

2858 

c 



c 

2859 



CO l C l = l • NK 

0 

2860 



00 I C J- L .NC 

0 

2 861 


l 0 

l ( I . - ) - 0.0 0 

0 

2862 



RE TUP N 

0 

2863 



END 

c 

2 864 


SUER Co r 1 Nt REVISE lA.iVtC.JVEC . Z .NR A. MCA .NRZ ,NCZ .KRA . KRZ ) 


DEBUG # 30 


IMPLICIT RcAL*d( A-h.O-Z) 
CIMEFSICN AIKRAtDt 1VECU) 
CATA NUT / G / 


j vect i » , z t Kr<A , i ) 


REARRANGE ROWS ANO COLUMN 3 Of' MATRIX A TO FOR M MATRIX Z. 
CALLS FCfiMA SUBROUTINE ZZUUMd. 

CCDcD BY RF MRuCA.. FEBRUARY I 96*3 « 

LAST HEVlblCN BY RL vtOHLcN. OCTOBER 1972. 


A 

IVEC 


INFCT 


SUEfiCUTINE ARGUMENTS 

= INPUT MATRIX TO dt REARRANGED. S I ZEI NK A, MCA) . 

VECTOR. SI ZL l NR A > . 

I VCC ( I.) =KOW POSITION OF A ( R OW I) IN Z. 

IF IVlUII IS PLUS . ZIROW IVE.Lt l>i = 4-AIROW I). 

IF IVLC(l) IS MINUS. ZtROAf IVcClD) = — A l ROW I>. 

IF IVlUII IS ZeHO . A (ROW I) IS UMIITEJ IN Z. 
VECTOR. St ZE INCA) . 

JVtC(J)=COc POSITION OF AICCL Ji IN Z. 

IF JVdC(J) IS PLUS . ZtCOL JVECtJT) = FAICOL J). 

IF JVcCtJI IS MINUS. ZtCOL JVi.lJ)) = -AtCOL J ) . 

IF JVECtJ) IS ZERO . AtCCL J) IS OMITTED IN Z. 
OUTPUT RESULT MATRIX. S 1 Z E ( NR Z . NC Z > . 

INPUT NUMBER OF ROUS IN MATRIX A. 


JVCC = INPUT 


z 

NR A 


2865 

2866 

2867 

2868 

2869 

2870 
287 1 

2872 

2873 

2874 

2875 

2876 

2877 

2878 

2879 

2880 
2881 
2882 

2883 

2884 
0 2885 
0 2886 
0 2887 
0 2888 
0 2889 
O 2890 
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c 

NCA 

= INPUT NUMBER UR COLS IN MATRIX A. 

0 

2891 

c 

NP2 

= INPUT NUMOER UF ROWS IN MATRIX Z. 

0 

2892 

c 

NCZ 

- input number of culs in matrix z. 

0 

2893 

c 

KRA 

= INPUT ROW DIMENSION OF A IN CALLING PROGRAM. 

0 

2894 

c 

KRZ 

= INPUT ROW DIMENSION OF Z IN CALLING PROGRAM. 

0 

2895 

c 



0 

2896 


CO 

1C l = 1 . NR Z 

0 

2897 


CO 

1C J = l . NC Z 

0 

2898 


l C Z( 

I , J » = O.D 0 

0 

2899 

c 



0 

2900 


00 

3 C l A — 1 .NRA 

c 

290 1 


IZ 

= IABSI IVEC! IA ) ) 

0 

2902 


IF 

( 1Z .EU. 0 ) uU TU 30 

0 

2903 

c 



c 

2904 


IF 

( 1Z .GT. NRZ) GC TD 999 

c 

2905 


00 

2' JA=l .NCA 

0 

2906 


JZ 

= I A 3 S l J V EC ( J A ) ) 

c 

2907 


IF 

( JZ .EO. 0) uO TO 25 

0 

2908 

c 



0 

2909 


IF 

(JZ .GT. NCZ) JU TO 999 

c 

2910 


SIGN = ♦l.D 0 

0 

291 1 


IF 

< I VE C I I A) .ET.O .AND. JVEC! JA ) .GT .0 .OR. 

0 

2912 


* 

1 VcC { 1 A) .GT . 0 .AND. JVEU JA1.LT.0) SI-»N=-1.J 0 

0 

2913 


Z( 

1Z.JZ) = S IGN*A( 1 A . J A ) 

0 

2914 


2 £ CONTINUE 

G 

2915 


3 C CONTINUE 

0 

2916 


RETURN 

0 

29 17 

c 



0 

2918 


009 VtR I TE ( NOT .10011 

0 

2919 

1001 FORMAT ( 1H 1 . J2HERR[uR IN REVISE. PR CORAM STuPPED) 

0 

2920 


STOP 

c 

2 921 


END 

0 

2922 



SUBROUTINE GAUSSl (A.R.N.KAR) 



0 

2923 

c 



DEBUG d 31 

c 

2924 

c 

FIND INVERSE OF MATRIX A RETURN A**<-1) 

IN 

U AWWAY 

0 

2925 

c 

SAVE PIVOT ELEMENTS IN ORVEC THESE WIL- 

Lit 

J SEl) TO 

0 

2926 

c 

COMPuIE DETERMINANT OF A 



0 

2927 


IMPLICIT REAL*8( A-H, 0-Z ) 



0 

2928 


DIMENSION A(KAR.l), RlKAR.l), IVECT150) 



65 

2929 


COMMON /DRAT 10/ 



0 

2930 


* IPL1. IFL2.0RVEC! 150) 



100 

29 31 

c 




0 

2932 


LOGICAL GEdUG.LEQU 



0 

2933 


COMMON /LOLBUG/ DEBUG! 120) 



0 

2934 


EQUIVALENCE (LBQU .uEBUGl 31 ) ) 



0 

2935 


CATA EPS. NOT / 1.0-15. 6/ 



0 

2936 

1 00 1 

FORMAT (5X.30HMATRIX SINGULAR IN GAUSSl AT 

• 

X a) 

0 

2937 

c 




c 

2938 


CO 5 I=1.N 



0 

2939 


00 7 J=1,N 



0 

2940 

7 

Ri< I . J ) = 0.0 0 



0 

2941 

c 

R ( I • I ) = 1 .0 0 



0 

2942 


IF! .NOT.LEQU) GO TO l 



0 

2943 


WR ITE (NOT. 1002) 



0 

2944 
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CALL UK I tfc SI A ,N . N.NAR ) 

0 

2945 


100* 

FORMAT (• SUBROUTINE GAuSSI. INPUT MATRIX A IS*) 

0 

2946 


1 

COM INue 

c 

294 7 

c 



0 

2948 



CU 1C L= 1 .N 

0 

2949 



JBIG = 1 

0 

2950 



A l = uAESI AI L. 1 1 ) 

0 

2951 



CO 15 J=2.N 

0 

2952 



A 2 = CAdSlAlL.JJ ) 

c 

2953 



IF ( A2 .LT . A 1 ) GO TO lb 

0 

2954 



A l = AJ 

0 

2955 



JBIG = J 

0 

2956 


1 1 

CC-NT INUE 

0 

2957 



IVECIL) = JBIG 

0 

2958 



IF ( A i «GT. tPS) GO TO cO 

0 

2959 



IF l IFLl .tj. 0) GO TO 7b 

0 

2960 

c 


IfLl =1 CALL IS FROM NUMS. ZERO PIVOT cuEMENT IMPuIES 

0 

2961 

c 


ZERO GAIN rUR NUMERATOR 

c 

2962 



IFL2 = 1 

0 

2963 



GO TC 100 

0 

2964 


7 5 

1»R1TE (NOT. 1001) L 

0 

2965 



STOP 

0 

2966 


20 

CUNT InUE 

c 

2967 



ALJB IG = AIL .JBIG) 

0 

2968 

c 


STuRfc ALL PIVOT ELcMcNIS IN OHVEC 

0 

29 69 



OR VE C I L ) = AL JB IG 

0 

2970 



CO 1 ) J = 1 .N 

0 

2971 



AlL.j) = AIL . J1/ALJBI0 

0 

2972 


L ? 

RIL.J) = RIL .J)/ALjblG 

0 

2973 



CO 2 5 I=1.N 

0 

2974 



AI J8 IG = At I . JBIG) 

0 

2975 



IF II .EC. L ) GU TO 2b 

0 

2976 



CO 3 C J = 1 . N 

0 

2977 



AII.J) = All , J ) - AI JdlGAAlL, J ) 

c 

2978 


3 C 

RII.J) = AII.J) - AI Jd l G*R I L . J ) 

c 

2979 


2f 

CUNT INJt 

0 

2980 


l 0 

CUNT INUE 

c 

2981 

c 



c 

2982 



OU 4 C l = l . N 

0 

2983 



IR = IVECl l) 

c 

29B4 



CU 4 C J-l.N 

0 

2985 


'4C 

AIIR, J) = KII.J) 

0 

2986 



CC SC I = l »N 

0 

2987 



CO SC J=ltN 

c 

2968 


5 C 

RII.J) = AII.J) 

0 

2989 

c 



0 

2990 



5N = l.JC 

0 

2991 



CO l 10 L-l .N 

0 

2992 



CO l iO J = 1 • N 

0 

2993 



if iivlCIJ) .eo. l) gu ru 110 

c 

2994 



IF l IVECIJ) .GT. L) ON = -SN 

0 

2995 


120 

CGNT INUE 

0 

2996 


1 l U 

CON T INUL 

c 

2997 



CRVECIl) = SNVJRVLCIl) 

0 

2998 


10C 

IFL1 = 0 

0 

2999 



IF I .NOT .LtCiU ) RETURN 

0 

3000 



»R ITE I.NLl . 1003) 

0 

300 l 

1002 

FORMAT (' INVERSE OF INPUT MATRIX A IS • ) 

c 

3002 



CALL VIK l TESI R .N . N , KAR ) 

c 

3003 



WR ITE INUT. 1004) 

0 

3004 
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n n 


1004 FORMAT (• PIVOT ELEMENTS USED TO GET A**(-l) ARE •) C 3005 

CALL wR I TES( DHVEC , I . N, 1 ) 0 3006 

RETURN 0 3007 

END 0 3008 


SUER CUT 1 NE RGTTR ( 123 . 1 T YPE . ANG ,R OT ,RP 2 , RP _> ) 

C DEBUG » 32 

IMPLICIT REAL*8< A-H.Q-Z) 

DIMENSION ANGI 1 J .ROTI3.3), RP213.3). RP3I3.3) 

DIMENSION IPIJ61 . A13.3 .4 ) , 1VC 3 > 

COMMON /NUMbRS/ 

* ZRC .ONE . JWU.THES 

C 

C SUBROUTINE TU COMPUTE 12 TYPES OF EULER ANGcE TRANSFORMATIONS 
C ANO/CR PI INVERSE TR AN SF OH MA T 1 ON S. 

C ALSO IF 123 .EG. 1. COMPUTE RP2 AND RP3 WHICH MJLT1PLY 

C C/l)T( THETAI2) ) ANJ O/UT ( THE TA ( 3 ) ) TO FORM D/DT1P1 INVERSE). 

C 123 = (1 IF ROT = PI INVERSE). = {3 IF ROT = RJI. TRANS.) 

C 1 T YPE = 1.2.. .12 (TYPE OF EULER ANGLE PERMUTaTIjN. SEE IP BELOW) 

C ANG = INPUT EULER ANGLES 

C ROT = EIIEeR PI INVERSE Ur ROT. TRANS. 


c 

c 

c 

c 


c 


c 


c 


SEE V CL 1 APPENDIX B FOR THEORETICAL DEVELOPMENT 


CCOED BY CARL BOOLEY. NLV . 20. 1973. 


ADOI T I CNS 

MADE BY CAkL BOOLEY. 

APR. 5. 

1 9 7'4 

CATA 

IP 

/ 1.2,3. 

i .2, i , 

1,3.1. 

1 • J *2* 

* 


2,3,1, 

2 * J » 2 » 

2.1,2, 

2,1 ,«j. 

* 


3.1.2, 

ill l i Ji 

3,2,3, 

3*^ • I 

♦ 

NJ T 

, EP S / 6 . 

i .0-06/ 




LI = 3* ( IT YPE - 1 ) 

CO IS L = 1 , J 
I V < L ) = 1 

CO 1C 1=1,3 
CO S J=1.J 
S At I , J » L ) = ZRO 
10 A< I . I ,L ) = ONE 
1 5 CONT INUE 

LR = 4 - 123 
CO 2 C L = LR ,3 
K — 1PILI + L) 

S = C S l N l A NG ( L ) ) 

C = CCOSIANG(L) ) 

CO TC ( l .2.3 ) . K 

1 A< 2. 2 ,L ) = C 

A( 3. 2 .L ) = C 
A ( 2 . . L ) = - S 

A (3 . c.L) = S 
CO TC 20 

2 A( 1 , 1 ,l ) - C 
AI2.2.L) = C 


0 3009 
0 3010 
C 3011 
0 3012 
0 3013 
0 3014 
0 3015 
0 3016 
0 30 17 
0 3018 
0 30 19 
C 3020 
C 3021 
0 3022 
0 3023 
O 3024 
0 3025 
0 3026 
0 3027 
0 3028 
0 3029 
0 3030 
0 3031 
O 3032 
O 3033 
0 3034 
0 3035 
0 3036 
0 3037 
C 3038 
0 3039 
0 3040 
0 3041 
0 3042 
0 3043 
0 3044 
C 3045 
C 3046 
0 3047 
0 3048 
C 3049 
0 3050 
C 3051 
0 3052 
0 3053 
0 3054 
0 3055 
0 3056 
0 3057 
0 3058 
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c 

c 

c 


c 

c 


M 1 . 2 *L > = 5 C 3059 

At J, 1,U = -S 0 3060 

GC TC ^0 0 3061 

2 A ( l « 1 • L ) = C 0 3062 

A( 2, 2 . U = C 0 3063 

A ( l . c *L ) = -S 0 3064 

/>( 2t I «L ) = S C3065 

2 C CO N T INGE 0 3066 

IF ( 123 .HO. 1) Gl TU bO 0 3067 

0 3066 

OfuH hfcKc IF kulAUCJN TRANSFORMATION MATRIX NucOHO 0 3069 

GETAIN VIA MATRIX PRlDw CTS OF ELEMENT AR Y RJIATIUN MA7RICIES 0 3070 

CALL MUL13 <A( 1 • 1 .1 ) .A( 1 • 1 *2 ) *A( I • 1 .4 ) *3. 3 .J, 3.3. o) C 3071 



CALL NOL T3 < A ( 1.1.4) • 

Ai 1 

• 1 * 3 ) .ROT .3.3.3. 3*^. 3) 

0 

3072 


FE TUPfv 



0 

3073 





0 

3074 


CCML FfcRt TO GlT Pi 

INVERSE VELOCITY Hi ANSFO •< MA 1 I u NS 

0 

3075 

5 C 

LO 25 1=2*3 



0 

3076 


11 = IP ( L l + I ) 



0 

3077 

25 

IV ( I 1 ) = l 



0 

3078 


S2 = 05iN(ANG(2)) 



0 

3079 


C 2 = OCCS ( ANo( 2 ) ) 



0 

3080 


11 = Flo AT { l TYPE )/4. 2 



0 

3081 


K ss 1 TYRE ~ 4*11 



c 

3082 


GO TC ( fc 1 * 62 • 03 • 6 4 ) * K 



c 

3083 

6 1 

IF ( C Aii 5 l C 2 ) .LT. EPS) 

G L 

1 C 999 

0 

3084 


AL = C 2 



0 

3085 


AL2 = AL * AL 



c 

3086 


Ft — 52 



0 

3087 


ALP = 2 2 / AL2 



0 

3088 


EE P = -CNn/ALE 



0 

3089 


GO T C o 'i 



0 

3090 

c 2 

IF ( CAlJJ (62) .LT. EPS) 

oG 

TO 999 

0 

3091 


AL = S2 



0 

3092 


AL2 = AL+AL 



0 

3093 


EE = C2 



0 

3094 


ALP - -0 2/ AL 2 



0 

3095 


HEP = ONE/AL 2 



0 

3096 


GO T C b b 



0 

3097 

63 

IF <CAt3S(S2) .LT. lPS) 

GC 

TC 9 99 

0 

3098 


AL = —52 



0 

3099 


AL2 = AL * AL 



0 

3100 


Ed = C 2 



0 

310 1 


ALP = C2/AL2 



• 0 

3102 


EE P = -C Nd /AL 2 



0 

3103 


GO TC 55 » 



0 

3 1 04 

64 

IF (CA35(C2) .LT. cPS) 

GO 

TG 9 99 

0 

3105 


AL = C2 



0 

3106 


AL2 = AL+AL 



0 

3 107 


EE = -32 



0 

3108 


ALP = ^2/AL2 



0 

3109 


EE P = ONE/AL2 



0 

3110 





0 

3111 

65 

K = I P ( L 1+3) 



0 

3112 


GO TC ( 7 1, 72 .73) , K 



0 

31 13 

7 l 

A < 2 • £ . 1 > = A( 2.3.3) 



0 

3 114 


A { 3.2.1 ) = A( 2.3.3) 



0 

3115 


A( 3. c . 1 ) = A(2.2.o) 



0 

3116 


A ( 2. -3 . 1 ) = - A(2. 2.o) 



0 

31 17 


A ( l . 1 . 1 ) = A RO 



0 

3118 
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GO T C 7 5 




C 

3119 

7 2 

A ( 1.1.1) 

= A( 3, 1 , J) 



0 

3120 


a i 2 . . i ) 

= A( J, 1 .3) 



0 

3121 


A ( 1.2.1 ) 

= A< 1 , I ,31 



0 

3122 


*(3.1.1) 

= -A< 1 . 1 .3) 



0 

3123 


A ( 2. 2 . 1 > 

= ZRO 



0 

3124 


GO TC / 5 




0 

3125 

7 3 

A ( 1 . 1.1) 

= AI 1 . 2.3) 



0 

3126 


A( 2. I . 1 ) 

= A< l . 2.3) 



0 

3127 


A( 2, 1.1 > 

= A( 1 . 1 ,3) 



0 

3128 


A l 1.2.1 » 

=‘ -A( 1 , 1 ,3) 



0 

3129 


A ( 3 . 3 . 1 > 

= ZRO 



c 

3130 

7 £ 

co ac i= 

1.3 



0 

3131 


11 - IV( 

1 ) 



0 

3132 


co ac j= 

1. 3 



0 

3133 


A ( I l . J , 2 

) = A(I-.J.i) 



0 

3134 

6 C 

A 1 11 ,J,4) = A( 1 . J . s) 



0 

3135 

C 





0 

3136 


CO 9 C 3 = 

1. 3 



0 

3137 


POTI 1 . J 1 

- A ( 1 ». 3 , 4)/AL 



0 

3138 


RP3 ( 1 . J ) 

= A ( 1 , J , 2 )/ Al 



0 

3139 


PCT( 2 . J ) 

- A (2. J .4) 



0 

3140 


PP3( 2 . J ) 

= A ( 2. J .2) 



0 

3141 


PCT( 2 , J 1 

= A ( 3. J . 4) - 

BE *KLT( 

l • J) 

0 

3 1 42 


FP3< 2.3) 

= A ( J, J . 2) - 


1 . J) 

0 

3143 


PP 2 ( 1 , J ) 

= ALP * A ( 1 * J • 4 ) 


0 

3144 


PP2 ( 2 , J ) 

= ZRO 



0 

3145 

90 

RP2( 3 . J ) 

= UEP*A< 1 . J ,4 ) 


0 

3146 

C 





0 

3147 


RE TURN 




0 

3148 

999 

WRITE (NOT. 1000) ITYPi 

•ANG(2) 


0 

3149 

1000 

FORMAT ( 

IHl . 22HGIMUAL 

LOCK — 

[TYPE = t l 5 • 6H ANtiL i = .J15.8) 

0 

3150 


STOP 




0 

3151 


ENO 




0 

3152 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


SueRC'JTlNE UNITY (Z.N.KR) 

IMPLICIT RtAL*8( A-H, U-Z ) 

CIPENSICN ZIKR.l) 

GENERATE A UNITY MATRIX* (ONES UN THE DIAGONAL). 
CCOEO BY RL WOHLEN. FEB 19GB. 


DEBUG * 33 


SUERCUTINE ARGUMENTS 

Z = CUIP'JT MATRIX GENERATED. SIZE(N.N). 

N = INPUT SIZE OF MATRIX Z (SGUARE). 

KR = INPUT ROW DIMENSION UP MATRIX Z IN CALLING PRuGRAM. 

CO 2 C I = l , N 
CO 1C 3=1. N 
1C Z(I.J) = 0.0 0 
20 Z < I • I > ■= 1.0 0 
PETUPN 
ENO 


0 3153 
0 3154 
0 3155 
C 3156 
C 3157 
0 3156 
0 3159 
0 3160 
0 3161 
0 3162 
0 3163 
0 3164 
0 3165 
C 3166 
0 3167 
0 3168 
0 3169 
0 3170 
0 3171 
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i-' n nnnnnnnr. nnr.nnnnnnnn 


suescuriNE multa < az , a . nra .nrb .ncb . kaz ,kb> 

C DEBUG * 34 

IMPLICIT REAL*8( A-H. D-Z > 

DIMENSION AZIKAZ.II. 0( KB. I ) . W ( 150 ) 

CATA NOT / 6/ 

MATRIX MULT 1PLICAT ICN. A * B = Z. 

USES TWC WORK SPACES. RESULT (Z) IS PLACED IN A. 

A Z MUST Dt DIMENSIONED LARGE ENOUGH IN MAIN PROGRAM TU CONTAIN THE 
LARGER CF A OR Z. 

DEVELOPED BY C 5 DUDLEY. JANUARY 1965. 

LAST REVISION BY W F HRUDA. JUNE 1972. 

SUBROUTINE ARGUMtNIS 
AZ = INPUT MATRIX. S I ZE ( NR A , NH3 ) . 

= OUTPUT RESULT MATRIX. S I ZE ( NR A , NC B ) . 

B = INPUT MATRIX. 5 I Zc ( NRB . NCB > 

NR A = INPUT NUMBER UF HUWS OF MATRICES A.Z. 

NRB = I NPuT NUMBER OF ROWS UF MATRIX 8. C CLS UF MATRIX A. MAX=SOO. 
NCS = INPUT NUMBER UF CULB OF MATRICES B.Z. 

KAZ = INPUT ROW DIMENSION CF AZ IN CALLING PROGRAM. 

KB = INPUT HOW DIMENSION CF E IN CALLING PkOGkAM. 

IF ( NRtl .GT. ISO) oO TO 999 

DO <* C I = l , NR A 
CO 2 C K=l,NRB 
2 C W< K) - AZI1.K) 

CO 4C J=1,NCB 
S = C.j c 
CO 3C K- l. NRtl 
3C S = S f WIK) »U< K. JJ 
40 AZ ( I . J ) = S 

RETURN 

999 WRITE ( NCI . 1 001 ) 

1001 FORMAT ( IH l , 3 IHtRRUR IN MULTA, PROGRAM STJPPtU) 

STOP 

END 


0 3172 
0 3173 
0 3174 

70 3175 
0 3176 
0 3177 
0 3178 
0 3179 
0 3180 
0 3181 
C 3182 
0 3183 
0 3184 
0 3185 
0 3186 
C 3187 
0 3188 
C 3189 
0 3190 
0 3191 
0 3192 
0 3193 
0 3194 

71 3195 
0 3196 
0 3197 
0 3198 
0 3199 
0 3200 
0 320 1 
0 3202 
0 3203 
0 3204 
0 3205 
O 3206 
0 3207 
0 3208 
0 3209 
0 3210 


SUEHCuriNL UTAUA ( AZ . Li . NR J . NCB , K A Z . KE) ) 0 321 1 

DEBUG #35 0 3212 

IMPLICIT REAL*8( A-H, U- a ) 0 3213 

DIMENSION AZIKAZ.II, B I K8 . 1 I , W ( 1 50 ) 72 3214 

CATANJT/o/ 03215 

0 3216 

TRIPLE MATRIX PRODUCT. BI TRANSPOSE) * A <■ O = Z. 0 3217 

C A MUST’ EE SYMMETRIC TC uE I CORRECT ANSWER. 0 3218 

C Z WILL EE SYMMETRIC. UPPER EiAlF CALCULATED, REFLECTED TU LCwER HALF. 0 3219 

C USES T*C WORK SPACES. HE-.ULI IZ) IS PLACED IN A. 0 3220 

C AZ MUST Be DIMENSIONED LARuL ENOUGH IN MAIN PkUGRAM TJ CONTAIN THE 0 3221 

C LARGER CF A UR Z. 0 3222 

c developed by w a denficLu. may 1972. 0 3223 

C LAST REVISION BY R A PHlClPPUS. JUNE 1972. 0 3224 

C MCOIFIEC EUR USE IN GSFC PRLuRAM HY CARL EUD.EY. RAY 1974 0 3225 
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a o n n aaa 


c 

C SUeRCUTINE ARGUMENTS 

C AZ = INPUT INNER MAIRIX. SI Z£< NRB , NRB > . 

C = OUTPUT RESULT MATRIX. S I ZE ( NCB • NC B> . 

C B = INPUT OUTER MAIRIX. SI ZE< NRB , NCB > . 

C NRB = INPUT NUMBER CE ROWS Of MATRIX B. SIZE UF MATRIX A. MAX-=I50. 

C NCB = INPUT NUMBER OF COLS uF MATRIX B. S I ZE DE MATRIX Z. MAX=150. 

C KAZ = INPUT RUW O I MENS 1 UN OF AZ IN CALLING PROGRAM. 

KE = INPUT ROW U I ME NS ION UF u IN CALLING PROGRAM. 

IF (NRB. GT. ISO .OR. NCB. GT . ISO .CR. NRB. GT . KAZ .OR. NCB. GT. KAZ) 

* GC TO 999 

DO 2 C I = 1 , NR S 
CO S K = 1 .NRB 
5 h(K) = AZU.K) 

CO 2C J=1,NCB 
S = C.O 0 
CO 1C K=1,NR8 
10 S = S E W(K) *8(,K. J) 

20 AZ ( l .J) = S 

co 3C j=i,ncb 

CO 2 S I = l. J 
»( 1 ) = 0.0 0 
CO 2S K=1.NRU 

25 W(I) = W(I )+B(K. I )*AZ(K, J) 

CO 3C I = I. J 
AZ < I . J ) = Will 

3 C A2< J . I ) = WI 1 ) 

RETURN 

999 WRITE (NCT.iOOI) 

1001 FORMAT ( 1M t . 3 IHERROR IN BTAbA. PROGRAM STOPPLJ) 

STOP 

END 


0 3226 
0 3227 
0 3228 
0 3229 
0 3230 
0 3231 
0 3232 
0 3233 
0 3234 
0 3235 
73 3236 
0 3237 
0 3238 
0 3239 
0 3240 
0 3241 
0 3242 
0 3243 
0 3244 
0 3245 
0 3246 
0 3247 
0 3248 
0 3249 
0 3250 
0 3251 
0 3252 
0 3253 
0 3254 
0 3255 
0 3256 
0 3257 
0 3258 
0 32 59 
0 3260 
O 3261 


SUBROUTINE PR3 ( A . O. C i W . Z . S ,NR A , NC A . NCB . NCC .K A . KB . KC . Kw , KZ ) 0 3262 

O 3263 

DEBUG « 36 0 3264 

IMPLICIT RLAL*8( A-H, U-Z ) 0 3265 

CINENSICN A(KA.l),B(KB.I).C(KC.n.W(KW,l),ZlKZ,U 0 3266 

CC 0 3267 


c 

to - 

A 4B 

0 

3268 

CC 



0 

3269 


CC 

1C 1 = 1,NKA 

0 

32 70 


CO 

1C J = 1 • NC 8 

0 

3271 


to < 

l i J ) — 0*0 0 

0 

3272 


DO 

l C K = l , NC A 

0 

3273 


l 0 to ( 

I*J) - to(ItJ) f A( I ,K) *b( K. J ) 

0 

3274 

CC 



c 

3275 

c 


T 

0 

3276 

c 

Z ~ 

Z ♦ 5*C *'.v 

0 

3277 

CC 



0 

3278 


CO 

2 C 1 = 1, NCC 

0 

3279 


B-60 



CG 2C J= l.NCO 0 3260 

CIJ 2C ,<=l.NftA 0 3281 

2C ill.-'l = /JII.JI ♦ btUK,i)t'*(X.J) 0 3282 

C 0 3283 

PETUFN 0 3284 

END 0 3285 




SUcRCUTlNc DYN520 


c 

3286 

c 



DEBUG tf 

3 7 

0 

3287 



I M PL 

1 C 1 T RE AL*o( A-h, Q-z. ) 


0 

3288 

t 





0 

3289 




COMMON / AMub Vc / 


0 

3290 


* 


AM U ( 22 • 22 • 0 ) <bW(wOil i j) 


1 

3291 




COMMON /CCNPAR/ 


0 

3292 


* 


CNTJTA< 150) 


95 

3293 




COMMON /DNAUX / 


0 

3294 


* 


N A U X 


0 

3295 




COMMON /HANDS / 


0 

3296 


* 


HA Th ( J « 12 * 10)«SIG H(3« l d t l 0 I <HATSl 3*12* lol t SlGSO«lEtl5) 


4 

3297 




COMMON /( LINER/ 


0 

3298 


* 


IF LNER 


C 

3299 




COMMON /INTGRl/ 


0 

3300 


* 


AM (17 1, 6) • ACOF ( V • 1 2. t) * BCCF (6. 1 2 . t> ) • 


5 

3301 


* 


CJF1K12.12. o) #CCF 22 ( l * , 12, 6 ) • OOF 3 j ( i 2 » 12* o) .AK112.12, 

t > . 

e 

3302 


♦ 


COE 12(1 2* 12# o),CLMi(U, 12, c ) . C OF 2J ( l 2 . 1 2 . o), AO (12. 12# 

6) . 

7 

3303 


♦ 


CJFXY112.12# o) tCOFxZi 12# 12. 6 ) • CCF 'U. i 1 2 . 1 2 . o) 


e 

3304 




COMMON /MAXMUM / 


c 

3305 


* 


Mi MAX »NHMAX*NSPMAX# NMW MAX ,NMWBOO .NMDsiUU #<MU *<Y » K.U 


0 

3306 




COMMON /Ml SO NO/ 


c 

3307 


* 


NCPRM . NCPLOT 


0 

3308 




COMMON /NUMDKS/ 


0 

3309 


♦ 


2RU .ONE • T WO • T Rc. S 


0 

3310 




COMMON /PLUTA/ 


0 

331 1 


* 


NRPLOl . NCPLOT 


0 

3312 




COMMON /UPKKTA/ 


c 

3313 


* 


ORK (2d0 ) #PRK (4 ) , NT 


l 5 

3314 




COMMON /SPcClK/ 


0 

3315 


* 


BE T Arl ( 6 « 6 ) # ULl AHO< S. 6>.AMO(2. 5 ) f RH ( J . 3 • J 0 ) • R3 < 3 . J • 3 0 ) • 


1 6 

3316 


♦ 


uH(3,Ji).[)5(j.jO) ,(MU(J, 5) ♦ NMCU ( 6 « b) * I - 13 MW ( l S ) * 


1 7 

3317 


♦ 


NB .NH.NSPT .NUFMO# NUELTA# l T0PQL(2. 6).IkGr.X( o)#lHDATA(7« 

6) . 

i e 

33 18 




LJCU 14 > *L£NU( 14) . NU. NOE T A.NLAM.NEO 


1 9 

3319 




COMMON /TAPENU/ 


C 

3320 


* 


NT A FE 1 » NTAPC2 • NT A PE 3 


0 

332 1 




CCMMON /TlMcSS/ 


0 

3322 


♦ 


SI ART T f DE LTAT.T #E NO T « TM 5 T 


0 

3323 




COMMON /VECTOR/ 


0 

3324 


* 


Y ( 2 CO ) # YDT( 2oQ) 


20 

3325 




COMM GN /VlNDEP/ 


0 

3326 


* 


ll\DEP( 250 ) 


2 1 

3327 

c 





0 

3328 


CAT A 

NJT / 5/ 


0 

3329 

c 





0 

3330 

200 1 

FORMAT ( //// 1 X • 47HTHL FOLLOWING INTEGER ARRAY (INDEP) PRESCRIBES 

0 

3331 


♦ ! 

E4h I N JEPENDE NT V Aft i A bL ES (1), AND DEPENDENT VAHlAjLfcS CO). /JX 

* 

0 

3 332 


♦ 

1 0 1 ( IH- >) 


0 

3333 
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n n 


c 


c 


c 


c 

c 

c 


c 


c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


100 




0 

3334 

PRK( l ) 

= ONE/TWO 

0 

3335 

FRK{ 2) 

= ONE - DS JRT ( PRK (11) 

0 

3336 

FRK( c ) 

= IWO - PRK ( 2 ) 

0 

3337 

PRK< 4 i 

= PRK ( 1 ) 

0 

3338 



0 

3339 

M = 0 


0 

3340 

T - 

START t 

c 

3341 

TM ST = 

ZRO 

0 

3342 



0 

3343 

CO i CO 

1= 1 ,NEQ 

0 

3344 

CRK( I ) 

= ZRO 

0 

3345 



0 

3346 



0 

334 7 


BEHIND N T APE 1 

CO 2 I=1.KV 
INDEF ( 11=1 
Y ( I > = L BO 
2 YD T ( I ) = ZRO 

CO 3 N = 1 iNU 
NX E = [ ft GF LX ( N I 

NP6 = 6 ♦ NX E 

BE AD EUDY N INERTIA MATRIX 

BEAD (nTAPEI > ( ( AMu( l , J , N) . J= l .NP6 > . I = l . NPu ) 

L CAD ONDEFURMEO INERTIA MATRIX INTO THE AM ARRAY * 

HEREAFTER AMU ARRAY * 1 LL ' C C N T A I N THE DEF UriMciD INERTIA MATRICES 
KNT = 0 
CO 6 1=1 »NPO 

CU t> J= 1 .NP6 
KNT = KNT *■ 1 

6 AM(KNT.N) = AMUCI.J.N1 

CO TC 3 IE bOOY N A RIGID faGOY 
IF (ME .Eu. 0 > GO TO 3 


LXE = LCCU(NYNB) 

LXED = LUCUl N ) Y 6 
LXEN = EXE + NXE - 1 

LXEDN = LXED Y NXE - 1 

AC CF = ALPHA COEFFICIENTS OF EQ 11-88 USED TO DEFINE BODY'S 
STATIC MASS MJMENTS LINEAR DEPENDENCE UN DEFORMATION 
eCCF = U COEFFICIENTS OF EU 11-88 USED ID DEFINE SJDY INERTIA 
TENSOR'S LINEAR DEPENDENCE ON DEFDKMAtlGN 
CCFXY = C SUB XV COEFFICIENTS CF EO I I -83 

CGF > Z = C SUB XZ COEFFICIENTS OF EQ 11-83 

CCFY Z = C SUB ZY COEFFICIENTS OF EQ 11-83 

CCFII = C SUB II COEFFICIENTS OF EQ I I -89 , l Nc R T I A TENSOR QUAD CEP 

COF22 = C SUB 22 COEFFICIENTS OF EQ I I -8* , I NE R T 1 A TENSOR QUAD DEP 

C CF 33 - C SUB 33 COEFFICIENTS OF EQ l l -89 . INERT I A TENSOR QUAD DEP 

CCFI2 = C SUU 12 COEFFICIENTS CF EC I I -89 , I NtR T I A TENSOR QUAD DEP 

CCF 13 a C SUB 13 COEFFICIENTS CF EQ l I -89 , 1 NE R T I A TENSOR QUAD DEP 

COF2J = C SUB 23 COEFFICIENTS OF EQ II— 89* INERTIA JENSOR QUAD DEP 

READ (NT APE l ) < ( ACOP ( I . J ,N 1 , J= 1 .NXE ) » I = 1 .9 > 

BEAD (NTAPE1 ) KUCOFU .J ,N1 , J= l , N XE > . I = l .6 » 

BEAD (NT APE l ) { ( COFXY ( l , J , N ) . J = 1 , NXE > . l-= 1 . NXE > 

BEAD (NT APE l ) ( ( CUF X Z ( l . J . N J , J = I . N XE > . I = l . N Xt ) 


0 3348 
0 3349 
0 3350 
0 3351 
0 3352 
O 3353 
0 3354 
0 3355 
0 3356 
0 3357 
0 3358 
0 3359 
0 3360 
0 3361 
0 3362 
0 3363 
C 3364 
0 3365 
0 3366 
0 3367 
0 3368 
0 3369 
0 3370 
0 3371 
0 3372 
0 3373 
0 3374 
0 3375 
0 3376 
0 3377 
0 3378 
0 3379 
0 3380 
0 3381 
0 3382 
0 3383 
C 3384 
O 3385 
0 3386 
0 3387 
0 3388 
0 3389 
0 3390 
0 3391 
0 3392 
0 3393 
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c 

C 

c 


c 

c 

c 


READ 
READ 
READ 
READ 
fit AO 
READ 
READ 


(NT APE 1 ) 
(NTAPti > 
(NT APEl ) 
(NTAPti ) 
(NTAPti ) 
(NTAPti ) 
( N T APt 1 ) 


( (COFY2( I *J»K).J=1 iNXE) * 

( (CUF IK l*J.N).J=l.NXE).l=l.NXt) 
( ( CUF 2 2 ( i»J»N)*J=l*NXE)*I = 1 .NXE) 
( ( CUE JO l I * J * N ) » J = l ,NX£) * I = 1 • N At > 
( ( CUE 1 2 ( I iJ.N)*J = ltNX£)t 1 = 1, NXt) 
l { CUF 1 J l 1 • J# N ) • J = 1 .NXE ) • 1= l.NAc) 
( ( CU F23( I • J,N) • J = 1 iNXt ) . 1 = 1, NXt) 


AK(N) MO 0 AC STIFFNESS MA1RIX BUOY N 
A C ( N ) MODAL DAMPING MATRIX dCDY N 
READ (NTAPti) ( ( AK ( 1 . J . N ) * J = l . N XE ) . I- l . NXt ) 

READ (NTAPL1 ) ((AO l 1 . J. N ) . J = 1 , NXE ) . I = l, NXt ) 


IMTIAL CONDITIONS FUR FLtXlELE BODY CJJRDlVATtS READ FRCM 
TAPE DIRECTLY INTO STATE YtCTCR 
READ (NTAPti) (Y(J)#J=LXE ,LXEN ) 

READ (NTAPti) (Y( J)| J=LXtD.LXEON) 


C 

READ (NT APE 1 ) NHB 

CCC NOTE — FHO IS NO# OF P/i J HINGES* NOT TO iNCLJOt HINGE— 1. 
CCC OVERLAY (1.0) MuS) uE SUK*£ CF THIS. 

CO 4 L= 1 .NHU 
READ (NTAPti) NJH 

CCCC NCH NCT TO INCLUDE H i NGL l **** 

LH5 - 0 

IF ( 1 TUP CL ( l »NOH ) .EG. N) LH3 = 2*N0H - 3 
IF ( l TOPGL ( 2 * NQH ) *cQ. N ) LHS = £ * NCH - 2 
IF (LhS .LE. 0) GO TO 999 

READ (NT APEl) ( (HATrit I * J #LHS) • J= l # NXE > • I = i • J i 

4 READ (NTAPti) ( ( SlGH( I • J .LHS) . J=1 .NXE) • I =1 .3) 

READ (NTAPti ) NS6 

IF (FSB .cU. 0) GO TU 3 

CO 5 L=liNSB 

READ ( N T APE i ) NUS 

READ (NTAPti) ( ( M A1 S ( I . J .NO S ) . J= 1 . NX E > . I =1 . 3 ) 

5 READ (NT APE l ) < ( S lGS( 1 . J »NoS ) • J= 1 .NXE) « 1 = 1 .3) 

3 COM INUE 

C 

C 

c LOAD INITIAL MOMENTUM WHEEL HATES IN S T AT£ VECTUK 

CO 1C N=l.No 

LTC - LLCU(N) + I«OFLX(N) + 5 
F MW = N M C W ( 1 . N ) 

IF ( F MW *EO. 0) GU TO 10 
F M * V S - 0 
CO l ~ l-l.NMW 
F ON W = NNOWl I + 2 . N ) 

IF ( IMu ( 3. NUMW) .EG. 0) GU TU 15 

FMWVS = NMViVS + 1 

Y( LT C + NM WVS) = AMOll.NLMW) 

1 5 CON T I NUt 
1 0 COM INJE 
C 

c LOAD INITIAL HlNGt ANGLtS AND D l SP LACtMENT S IN il ATE VECTOR 

tee = LGCU (2*NB+ 1 ) - 1 

CO 2 C J = 1 . NH 
CO 2 C l=l.o 
1PI = 1 + 1 

IF ( IHUATAl l P UJ ) .EG. I) GO TO 20 
LEE = lOE + 1 


0 3394 
0 3395 
0 3396 
0 3397 
0 3398 
0 3399 
0 3400 
0 3401 
0 3402 
C 3403 
0 3404 
0 3405 
0 3406 
0 3407 
C 3408 
0 3409 
0 3410 
C 341 l 
0 3412 
0 3413 
0 3414 
0 3415 
0 3416 
0 3417 
0 3418 
C 3419 
0 3420 
0 3421 
0 3422 
0 3423 
0 3424 
0 3425 
0 3426 
0 3427 
0 3428 
0 3429 
0 3430 
C 34 31 
0 3432 
C 3433 
0 3434 
0 3435 
C 3436 
0 3437 
0 3438 
C 3439 
0 3440 
0 3441 
C 3442 
0 3443 
0 3444 
0 3445 
0 3446 
0 3447 
0 3448 
0 3449 
0 3450 
0 3451 
C 3452 
0 3453 
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on r> r> o orri or. nnnririA on 


c 

c 


c 

c 


c 


Y { L9 E I = B£fAH{ I , J) 

20 CO NT I NUE 

LOAD INITIAL VALUES FOR CONTROL SYSTEM VAkIA8.ES IN STATE VECTOR 
IF INDELTA .EQ. 0) oO TO 25 
LOt = LCCUl 2*NB+2 ) - 1 
CO 26 J-i.NDELTA 
L = LUE ♦ J 
26 Y(L> = CNTuTA(J) 

BRANCH TO ROTOH TCJ GET RELATIVE CRIENTAJION ANO POSITION 
DATA FUR CONTIGUOUS BCOIES ANO EOOY F I Act) FRAMES RELATIVE TO 
INERTIAL REFERENCE 
25 CALL RGTUH 

BRANCH TO BHGENK TO COMPUTE HINGE POINT KINEMATICS 
CALL 8HCENR 

BRANCH TO FINDU TO GET INDEPENDENT COMPONENT* OF U VECTOR 
F«CR INSERTION INTO THE STATE VECTOR Y 
CALL HINDU ( 0) 

iprnt = C 
IPLOT = 0 

BRANCH TU Y DOT TU GET TIME DERIVATIVE Ur STATE VECTOR, RESULTS 
STORED IN YD T «RRAY EQUATIONS II-l THRU t> All EVALUATED IN YOOT 
CALL YOCT 
WRITE ( NOT * 2 00 I ) 

CALL wklTlS ( INOtP. I ,N£u, L ) 

NCAM = NEQ 

NR A M = NCAM + NAUX 

CCMPCTE ENERGY AND MOMENTUM FOR BODIES ANO SYSTEM 
CALL ENGMOM 
CALL PRNTUU 

IF ( IFLNER • EQ • l) GU TO 50 
CALL PLCTwR 

START INTEGRATION OF EQUATIONS CF MOTION 

NEQ = TOTAL NUMBER UF EQUATIONS TU INT-^RATE 
RETURN TU THIS POINT AFTER EACH INTEGRATION CYCLE 
1 l CALL RKAOAMI NLQ ) 

CALL ENGNOM 
IPRNT = IPRNT + 1 

IF (IPRNT • N E • NGPkN'T } G C TO 12 
CALL PRMOU 
IPRNT = C 

12 CONT INUE 

IPLOT = IPLOT 4- l 

IF. ( IPLLl • NE * NOPLUT ) GL 10 13 

CALL PLCTwR 
IPLOT = C 

1 3 CONT INUE 

IF (1 . LT. LNDT ) GO TU ll 

RETURN 

C C ME HERE IF EQUATIONS 1C BE LINEAR l ZED 
5 C CALL LINEAR ( NR AM . NCAM > 

Re turn 


0 3454 
0 3455 
0 3456 
0 3457 
0 3458 
0 3459 
0 3460 
0 3461 
0 3462 
0 3463 
0 3464 
0 3465 
0 3466 
0 3467 
0 3468 
0 3469 
0 3470 
C 3471 
0 3472 
0 3473 
0 3474 
0 3475 
0 34 76 
0 3477 
0 34 78 
0 34 79 
0 3480 
0 3481 
C 3482 
0 3483 
0 3484 
C 3485 
0 3486 
0 3487 
0 3488 
0 3489 
0 3490 
0 3491 
0 3492 
0 3493 
0 3494 
0 3495 
0 3496 
0 3497 
0 3498 
0 3499 
0 3500 
0 350 1 
0 3502 
0 3503 
0 3504 
0 3505 
0 3506 
C 3507 
0 3508 
0 3509 
0 3510 
0 351 1 
0 3512 
0 3513 


B-64 



999 HRITE (NLT.EOU) C 3514 

2 0 l C FU WM A 1 l 1H1, 1-jHLkKL.R IN 11 GPCL > C 3515 

STCP 0 3516 

END 0 3517 


C 

C 

c 


SUERCUTINl F 1NUU (IrLAGl 
IMPLICIT KEAL*8< A-H, G-2 ) 


OE LUG a 3 8 


DIMENSION ICUM36), I VEU Jfc) . JCCNl 1 1 31 .RUal . J Jlbill Sl.JBIGFNl fc) 


CLMMCN / AML 8 a / 

* A MU ( 22 » 22 • u),U«(Jo,1I3) 

CLMMCN /BrlcSRD/ 

* e H ( 6 . lo . I 1 ) , dS ( 6 , 1 8 , 1 5 ) , » OL ( 3 . 3 . 6 ) . JJ L ( J . 6 1 

COMMON /NUMUlVS/ 

* CMC .UNE , I A'U , Tktb 

COMMON ✓SPECIF/ 

* lie 1 IMli/ * 6 ) »Uel AHu( b* & 1 i AMOl 2 • 5 > » Hil 1 3 • 3 • SO 1 ,KS(3,3»30) , 

4 CM ( 3.36 ) .L)S( 3.30 ) . 1MU< 3 . 5).NMCw<6. a ) . 1 - T id* ( l 5 ) . 

* NU . NH ,NSPT , NCIFMC. NOEL I A , I ICPOL I 2 . 6>.lRuri_X( o».lH0ATA(7. 6). 

* LUCLl 14 1 . LENUl 14 1 , NU.NLET A ,MAM,NEO 

CLMMCN / T l ML 55/ 

* sTARTT, DELTA! , T , E Nu T ■ 1 M5 T 

COMMON /VttlUH/ 

* Y ( 250 ) , YOT ( 250) 

COMMON /VINOtP/ 

* 1 NCEP (250) 

CCMMGN /MAXMUM/ 

* NO MAX , NHMAX , NSPMA X. NMftMAX *NM!A GOO .AMDs J J , .< M J , X Y i Kl) 


C 

CATA EPS, NOT / 1.0-00. 6/ 

C 

LOGICAL DEBUG, LEQu 
COMMCN /LUE6UG/ OtoUOI UJ) 

EUU VALtNCL (LfcOO .DtB'JGl SB ) ) 

IF(LEOU) WHI TE(NUT.201 1) IFLAG 
20 11 FORMAT (• SUBROUTINE H NOUI * . I 1 . ' I ' ) 
IF (IFLAG . E U . 2) GO TO 100 


IF (IFLAG .EO. 1) GU TO 110 
C 

C I M I 1 AL PASS THROUaH IFL AG= 0 

c iflag = o initial pass through get inde^enjent coordinates 

C TO Pol IN STATE VECTOR Y 

C IFLAG = 1 NOT AN INTcRMEOI A TE STEP THROUGH KUNgE XUTTA 

C GET DEPENDENT COORDINATES FOR INCEuSlUN IN Y ARRAY 

C IFLAG = 2 AN INIEKMLDIATl STEP THROUGH KUNSc KUI 1 A 

C LSE SAME SET OF 1 NUePE'NOENT COORDINATES AS USED IN 1FLA&= 1 

C 

C IFLAG=0 SETUP 

NC N = G * NH 
CO 2 C 5 C=1 ,NCN 
I V EC (L ) =0 

205 ICCN <L ) = 1 

CO 2C7 0 = 1 .NU 


0 3518 
0 3519 
0 3520 
0 3521 

74 3522 
0 3523 

0 3524 

1 3525 
0 3526 

2 352 7 
0 3528 
0 3529 
0 3530 

16 3531 

17 3532 

16 3533 

19 3534 
0 3535 
C 3536 
0 3537 

20 3538 
0 3539 

21 3540 
0 3541 
0 3542 
0 3543 
0 3544 
0 3545 
0 3546 
0 3547 
0 3548 
0 3549 
0 3550 
0 3551 
0 3552 
0 3553 
0 3554 
0 3555 
0 3556 
0 3557 
0 3558 
0 3559 
0 3560 
0 3561 
0 3562 
0 3563 
0 3564 
0 3565 
0 3566 
O 3567 
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A A 


207 JCCN ( J ) = 0 

CO 210 N=1,NB 
JO = LUCUNI - 1 

C JFNo > 6 ONLY FOR NON-TOPOLCGICAL TREE;.. F.EaIUlE DOOY 

C COORDINATES NEEDED TO AVOID STATIC 1 Ni>nT£ftM TNANCY 

JRNG = 6 

IF ( Th .GT. NB) JRNG = 6 F IRGFLX(N) 

DO 2 1 J J=1 .JRNG 
21C JCCN I JU F j ) = 1 

NR = 0 

CO 215 J=1 .NH 
CO 215 1=1.6 

IP 1 = I F l 

NR = NR F 1 

C L C AD R ARRAY WITH INITIAL BCTAHO ARRAY 

R(NR) = BETaHD(I.J) 

C C FcCK FOR Fl.XEO OR KHENUMIC CONSTRAINT CONDITIONS 

IF ( IHD ATA( I P l . J I .£^0. 11 RINR) = ZRO 
IF ( IHOATAl 1 PI . J 1 ,CU. 2) RINft) = ADTINR.T) 

EBTAFC ( I . J ) = R ( NR) 

2 15 CCNT INUE 
C 

CO TC 150 

ccml here to get constraint equations »etjp 
C IFlAG = 1 

C START SEARCH FUR NEW AND POSSIBLY BETTER SET OF 

C INDEPENDENT COORD INATES^ONLY ON LAST PA S ^ THRU RONGE K.UTTA) 


310 EW ( I , J) = 2R0 

LEC = fa F IRGFLXI 1) 
JBIGST1I) = I 
JB IGFNI I 1 = LEO 
CO 315 l =1,6 
OU 3 IS J=1 ,LEO 


3568 

3569 

3570 

3571 

3572 

3573 
357 A 


0 3575 


0 3576 
0 3577 
0 35 78 
0 3579 
0 3580 

3581 

3582 

3583 

3584 

3585 

3586 

3587 

3588 

3589 

3590 

3591 

3592 

3593 

3594 

3595 



l 10 

CO 

223 L=1 . NCN 



0 

3S96 



IVEC(L) = 0 



0 

3597 


220 

ICONIC) = 0 



0 

3598 



CO 

221 Jsl.NU 



0 

3599 


22 1 

INCERIJ) = 1 



0 

3600 

c 



CONSTRAINT INFO INTO ICON 



0 

3601 



NR 

= 0 



0 

3602 



CO 

22S Jsl.NH 



c 

3603 



CO 

225 1=2.7 



0 

3604 



NR 

= NR F 1 



0 

3605 



ICCN(NR) = I HO A T A ( l « J ) 



0 

3606 


2 25 

CUNT INUE 



0 

3607 

c 






0 

3608 

c 



IFLAG = 

2 


0 

3609 

c 



USE SAME SET OF I NUEPCNOENT 

CGOPDINATF^ 

AS IN IFLAG=l PASS 

0 

3610 


1 00 

CO 

220 L = 1 .NCN 



0 

3611 

c 



L C AO CONSTRAINT DATA INTO R 

ARR AY 


0 

3612 



IF 

( ICE ML) .EO. 0) GO TO 230 



0 

3613 



IF 

I ICO ML ) .EU. 1) KIL) = ZRO 



0 

3614 



IF 

I 1 CO NIL) .EU. 2) RID = ADI 

( L * T ) 


0 

3615 


230 

CCNT INUt 



0 

3616 

c 






c 

3617 

c 



LCA 0 ew ARRAY WITH tLEMCNTS 

CF BH ARR Air 

COMPUTED IN BHGENER 

0 

3618 

c 



ew = coefficient matrix of equation 

I I -a<* 

0 

36 19 


150 

CO 

310 l=l,NCN 



0 

3620 



CO 

3 10 J = l .NU 



0 

3621 


3622 

3623 

3624 

3625 

3626 

3627 
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r, n r. 


3 15 Ew < l , J) 


UH ( l • J • l ) 


C 


325 

330 

320 


1 002 


7C 

C 

c 


c 

c 

c 

c 

c 

c 

c 

c 


40C 


1 5 


CO 320 L-2.NH 

LQ = 2 *L - 2 

LP = LU ♦ 1 

NOBQ = I TUPUL( l *L ) 

NUBP = I T UPUL ( 2 • L ) 

LH = 6 * ( i I 
LtiQ = lOCU(NU 6Q) - l 
LDP - LLCU(NCHP) - i 
LEG = u ♦ IKGFLX(NGDU) 

LLP = 6 ♦ IRGFLX ( NUbP) 

JBIGST(L) = L0U + l 
JBIGFN(L) = LOQ+LEu 
CC 325 1-1 .6 
CO 3 2b l .LEO 

EW ( 1 . JfLJO ) = OH{ I • J • LQ > 

CU 35 0 1 - 1 t 6 
CO 320 J-l *LEP 

fcW ( I 4LH t J+LdP) = ON(ltJ.LP) 
COM I NuE 


IF ( • MJ T « Lfc-QU ) GO TU 70 
WRITE (NLT t 1002) 

FORM AT (' THE UW MATRIX 16* ) 

Nh 6 - NHPAX*6 

CALL Wk l TtS( UW , NCN.NUt NHfc) 

CC N r INUE 

IF IFLAG = 0 

U Sc REDUCTION PKUicSb TO SOLVE FOR U AN J TO PICK OUT THE 
I FDEPLNdENT COUKulNAIcS TU BE INSERTED InTG I HL STATE VECTOR 
IfLAJ = 1 OR 2 UtPENDENT COORDINATES IN Y ARRAY CuMPUTED 
IFLAG = I CHECK FOR BEST SET OF INJEPENJcNT COORDINATES 
IFLAG = * WITHIN AN INTEGRATION LOUP DON'T CHANGE SET OF 
INDEPENDENT COORDINATES BEING USED 

Af'ALCCujs to switching euler angle sequence *hln gimbal 

LCCK IS APPROACHED 

PFUCECP TO INVlKT 5UO~PAkT I TIGN OF bW ARRAY AND SOLVE FOR 
OEPlNGE'NT CUCRDINATLS IF IFLAG* I CR 2* I JEN T 

C CORD I NATES IF IF LA o = 0 
CO 1C L=hNCN 
IF ( 1 CON ( L )«hQ.O) GO TU 10 
1ST = 0 

LL = 1 ♦ (L- 1 ) /6 

LS = o* ( LL- l ) ♦ 3 
JS I = JD iG ST ILL > 

IF(L • G T • L S ) JST — <j S T ♦ 3 
JFN = JO IGFN I LL ) 

JBIG - 0 

A = 2KU 

30 l t J= JS I * JFN 

IT ( JCU'N(J) .ECU 0) GO TO lb 

AT = C AES1 UW (L . J) ) 

IF (AT .LT . A ) GO TO i o 

A = AT 

Jci I G = J 

CUN T I NUt 

IVEC(L) = JUlG 

IF (A .vil. EPS) GO TO 40u 


Y 


0 3628 
0 3629 
C 3630 
0 3631 
0 3632 
C 3633 
0 3634 
0 3635 
0 3636 
0 3637 
0 3638 
0 3639 
C 3640 
0 3641 
0 3642 
0 3643 
0 3644 
0 364b 
0 3646 
C 3647 
0 3648 
0 3649 
0 3650 
0 3651 
0 3652 
0 3653 
0 3654 
0 3655 
0 3656 
C 3657 
O 3658 
0 3659 
0 3660 
0 3661 
0 3662 
C 3663 
0 3664 
0 3665 
0 3666 
C 3667 
0 3668 
0 3669 
0 3670 
0 3671 
0 3672 
0 3673 
0 3674 
0 3675 
0 36 76 
0 3677 
0 3678 
0 36 79 
0 3680 
0 3681 
0 3682 
0 3683 
0 3684 
0 3685 
0 3686 
0 3687 
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A n 


405 

l 7 


30 


25 

1 C 


35 

C 


45 

40 


c 

c 

c 


5 C 

c 


10 04 


999 

l 00 l 

C 


IF ( A .LE. EPS.AND.lST.EQ.il GO TO 999 

1ST = 1 

JST = l 

JFN - NU 

GO TC 400 

F = EMIL. JBIG) 

00 17 J= 1 • NO 

5W (L. i J) = Ow (L. J 1/F 
K(L) = R(L)/F 
EW(L , JdlGl = ONE 
CO 25 1=1.NCN 

IF (I .EG. L .OR. I CuN( 1 > .EO. 0) GO TO 25 
F = E M( l , J13I G) 

CO 3 C 5=1. NU 

EWll.J) = BWll.J) - F*a«(L.J) 

Kin = R ( I ) - F * R 1 i_ J 
EM 1 t .3010 = ZRO 
CONT INGE 
CONT inuE 

L CAD COORDINATES COMPUTED IN Y ARRAY 
DO 5 5 o=l.NCN 
LU = IVECIL) 

IF (LC .EC). 0) GO TO 35 

YlLUl = ZRU 
COM INGE 

CO 4 C 0=1. NCN 

IF (ICONlLI .EQ. 3) OU 10 40 
00 45 J=I.NU 

R1L) = fi(L) - BWIU.J ) * Y ( J) 

CONT INGE 
CO SC 0=1. NCN 
OG a IVECIO) 

IF (OU .EG. 0) GO TO 50 
SET 

INGEPIOGI = 0 

IF CCCRDINATE OG IN STATE VECTOR IS DEPENDENT 
IF ( IFOAC- .EQ. 1) INGEPIOGI = 0 

Y(OG) = Rlo) 

CONT INGE 

IF ( . NCT .OEQG ) RETURN 
MRITE (NCT, 1004) 

FORMAT (• INDEP ARRAY IS • > 

CALL MR I TI S( INOEP. I .NO . 1 ) 

K'E To F N 

MR l T E l NCT ,1001) 

FORMAT l IH1 . 2SHSI NuUEAR EQUATIONS. FINUU) 

STOP 

END 


0 3686 
0 3689 
0 3690 
0 3691 
0 3692 
0 3693 
0 3694 
0 3695 
0 3696 
0 3697 
0 3698 
0 3699 
0 3700 
0 3701 
0 3702 
0 3703 
0 3704 
0 3705 
0 3706 
0 3707 
0 3708 
0 3709 
0 3710 
0 371 1 
0 3712 
O 3713 
0 3714 
0 3715 
O 3716 
0 3717 
O 3718 
0 3719 
C 3720 
O 3721 
0 3722 
O 3723 
0 3724 
0 3725 
0 3726 
C 3727 
0 3728 
0 3729 
0 3730 
0 3731 
0 3732 
0 3733 
0 3734 
0 3735 
0 3736 
0 3737 
0 3738 
0 3739 


C 


SUGRCUI INE Y DDT 




0 

3740 

DEBUG 0 

39 

0 

3741 
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implicit fiLAL*aiA-h,u-i) 

0 

3742 

c 



c 

3 7.4 3 



COMMON /AtXOIbu / 

0 

3744 


* 

AMOT22.22, 6i.clu(Jo,l » 3 > 

1 

374b 



COMMON /JHbaflJ/ 

0 

3746 


¥ 

oHtfc. To , U ) ,d3< 6, la. 1 5 ) ,R0L ( 3 ,3, 6I.J-JU3. o) 

2 

3747 



COMMON / HAND 3 / 

C 

3748 


¥ 

h A T H ( 3 , 12, 10) , S 1 GH ( 3 , l . 1 0 ) . H A TS ( 3 , 1 2 , la) . S 1 G 3 ( 3 . 12, 15) 

A 

3749 



Common /ilinlr/ 

0 

3750 


¥ 

lHLNEFi 

0 

3751 



COMMON /INIGFtL/ 

0 

3752 


¥ 

A M ( l / l » o 1 . ACOF ( v , 1 2, ft) . I?CGF( o, 12 , ul . 

b 

3 7 b3 


¥ 

COF 111 12,12, o) , COP ^21 12. 12. ft ) . 0 OF 33 l 1 2 , 1 2 , o).AK<12.12, E ) , 

6 

3754 


¥ 

CCF12(12,12. ft) .COP Ij( 12 . 12 , C ). CDF 23 l 1 2 . 1 2 . o ) . AO < 1 2 , l 2 , ft). 

7 

3755 


¥ 

Cl)f-AY< 1 2, 12, o) .COFX21 12. 12, ft) .COFYil 12. 12, 61 

a 

3756 



COMMON /IVCGNS/ 

0 

3757 


¥ 

IV ( ft, 6 ) 

9 

3 7 58 



COMMON / 3 ILFLu/ 

0 

3759 


¥ 

3 1 L 

0 

3760 



COMMON /LAMbOA/ 

0 

3761 


¥ 

AL AN ( 3o > 

l 0 

3762 



COMMON /MAXMUM/ 

0 

3 763 


¥ 

NBMAX .NHMAX . NiKMAX, MUMAX .NMWPGC . NMLWUJ . < Md ,KY , KU 

0 

3764 



COMMON /MLMLNo/ 

0 

3765 


¥ 

P( l 1 j) . PMOM ( jt ) ,HTOT( 3) , TOTH 3) .ENGKcT Ol.tNGPtl ft). 

1 1 

3766 


¥ 

TUTKt. TOT PE , TGTlnC, A li TCI , A TOIL 

0 

3767 



Common / nomokS/ 

0 

3768 


¥ 

EMC , ONE , TXO . TkeS 

0 

3769 



COMMON /SPECIF/ 

0 

3770 


¥ 

Bo T All ( ft , 6) .OLTAHDI 0 . 0 ) . AMO 1 2 . 5 ) , RH( _> . ■> , 30 ) , R 3 l 3 . 3 , 3 0 ) . 

l 6 

37 7 1 


¥ 

OH ( 3 , 35 ) ,GS ( j . 30 1 . I MU< o . S).N.VCW<6, o ) . I F T aMU( l ft ) . 

l 7 

3 7 72 


¥ 

NJ , NH.NSPT ,NoF MO. NO lLTA, I TCPCL <2 . 6>.lRGFoX( ft ) . I HO A T A ( 7 . ft). 


3773 


¥ 

LUCC1 14 ) ,LENut 14) .NO, Nbt T A , ML AN ,NEQ 

1 9 

3774 



COMMON / T APLNG / 

0 

3775 


¥ 

NT APc 1 , NTAPfc2.NT APt3 

0 

3776 



COMMON /TTMESS/ 

0 

3777 


¥ 

ST Afi TT . OfcLTAT . T , cNOT. Ti-tST 

0 

3778 



COMMON /VoCTUK/ 

0 

3779 


¥ 

Y i 2 E 0 ) . Y0T< 250) 

20 

3780 

c 



0 

3781 


CTNENSIUN Go VI llJ),u(jo),V<3ft> .HDTQIo . 1 6 ) ,BJTA ( o . U) 

7b 

3782 

c 



0 

3783 


CINEFSICN UM d< 3 ft . 3ft ) ,dM< o,22. 1 1 > 

76 

3784 


EQLIVALENCE ( 0* ( l ) . tiMO ( l ) ) . ( OW ( 1 2<5 71 , UM( 1 » 1 

77 

3765 


EQUIVALENCE ( AL AMI i ) . V ( 1 ) ) 

0 

3786 

c 



0 

3787 


C ATA 

iklag / 1 / 

0 

3788 


C A TA 

NGT/o / 

0 

3789 

c 



0 

3790 


LOG I C AL OEUGG.LEQO 

0 

3791 


CCNMtN /LDE8UG/ OlUUGI U0) 

0 

3792 


EOLIVALENCe (LL.QU, JLbUG( 3J ) i 

0 

3793 


IF(LEQO) UK l TEC NUT . 1 GO G 1 

0 

3794 

1 ooc 

FORMAT (' SoaROUT INC. VkLT'I 

0 

3795 


IF ( „ 

TO ,LQ. 4) iFUAG = 1 

0 

3 796 

c 



0 

3797 


IK.FuT.LEOO) GO TL 21 

0 

3798 


l\K ITE 

i NCT . 1 002) 

0 

3799 

1002 

FORMAT (• THE STATE VECTOR Y (S •) 

0 

3800 


C ALL 

WK ITESlY.l , NEG , 1 ) 

0 

3801 
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ri n n r* n r. n n n n r. o n r. 


CENT INUL 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 


2 1 


get caia ro define hinge and body fixed frame kinematics 

CALL RUT CH 


GENERATE HH ARRAY 
CALL OHGENR 


GET DATA TO DEFINE SENSOR PCINT AXIS SYSTEM ORIENT A1 ION 
CALL KOTOS 

GET U AT A TO DEFINE KINlMATICAL COEFFICIENTS FD-i SENSOR POINTS 
CALL 13SGENR 

EFANCH TO MGEN TU GENERATE DEFORMATION UbPENDLNT MASS MATRIX 
AND uRAVITY GRAoILNT UAIa.SEE VOL 1 PA,i_S AS-sE 
CALL M^EN 


IF NLAMI NUMBER OF CONSTRAINTS) GREATER THAN ItnJ BRANCH TO 
FINJL(l) TO GET UEPLNDLNT COORDINATES TU Pul INTO STATE 
VECTOR ARRAY Y 

I FLAG = 2 ON INTERMIUEAIE STEP CF RUNGl. KUTTa eYClE 
IF (NLAM .GT . 0) CALL FINDU I I FLAG ) 


CO 1C L~t.NEt 
LO = LOCLIL) 
LE = LENL(L) 


GET ORDINARY MOMENTA EGUATICN 11-49 VO. I 
10 CALL MUET3 ( AMD! I . 1 ,L> . Y (LC) . P(LO) ,LE .LE, 1 .KM j. 1 , 1 ) 
CD 11 I = 1 . NU 
l I CGV ( I ) = CPU 


CET GRAVITY GRADIENT OATA 
CALL GRVGRD (GGV) 

LO IE L - 1 , NO 
LE = LLNGCL) 


INVERT THE MASS MATRIX FUR OODY L STORE RESULT IN AMU ARRAY 
MASS MATRIX DESIROYcD HERE 
15 CALL INVI.NP ( AMD! 1 . 1 ,L ) . AMU< 1 , I ,L > .LE.KMUT 
IF IMAM .LQ. 0) GO TO 200 


GET 84M*4 (-1 ) *B**T FUR USE IN OBTAINING LAGKANGe MULTIPLIERS 
CALL GLTEMB 
KB M3 a 6*NHMAX 
C DECOMPOSE 3MB MATRIX 

CALL UCCN2 (BMB.D.NLAM.KOMB) 

c 

c 

CC CALCULATE 3ETADT ANu PLACE INTO YOT 

C COMPUTE BETA OUT TERM OF EQUATION 11-3 VOL I POT IN YDT ARRAY 

C ALSU SAVE IT IN BETAHD ARRAY 

200 1C = LUCOI 2*Nb«- 1 ) - 1 

CO 6C L-l.NH 
CQ 6 C 1=1.0 
IP 1 = I + 1 

IF ( IFD ATA ( l p l ,L ) .EG. 1) GO TO 60 
IC = 1C + l 
YD T ( IC ) = ZRO 


0 3802 
C 3803 
0 3804 
0 3805 
C 3806 
0 3807 
0 3808 
C 3809 
0 3810 
0 38 1 1 
0 3812 
0 3813 
0 3814 
0 3815 
0 3816 
0 38 1 7 
0 3818 
C 3819 
0 3320 
C 3821 
0 3822 
0 3823 
0 3824 
0 3825 
0 3826 
0 3827 
0 3828 
C 3829 
0 3830 
O 3831 
0 3832 
0 3833 
C 3834 
0 3835 
0 3836 
0 3837 
0 3838 
0 3839 
0 3840 
0 384 1 
0 3842 
0 3843 
0 3844 
0 3845 
0 3846 
0 3847 
0 3848 
0 3849 
0 3850 
0 3851 
0 3852 
C 3853 
0 3854 
0 3855 
0 3856 
O 3857 
0 3858 
0 3859 
0 3860 
0 3861 
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n r 


C 

cc 

c 

c 


IF ( l 

.EC* 1 ) GO TO 

tol 

0 

3862 

Mjao 

= ITOPOL(l.L) 


c 

3863 

NGSP 

= i TOPOL ( 2 • L ) 


0 

3864 

LO - 

2 4 L - 2 


0 

3865 

LP = 

LQ + 1 


c 

3866 

LOC = 

LCCU(NOdQ) - 

i 

0 

3867 

LUP = 

LCCUlNObP) - 

1 

0 

3868 

LEU = 

I RGFLX ( NOBQ) 

F O 

0 

3869 

LEP = 

1 RGFLX ( NObP ) 

F O 

0 

3870 




c 

3871 


EVALUATE ALU BETA DOT TERMS IN EQUATION 11-3 STACK THEM 
IN YDT ARRAY AFTER MODAL VELOCITIES 
CC toe J = l • LciQ 
LOCJ = LCQ F J 

62 YDl(IC) = YDTCIC) F BH ( I » J • LU ) *Y ( LOO J ) 

CO 62 J - l .LEP 
LOPJ = L CP F J 

62 YOU 1C) - YOT(IC) f tori ( I * J , LP ) * Y ( L OP J ) 
eETAhOil'Li = YOT(iU 
GO TC 60 

6 I LEG = l RGFLX ( 1 ) f o 
CO 64 J= i , LCQ 

64 VOT(IC) - YOU IC) f En (l 

EE TAhO( l «L ) = YO T ( *L ) 

t>C CONT iNOt 

PUT MEDAL VELOCITIES IXl(OuT)) INTC Y OCT 

TI-ESL GO AFTER uUuY ACCLER A T I ONS . THEY CAN 3£ FOUND IN THE 
STATE VECTOR Sll ARRANGEMENT OF U VECTOR 

CO 6 £ N = 1 • NB 
Lt = IKGFLX(N) 

If (LE . EG . 0) GO TO OS 

LOU - LCCU(N) F 5 
LO = LUCKN + N C) - l 
CO tot J=i,LE 

cc YDT(LOFJ) - Y(LuUFj) 

65 CONTINUE 

EPANCH TO TORQUL 10 COMPUTE ALL TIME DC J cN J E N f FurCES FOR ALL 
U L D I EE. Go V ARRAY CONTAINS SUM OF ALL FORCES. Sec VOL I.PP6-0 
CALL TOR CUE (GGV) 

INITIALISE UDUT, GET RrtS of LAM8CA EQUATION 


CCMPLTE PUI RESULT IN A.’PKCPkI AIL RUri OF YDT 

CO 7 C N=l.NB 
LO = LCCOI NJ 
LE - LuNU(N) 

70 CALL MOLTS ( AMU C l . 1 . N ) • Gv# V ( L 0 ) • YD T C LO ) • Lc . Ll • 1 • KM J * I , 1 ) 

IF < . NCT .LLUU ) GO Tu 20 
VtK l TE (NO I* 10 0 I ) 

100 1 FORMAT (• YO T ARRAY SANS CONSTRAINT TURGOTS 1 I 
CALL WKI leS( YDT, 1 .NEU. 1 ) 

2 C CQNT lNJt 

IFLAG = 2 

IF (MAM .LQ. J) RLTURN 

IF FIXED CR RHENOM1C CONSTRAINTS CXIST dvA_j*Te ALL LAGRANGE 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

c 

0 

0 

0 

0 

0 

0 

0 


38 72 

3873 

3874 

3875 
3376 

3877 

3878 

3879 
3860 
J881 

3882 

3883 

3884 
3085 

3866 

3867 

3888 

3889 

3890 

3891 

3892 

3893 

3894 

3895 
0 3896 
0 3897 

3398 

3899 

3900 

3901 

3902 

3903 

3904 

3905 

3906 

3907 

3908 

3909 

3910 

39 1 l 
39 12 

3913 

3914 

3915 

3916 
39 17 

3918 

3919 

3920 
392 1 
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c 


c 

c 


c 

c 


c 


a? 


as 

a 1 

04 

ec 

c 


c 

c 

JOS 

c 

3 10 

c 

c 


ee 

0 5 

C 


MOLT IFLIERS VIA EQUATION I I -6 VOL 1 
CO 8 C L-l.NH 

BRANCH IG BOOTUP TO GET bUT U AND BOTP. I HE lJkcR CASE 0 DOT 
MATRIX IN EQUATION 11-0 VOL 1 
(ALL BOOTUP ( L . ODTO . BO TP ) 

CO SC 1=1.6 
IP l = l P 1 
1C = I V ( I. L) 

IF ( IC .EQ. 0) GO TO SO 

VI IC ) = 2RU 

UC = o*(L-l ) P I 

IF RHENQMIC CONSTRAINTS CALL FUNCTION AUDI TU DEFINE TIME 
DEPENCENT ACCELERATION, THE ALPHA DOUBLE U 3 T TERM IN EQ. 11-6 
IF 1 IFO ATAJ I PI ,L ) .EO. t- ) VilC) = ADDT(IlC.l) 

IF ( L .EQ. 1 > GO TU ol 
NO BO = I I GPU L I 1 . L 1 
NOBP = ITOPOL(2.L> 

LQ = 2*L - 2 

LP = LQ + 1 

LOO = LGCU(NGCU) - 1 

LOP = COCUINOBP) - 1 

LEC = IRGFLxlNOBQJ P o 

LEF = 1 RGF LX ( NOBP 1 P 6 

GET WEST OF TERMS JflTHlN PARENTHESES IN tiUJATlUN I 1-6 
CO 32 J = 1 . Lc U 
LOCJ = LCQ p J 

VI IC ) = V( IC ) - atUI , J .LU) *YDT (LOO J> - BDT J I I . J > * V I LU Q J ) 

CO 83 J = 1 • LC P 
LOPJ = CCP P J 

V(IC) = V(IC) - 0H( 1 .J • *_ P J +YUT (LQPJ) - BDTP ( 1 . J> *Y ( L JPJ ) 

GO TC SO 

LEC = IRGFLX ( 1 ) F 6 
CO 8 4 J = 1 . LE Q 

V(IC) = VllC) - 3M( I , J . I )*YDT ( J) - BDTOl I. J J *r ( J J 
CCNT INJE 

IF (FLAM .GT. 1) Gu Tu JOS 
VIII = VII )/0( 1 I 
CO TC JIO 

USE CECUMPOSED uMb ANU U ALONG *ITH V IN DaKSeV TU SOLVE 11-6 
AND RETURN LAGRANGE MULTIPLIERS IN V ARRAY 
CALL BAKSLV (BMB.NLAM. V.O.KbMB ) 

LEC = LLNU ( 1 ) 

FILL CUT EUUAT IUN '1 1 - 1 ACCOUNTING FOR ACTION OF CONSTRAINT 
FORCES. THE dM ARRAY V»AS UL3TAINED IN GlFbMT 
CO 85 1-1*0 
ILN = I V( I , l ) 

IF ( ILN «EU. 0) GU 10 ob 
F = V ( l L N ) 

DO Qt J=1.UQ 

YDT<J> = YOT(J) ♦ F * b M { i • J* 1 ) 

CCM INUt: 

00 9 C l-c.NH 
NUBO = I TLPUL ( 1 * L ) 

NC OP = i TUPuL (2«L) 

LQ = 2*L - 2 

LP = LQ ♦ L 

LOQ - LCCU(NUBQ) - I 


0 3922 
0 3923 
0 3924 
0 3925 
0 3926 
0 3927 
C 3928 
C 3929 
0 39 30 
0 393 1 
0 3932 
0 3933 
0 3934 
0 3935 
0 3936 
0 3937 
0 3938 
0 3939 
0 3940 
0 39 41 
0 3942 
0 3943 
0 3944 
C 3945 
0 3946 
0 3947 
0 3948 
0 3949 
0 3950 
0 3951 
0 39 52 
0 3953 
0 3954 
0 3955 
C 3956 
0 3957 
0 3958 
C 3959 
0 3960 
0 396 1 
0 3962 
0 3963 
0 3964 
0 3965 
0 3966 
0 3967 
0 3968 
0 3969 
0 3970 
0 3971 
0 3972 
C 3973 
0 3974 
0 3975 
0 3976 
0 39 7 7 
0 3978 
0 3979 
0 3980 
C 3981 
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LUP = LLCUl 1 - 4 C BP ) - i 

l.r.0 = L.CNU( NO DO ) 

LLf 1 = LcNOINbrtP) 

DO 9 C 1 = 1*0 
ILN = i V ( l .L ) 

IF ( ILN *aO. 0) CL TL 
F - V( ILM 
CO 9S J = l • LEO 
LCCJ = LCQ «- J 

9 5 VDIUCJJ) = YOT(LUCiJ) *■ f #[)M( [ 

DU Jsl.LtP 
LOP J = L CP ♦ J 

Oc >0 T ( LUi* J ) = YDT(LGPJ) + ^LMU ,J,LP) 

<;o cunt in J t 

IF t * N U l * LtlOU 1 RETURN 
MR I T 6 ( N C F • i 0 03 > 

1003 FvJ R M A I (• THE YDT ARRAY IS •) 

CALL Ht< ITc.S (YDT ,1 ,NcO» 1 ) 

PE TO P N 

END 


0 3982 
C 3983 
0 39 tt A 
C 3985 
0 3986 
0 3987 
0 3988 
0 3989 
0 3990 
C 3991 
0 3992 
C 3993 
0 3994 
0 3995 
0 3996 
0 39 9 7 
0 3998 
0 3999 
C 4000 
0 4001 
0 4002 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


SUERCul Iht LINEAR tNFc.NC) 
IMPLICIT REAL*6 (A-H.O-Z) 


DEBUG 4 


SLKf-CLT INC ESTABLISHES FIRST PARTIAL OER I VATi V e S 3F A YjOT 

described functional at an initial state* y* jsing quadratic 

INTLRPC LAT ICN FUNCTIONS* 

REFER ru VOL l SECTION III 'SYNTHESIS AND ANALYSIS CF THE 
LINlARIZEO SYSTeM* FCR IHcORETICAL UEVtLwr*; WENT 


THE PARTIAL DtRIVATIVL MATkU IS WRITTEN COLUMNWISE ON UNIT NU • 
CALLS slerout INL ydgt 

COMMON /PR WORK/ 

♦ PR ( 250* 5) 

COMMON /TAPcNu/ 

♦ NTAFEl*.NTAPE2*NIAPt-3 

COMMON /VECTOR/ 

* Y ( 250 ) • YDT ( 250 ) 

COMMON /VlNUEP/ 

* INDLP(250) 

COMMON /LOSlZE/ N X « N Y . NDL I A * NX S S • NO • N J 0 * NY 2 * N J 2 


SUBROUTINE ARGUMENT DcSCRIPTiuNS — 

NR = INPUT NUMuEk Or RLwS IN PARTIAL DEkIvAUVl MAIRIX. 

NC = INPUT NUMBER OF COLUMNS IN PARTIAL DERiVAllVE MATRIX. 

pPGM UYNS20 
NC = NEQ 
NR = NEQ ♦ NA U X 


DIMeFSICN F Y ( 250 . J) * t-i 
EOLlVALENCt ( PftC 1 ) • F Y ( I) ) • 
EOU I VALENCE ( INDEPI I ) * IV i I 
LATA NOT/ 6 / 


. ZNE to ( 25 0 ) *1 V (2u3 > 

( PR( 751 ) • Z( l ) ) , ( PR 4 1 0 Jl ) • ZNEM 1 > ) 
> J 


4 0 


0 4003 
0 4004 
C 4005 
0 4006 
0 4007 
0 4008 
0 4009 
0 4010 
0 401 1 
C 40 12 
0 4013 
0 40 14 
C 4015 

1 4 40 16 
0 40 1 7 
0 4010 
0 4019 

20 4020 
C 4021 

21 4022 
0 4023 
0 4024 
0 4025 
0 4026 
0 4027 
0 4028 
0 4029 
0 4030 
0 4031 

78 4032 

79 4033 
C 4034 
0 4035 
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cata pccn.pmin/ i .o-02 . i . j-oa / 


0 

4036 

c 



0 

4037 

c * ♦ * *♦<*********** ** CAuTIUiN cPoi CAN BE PROBLEM 

SENSITIVE 

0 

4038 

C 



0 

4039 


CATA EPS1.LPS2/ 1 .O-Oo . 1 .0-0 A / 


c 

4040 


CCYMCN /LJLCiUG/ JEUUG ( 120) 


0 

4041 


LOGICAL CEUUG.LEUU 


0 

4042 


cOUIVALENLt ( LEQU , uEuUuI AO ) ) 


0 

4043 

C 



0 

4044 


IF(LECU) WRl Tfc ( MOT . 1 000 ) 


c 

4045 

100C 

F0RMA1 (* SUUROUTINE LINEAR •) 


0 

4046 


NU = N I AFE2 


0 

4047 

c 



0 

4043 

C ESTABLISH OUTPUT SIZE UF PARTIAL DERIVATIVE MATRIX 

0 

4049 

c 



c 

4050 


F JC = 0 


0 

4051 


NX ■= 0 


0 

4052 

c 



0 

4053 


CO 5 1=1. NR 


0 

40 54 

c 

1 V ( I ) -0 IF COOHjINAIC I IN STATE VECTOR 

Y A juPCNJENT COORO. 

0 

4055 


IF (IV(I) .NE. 0) NJU = NJU + l 


0 

4056 


IF { I . sj T . NC) GO TO o 


0 

4057 


IF I IVI I 1 .NE. 0) Nx=Nx+l 


0 

4056 

c 

CO N T INUt 


c 

4059 

c 



0 

4060 


RE * I NQ NL 


0 

4061 

c 



c 

4062 

t 

L C AO FY(l) WITH YUT. fc T A =0 


0 

4063 


CO 2 C 1 = 1 . NR 


0 

4064 

sc 

FY ( I , 1 ) = YL) T ( I ) 


0 

4065 

c 



0 

4066 


CO 2C0 L=I ,NC 


0 

4067 


IF (1VIL) .EO. 0) GU TO 200 


c 

4063 


[FLG = 0 


0 

4069 


fcPSV = EPS 1 


0 

4070 

32 

CONT INUt 


0 

4071 


DY = PCCN * Y(L) 


0 

4072 


IF (OAdGI CY ) . LT .PMIN) JY-PMIN 


0 

4073 

C 



0 

4074 


Y Y - Y ( L ) 


0 

4075 


Y ( E ) = Y IL ) + DY 


0 

4076 


CALL YUCT 


0 

4077 


Y< L) = YY 


0 

4078 

c 



c 

4079 

c 

LCAJ FY<3) ViTH YOT, E T A = 1 


0 

4080 


CO 3 C I = I. NR 


c 

4081 

30 

FY l I ,3 ) = YU T< I ) 


0 

4002 

C 



0 

4083 


YY = Y ( L ) 


0 

4084 


Y(L) = Y (L ) F 0.500 * OY 


0 

4085 


CALL YUCT 


0 

4086 


Y C L ) = Y Y 


c 

4087 

C 



0 

4088 

c 

LCAJ F Y ( 2 ) »ITH YUT, tTA=.0 


0 

4089 


CO 3 S I = 1 . NR 


0 

4090 

35 

FY( L .2) = YU T ( I ) 


0 

4091 

C 



0 

4092 


ZLRG -= 0.000 


0 

4093 


CO 5 C 1 = 1. NR 


0 

4094 

c 

EVALUATE EOUATION III-lo 


0 

4095 
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Cv f\ 


El = -3. CO * FY(I.l) F 4.00 *F¥U,2) - FY(I,J| 
EVALUATt EQUATION 111-17 

also luck for lakkEsi z(i> 

2(1) = ci / JY 

2AE = OAfcSlZ(l)) 

IF (Z7J.L1.CPS1 > Zll) = 0.000 
IF ( Z AS .GT . ZLRG) ZLKU = Z AS 
SO COM lAuE 

i r r = o 

c 

60 CY = 0.5DOYOY 

C IACKEN.ENT SIZE (IAS BEEN CUT IN HALF 

c 

C LCAO M3) WITH YDT. ETa=.s 

CO 7C I=1.NK 
VO FY(I.J) = F Y ( I . 2 ) 

C 

Y Y = Y ( L ) 

Y ( L ) = Y ( L ) + 0.300 * U> 

CALL YOLT 

Y ( L ) = Y Y 

C 

C LCAO F Y { 2 ) WITH YUT, ETA=.2S 

DO 8 C 1 - 1 ■ NR 
80 FY ( l .2 ) « YOTI I ) 

c 

DO 9 C l = 1 . NR 

c EVALUATE EUUATlUN I I 1 - 1 U 

FI = -3.00 * FY(I.l) Y 4.00 * FY(I,2) - F Y { 1 # 3 ) 

C tVALUAIt E0UAT10N i 11—1/ 

2 NEW ( l ) = hi /OY 

IF ( CAOSl ZNLWl I ) ) .LT. LPS1) ZNSW(l) - j . JO 
9 0 CCAT 1 AGE 

c 

c CCMHAKE Z AND ZlYeW TU Sch IF NEARLY tQJAL 

IF ( . AUT .LtOU ) GO 10 21 
write (act. 1002) IIR.L 
CALL WK 1 1ESI Z. 1 .NR. 1 ) 

WHITE (ACT, 1003) IIR.L 
CALL WRITES (ZNEW. l , NR . 1 ) 

10 0 2 FORMAT (■ Z array 1 TEKAT Ion • . t 3 . • FOR uuLUMN'.la) 

1003 FORMAT (• ZNEW ARRAY I TcK A T I ON • . I 3 . ’ FOR C CLU 4l\ • . I J > 
2 1 COAT (NOE 

CO ICO 1=1. NR 
C 

IF < I V ( I ) .Eo. 0) uG TO 100 
C 

c C Ch/tRGENCfc TCsI 

CN = OAdSI Z( I) ) 

ON 1 = 3 AZ5 ( ZNEW ( l > > 

c. 

IF (CM . u T . DN) ON - uN l 
IF l CN .LT . tPSl ) GO TO 100 
Cl = CAESIZNEMI) ~ Z(I))/ ON 
C 

TF (Ci .LE. ERSE) uC TO 10J 


0 4096 
0 409 7 
0 4098 
0 4099 
0 4 100 
C 4101 
C 4102 
0 4103 
0 4104 
O 4105 
C 4 106 
0 4107 
0 4108 
0 4109 
0 4110 
0 4111 
0 4112 
0 4113 
0 4114 
0 4115 
0 4116 
0 4117 
0 4118 
0 4119 
0 4120 
0 4121 
C 4122 
0 4123 
0 4124 
0 4125 
0 4126 
0 4127 
0 4128 
C 4129 
0 4130 
0 4131 
0 4132 
0 4133 
0 4134 
C 4135 
C 4136 
0 4137 
C 4138 
0 4139 
0 4 140 
0 4 14 1 
C 4 142 
0 4 143 
C 4144 
0 4 145 
0 4 146 
C 4 14 7 
0 4148 
0 4 149 
0 4150 
0 4151 


C 

ITR = ITR Y t 

C GIVE UR AFTER S TRY3 ANG 2 EPS! CHANGca 

IF ( I IK . LE. 6) GO TU 9 u 


0 4 1 S2 
0 4153 
0 4154 
0 4155 


B-75 



r> n 


lFUfLu.GI.a) GO TU 31 
IF LG = 1 

fcPSl = 1.00-06AZLRG 

»RITE(NOT,2002) L.LPS1 
CO TC 3 2 

31 IFIIFlG.GT.I) GO TO 33 
IFLG = 2 

CPS 1 = 1 .0D-04AZLHG 

*>R ITE1NGT.2002) L.EPSl 
CO TC 32 

32 EPS1 EPS V 

CO TC JS9 

5 6 CO NT 1 NOE 

00 SC J-l.NR 
SS i ( J) = ZNEWl J) 

GO TC oO 
100 CONTInOE 

COMPLETION GF THE DO 100 LOOP INDICATES *E HAVl ACCEPTED 
C ZNEfcl I 1 . I - 1 . NR . 

C 

C NCW PACK PARTIAL DERIVATIVES INTO A NJG LCNG V LiL T U T • 

C 

J=C 

CO 110 1=1 .NR 

IF (lvll) .EQ.01 GO TO 110 

J=JM 

ZNEW ( J 1 = ZNE*l l 1 

1 1 C CONT INUE 
C 

»R1TE (NG1 ( ZNEM J1 . J= 1 ,NJU) 

C 

IF ( . NUT .LEOU ) GO TO 200 
HR IT E (NOT . 100 1 1 L 

1001 FORMAT (' COLUMN* .15. ' UF THE PARTIAL DERIVATIVE MATRIX IS*) 

CALL i»R 1 TEsl ZN£V« , 1 ,N JG , l ) 

C 

200 CONTINUE 
RE TORN. 

C 

9 SS *HITE (NET. 2001 ) I , L . D Y , 2 1 I 1 , Z N'E W 1 I 1 
200 1 FORMAT 1 1H 1 ,////, 20X . 

* 36HSGUHCUT1 NC LINEAR FAILED TO CONVERGE ,/,2 OX, 

* 2SHIN 5 ITERATIONS GN CLEMENT ./.10X. 

A4H l = , ID./ . 10X , 

A AH L = .13./.10X. 1SHL A ST Y INC RE ME NT = .D12.T.//.10X. 

AT HZ = D 1 2 . 4 , / ,10X» 

A7HZNE* = D12.4) 

2002 FORMAT 1 10X, 'CONVERGENCE PRGDLEMS IN COLUMN 1 . I 3 , * OF LINEAR EPSl R 
AESCT TO', 012. A,* FOR THIS COLUMN*) 

C 

STOP 

END 


0 4156 
0 4157 
0 4158 
0 4 159 
0 4160 
0 4161 
0 4162 
0 4163 
0 4 164 
0 4 165 
0 4 166 
0 4167 
0 4168 
0 4 169 
C 4170 
0 4171 
0 4172 
0 4173 
0 4174 
0 4175 
0 4 176 
0 4177 
0 4 178 
0 4179 
0 4180 
0 4181 
C 4 182 
0 4 183 
0 4184 
0 4185 
0 4 186 
C 4187 
0 4 188 
0 4 189 
C 4190 
0 4191 
C 4192 
0 4193 
0 4194 
0 4195 
0 4 196 
0 4 197 
0 4198 
0 4199 
0 4200 
0 4201 
0 4202 
C 4203 
C 4204 
C 4205 
C 4206 
C 4207 
0 4208 
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SL^RCLI iNi_ INVlNP (A.H.N.KA) 


C 4209 


C OE BUG H 4 l 

C LSi LJ 7 0 INVERT 7 Ml MA Sr. MATRIX 

IMPLICIT RtAL*a( A-H, (J - C ) 

LOGICAL CcUUG.LEUU 

CCNMCK /LUtidUO/ OuouU 12 0) 

lOLIUlCNLl (LEOU.JbtiUOt 41 ) ) 

C 

C * * A * ♦ A <£*♦* 

C N A Twix A MOST Uti SYMMETRIC. MAX N = XX 

C $*«« ****** 

c 

cl MEN 3 I LN A ( KA * 1 ) >K( KA • 1 ) «CL( 22) 

C 

CATA t*’S*i>uT / l.u— 06* o/ 

C 

IP ( •NOT • Ll_ QU > GO Vb l 

ah i re <nc r • tuoo ) 

Y.fl I Tc (NOT. lOOt ) 

CALI, ak l ThS< A.N • N *KA ) 
l CCM INUt 
L = I 

IF <A<|.l) .LT. EPS) GO TC 999 
C 

M l . 1 ) - l • U 4-00/ A ( 1,1) 

CO ICC L - 2 • N 
M = L - 1 
CO 1C l = UHl 
CL ( I ) = C .04-00 
CO 1C 3 = l .Nt 

1C CL ( l ) = CL ( I ) 4- H|1,J)*A(J,L) 

S = A ( L ,L) 

CO 2 C l = UNl 
20 E - £ ~ A(I,L ) *CL < l ) 

IP (tUi3(5> .LT . LP3) GO TU 99 9 
3 = 1 .04-00 /S 

CO d C l = UNl 
V - ~S*CL< l ) 

R ( I . L ) = V 

F» ( t * I ) — K ( 1 • L ) 

CO JC J=I,.Ni 

K(I.J) = H l l * J ) - V * CL ( J ) 

30 R l J • I ) = KII.JL 

R C L . L ) = S 

IOC CO X T INUE 

IF ( . NOT .LL OU ) RtTuRN 
WR I TE (NUT , 10 02) 

CALL W« l TlS( r< .N • N .*A ) 

1000 FORMAT (* SUBROUTINE INVlNP •) 

1001 FORMAT (' MASS M AIR IX IS • ) 

1002 FORMAT {' INVERSE OF M AS 3 MATRIX IS •) 

C 

f-E TUhN 
C 

999 aRITE (NCT.9J0) L 

900 FORMAT ( /.OX* 32MS I NoULAK MATRIX IN INVlNP AT L = . i ^ . 9rt STOP RUN) 
STLP 
C 

END 


0 4210 
0 421 l 
C 4212 
C 4213 
0 4214 
0 4215 
0 4216 
0 4217 
0 4218 
0 42 19 
0 4220 
8 C 4221 
C 4222 
0 4223 
0 4224 
0 4225 
0 4226 
C 4227 
0 4228 
0 4229 
0 4230 
0 4231 
0 4232 
C 4233 
0 4234 
0 4235 
0 4236 
0 4237 
0 4238 
0 4239 
0 4240 
0 4241 
0 4242 
0 4243 
0 4244 
0 4245 
0 4246 
0 4247 
0 4248 
0 4249 
0 4250 
0 4251 
0 4252 
0 4253 
0 4254 
0 4255 
0 4256 
0 4257 
C 4258 
0 4259 
0 4260 
0 4 261 
0 4262 
0 4263 
0 4264 
C 4265 
0 4266 
C 4 26 7 
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c 


SUBROUTINE UCCM2 (U*D,N,KK) 


DEBUG * 42 


IMPLICIT h'tAL*3(A-h»0-ZI 

C DECOMPOSE U INPUT INTO UPPER TRIANGULAR EL-Mc-NfS OF U AND 

C E LilMtMS OF THE DIAGONAL MATRIX D SUCH THAT 

C U( INPUT) = U**T*D*U 

C DIAGONAL AND LOWER TRIANGULAR FLEMc NTS UF JUTPUT U 

C CONTAIN GAKtiAut 

C L SHOULD hAVL LINcb CN DIAGONAL AND ZEROS BELOW IT 

C NUT DONE HfcKc TO SAVE TIME, OAKSLi/ KNJwS THIS 

C ALoORiTHlM USED ASSUMES THAT U IS SYMMETRIC 

ClVENSlCN U(KR.I),u(i) 

CATA EPS •NUT /l. 0-15. 67 

C 

IF ( N • EC • l ) GO TO 20 
NM 1 : N - 1 

DO If L- l • NM l 

IF ( CAciS (U(L *L) ) #LF « CPS) GO TO 998 
LPl = L + l 
C( L ) •= U (L »L > 

CO 1 £ l =LP 1 • N 
S = L ( L « I ) /U (LtL) 

CO l C J= I • N 

1C L(I*J) = U(l*J) - S*U(L.J> 

IE U( L • I) = S 
20 C ( N ) = U ( N » N ) 

RETURN 

C 

996 WRITE ( NOT ,1001) 

100 1 FORMAT < IHl . 40HMATKI X SINGULAR, DC C M2 • PROGRAM STOPPED.) 

ST C P 
END 


0 4268 
C 4269 
0 4270 
0 4271 
C 4272 
0 4273 
0 4274 
C 42 75 
0 4276 
0 4277 
0 4278 
0 4279 
0 4280 
0 4281 
0 4282 
0 4283 
0 4284 
C 4285 
0 4286 
0 4287 
0 4288 
0 4289 
0 4290 
0 4291 
0 4292 
0 4293 
0 4294 
0 4295 
0 4296 
0 4297 
0 4298 
0 4299 


SUBROUTINE WRITES (A.NR.NC.KR) 

C DEBUG # 43 

C PRINT REAL T MG DIMENSIONAL ARRAY IN FORMA FORMAT 

FEAL*8 A 

DIMENSION A ( KR ♦ l I * ICHEAOUC ) 

CATA NUT / 6/ 

LATA 1CPEAD/4H( l).4M( 2).4ht 2>.4H< 4 ) • 4H ( 5), 

* 4H< 6 ) . 4H ( 7).*h( 8 ) • 4 H ( 9) *4HU0) / 

C 

20 l C FORMAT l 8 A . 1 0 ( 7 X , A4 ) > 

2 0 3 C FORMAT < IX • 2 1 5 • 2 X , 1 P 1 OD 2 1 • 5 ) 

C 

LR = 19 

IF < NC .LT. LR) LR = NC 

WRITE < NET .20 1.0) L l CH E AD ( L ) .L = l • L R ) 

CO 6 C i -= l . Nft 
US = 1 

10 JE = JS + 9 

IF ( Jt .CT« NC) J t - NC 

WRITE LNCT.2030) l.JS. i A( i , J ) . J= JS . JE > 

IF < uE .ECJ. NC) GO TO 60 
JS = US + 10 


0 4300 
0 4301 
0 4302 
0 4303 
C 4304 
0 4305 
C 4306 
0 4307 
0 4308 
0 4309 
C 4310 
0 431 1 
0 4312 
0 4313 
0 4314 
0 4315 
0 4316 
0 4317 
C 43 18 
0 4319 
0 4320 
0 4321 
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u u u o u 


GO TC 10 0 4322 

6C CONTINUE 0 4323 

C 0 4324 

RETURN 0 4325 

END 0 4326 


suERCuriNE kotoh 

C DEBUG * 44 

IMPLICIT kLALfiil A-H.O-Z) 

U EE j tu COMPUTE ARRAYS KLL AND COL SEE VOL ll.PAuc IB 
INTERMEDIATE RlUlATlONS STORED IN RH 
VELOCITY THANSruRMA T 1 CN STOREO IN PIN 

CCMMCN /tli-ibSR3/ 

* un ( c • l<i • 1 I > > bS ( 6 • 1 0 > 1 5 ) • R 9L I 3 • 3 1 bl.DJuli. o ) 

CCMMON /NANUS / 

* EATE13, 12, 10). SIGH (3. 12. 10). HATS13, 12,lsJ , s1dS(3,12,15) 

CCMMCN /PINRP / 

* P1M3.3. 6), n?2(3,3. b). RP3I3.3, 6) 

CCMMCN /SPECIE/ 

* UETAHIb. 6 ) ,BE r Arl J( b. 6 ) « AMO ( 2 • 5>.RH43.3.30J,kS(3.3.30), 

A DM I 3 « 35 1.DS13.30) *1 MO 13* 5),NMCW16, .>).l'-'VSM»iils), 

* Nd .NH ,N5PT .NLif- MU. NDELTA. I TOPOL (2. 6),1 RuFlXI oj , IHCATAI7. £ ) , 

* LULL! 14 ) .LENuI l 4 I .NU.NLiEIA.NLAM.NEQ 
COMMON /VECTOR/ 

« YI 260 > . YDT (250) 

C 

Cl MEAS1CN OF I 3) . ANGF 13).KLTM3.3>,RW<3.3), 

* ITOPW12. 6J.IUP12. c) .NBOOFl 6) 

C 

Cata i i j t i mu t / o. o/ 

LOGICAL CEdUG.LLGU 
COMMON / Lucb UU/ OccUGIlEO) 

EQUIVALENCE ( LEQU . JtdUCji 44 ) ) 

C 

IF(lEOu) 'ill TE l NOT , l 000) 

10 00 TORMAT (’ SUOkOUT liME KUiOH •) 

IF (1151 .CU. 1) GO TO 600 
I l 5T = 1 

CO 1 CS 1-1.2 
UO ICE J=I .NH 

tOE IT CPU < 1 . 0) - ITOPOLII.J) 

IS = l 

LO ICO N-l.Ntd 
IOC Nl.COFCN) = 0 

IT CP K ( i . 1 ) = 0 

NOP - 1 

it: P ( l . i ) = i 

in? i ; . i > = i 

l 2 E LO 110 1=1.2 

UO 110 J=1,NH 

IF l 1 TOP*! I . J> .IE. IS) GO TO 110 
NOP = NOP 4 l 
I UP I 1 . J ) = .-.up 


0 4327 
0 4328 
0 4329 
O 4330 
0 4331 
0 4332 
C 4333 
0 4334 
0 4335 
2 4336 
0 4337 
4 4338 
0 4339 

1 3 4340 
0 4341 

16 4342 

1 7 4343 

18 4344 

19 4345 
0 4346 

20 4347 
0 4348 
0 4349 

81 4350 
0 4351 
0 4352 
0 4353 
0 4354 
0 4355 
0 4356 
0 4357 
C 4358 
0 4359 
0 4360 
0 436 1 
0 4362 
0 4363 
0 4364 
0 4365 
0 4366 
0 4367 
0 4368 
0 4369 
0 4 370 
0 4371 
0 4372 
0 4373 
0 4374 
0 4375 
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10P< Z ,J) = l TOP W ( 1 . J ) 

IF ( I *EC1. 2 ) GU tU lib 
I O P ( l • J ) = - NUP 
I OF ( 2 , J ) = i TC JPW(2,J) 

115 IS l = l GP( 2 . J) 

NflCOFllSl) = 1 

1TCP M 1 * J) = 0 
I T CP to ( 2 • J ) = 0 
11 C CONTINUE 

NO CO F (lb) = 0 

IF ( MJP tHQ. NH) GU TO 1 £0 
LG 1 lo N = 1 « NB 

IF ( M 3 UDF ( N ) •£Q« 0 ) GL TU 116 

IS = N 
CU TC 125 
l 15 CUNT INUE 
GO T C J 9 9 
1 2 C LO 150 J = liNH 

JGPA = ICP< l * J) 

JOF = lAdS(JGPA) 

1TCP*(I.JGP) = J * JL*P A/ JUP 
130 I TCP <a ( 2 • JGP) = I GP( 2 * J ) 

IF ( • NUT .LEQU ) GU IU 80 
WR I T E ( NCT « IJ 0 1 ) 

1001 FORM A T (' ll'OPW ARRAY IS ') 

CALL rfRITlSl ITOPW. 2. NH • 2 ) 

«C CON T INUE 
C 

500 CONT INOc 

C LCAO L-ETAH WITH UPDATED ANGLES FROM 

NF3ET = L LCU ( 2*NB * 1 ) - l 

CO S J- 1 »NH 
CO 5 1=1*6 

I 1 = l F l 

IF ( IhDATA( 1 l , J ) .to. 1) Ou TO 5 
NOE T - NELT F 1 
EETAF ( l * J) = Y ( NO 1 1 ) 

5 CG NT INUL 
C 

CO 1C i=2.NH 

NO B Q = l TOPOL ( 1*1) 

NGdP = 1 1LPUL (2.1) 

C L P 1 = Ii7*15il9i**« 

C L t 1 -* itdtlS.22**** 

LH 1 = 1 F 0 *( 1 ~ 2 > 

LD 1 = l F 7 * 11 - 2 ) 

LR 2 = LRl F 1 

LR3 = LRl f 2 
LR 4 - ERl F J 

LR 5 = LRl F 4 
LR 6 = LRl F 5 
L02 = LU 1 F l 
LO 3 - LOl F 2 
LD4 = LC1 F 3 
LD 5 = LD1 F 4 
LD6 = LD1 f 5 
LO 7 = LD1 f 6 
NMC - IRGFLX (NOJC) 

NMP - IRGFLX (NOBP) 


0 4376 
0 4377 
0 4378 
0 4379 
0 4380 
0 4381 
0 4382 
0 4383 
0 4384 
0 4385 
0 43 86 
0 4387 
0 4388 
0 4389 
0 4390 
0 4391 
0 4392 
0 4393 
0 4394 
0' 4395 
0 4396 
0 4397 
0 4398 
0 4399 
0 4400 
0 4401 
0 4402 
0 4403 
C 4404 

Y STATE VuCTCH C 4405 

0 4406 
0 4407 
C 4408 
0 4409 
C 4410 
0 441 1 
0 4412 
0 4413 
0 44 14 
0 44 15 
C 4416 
0 44 17 
C 4418 
0 4419 
0 4420 
0 4421 
0 4422 
0 4423 
0 4424 
0 4425 
0 4426 
0 4427 
0 4428 
0 4429 
0 4430 
0 4431 
0 4432 
0 4433 
0 4434 
C 4435 
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u u 


<30 TC 15 IF UUOY luN T A 1 N I NO O FRAME RIGID 
IF (FMU .IfO. 0) GO TO lb 

ACCG INI' FOR BODY FLE XluILlTV 10 GET POSITION JH(LJJ) 
tlPlLNTAUCN RHU.KJ) Of O FRAME AT H ( NGz 1 « R T ITi 

LU = LUCU< NUOONO ) 


ANO 
00 DY 


FRAME 


R M L R 5 ) USC INPUTTED btlAH ANGLES 
CALL RLTTK ( J * l T , ANGF . RH ( l * 1 • LHS > , UUM , DIM) 

GET FI INVERSE MATRIX OF E GU AT I C N 11-19 VJ_ i 

Plft(l) = r<OTAIlUN I KAN SFOKMAT l ON vi*fklX R^LhTING BODY 

KlXuO ANGULAR RATES TO EJutK RATES BETWEEN P AND 
U FRAME AT HINGE I ( NCJN— Ok T HLNuKMAl > 

CALL ROTTk ( MT ,«NoF,PINU , 1 , l ) ,RP2U . M ) #k->jI l.l.i)) 

CO 3t L= 1 . 3 
CO 3 t J = 1 . 3 

JS Rto ( L • J ) = RH ( J • L * LH3 ) 

RF(Lftc) = RH(Lk4)*RH<LKS)*RF(LR3>**T 

TKANSHjKMAT Ion BETWEEN BODY FiXeJ FkAMeS of oodies 
CONTIGUOUS AT hlNCl; I 

CALL MULT3 ( Uti ( I . 1 . Lft 4 J .RH ( i . I . L PS ) . R UTF . j f j . j ♦ 3 • 3 • 3 ) 

CALL M-jLTJ ( HOTF ,kw. RH( l * 1 .LRt ) ,3 . 3*3 • 3 ,3. J) 

UiULDG) - VECTOR OETWEEN BODY FIXcj K; r c R LNCE FRAMES CF 
uUUI £b CONTIGUOUS AT HINGE I 
t RH ( 1 • i • LR 4 ) iDm l 1 . LD5 ) «DF • 3 « 3» i « 3 • 3 « 1 ) 

(RH( 1 * ItLRo) «OH ( 1 • LD3 > .A NGF. 3»3. 1.3. 3,1) 


CALL MuL T 3 
CALL MJL13 
OU 4 C J = l * 3 

40 CM ( J « Lu o ) = DM ( J • Lu4 ) 


4436 

4437 

4438 

4439 

4440 
444 1 




I.HS = E * i “ 

3 





0 

4442 



CALL MULT 3 

(HATH! 1 • l , LHS) *Y(LU) «l)F »3 *N MQ • l 

« 

Jilt 

i ) 


0 

4443 



CALL XuLf3 

( SIGH ( l . l . LHS) t Y< LU ) . A NGF • 3 • NM 3 

, 

1.3. 

i . 1 > 


0 

4444 



CALL HU 1 1ft 

( j « l * A NG F « Hull* »UUM iCUM ) 





0 

4445 



CALL MUL T 3 

(ROTF .KH( i .1.LK1), fth( l,l.LH3),3 

• 


J * J # -> 

) 

0 

4446 



CO 1 2 J = l . 3 






0 

4447 


1 2 

CH ( J ,UJJ ) = 

Dili J • Lu 1 ) * DF ( J ) 





c 

4448 

c 








0 

4449 

c 


GO 1C 20 1 F 

BODY CONTAIN I No P FRAME RIGID 





c 

4450 


t 5 

IF ( NMH .EG* 

0) GU TO 20 





0 

4451 

c 








0 

4452 

c 


ACCULNT FOR 

BOuY FLEXiUlLlTY 1C GFI T POSITiJN 

J .-1 ( L U «♦ ) 

ANO 

0 

4453 

c 


ORIENTATION HHCLK4) OF P FRAME AT HlNGi 

i 

■u R T 

i Ti> 

BODY FRAME 

0 

4454 



LU - LOCU( NOI5P + NB ) 





0 

4455 



LHS - 2*1 ~ 

2 





0 

4456 



CALL M u L T 3 

( HATH ( 1 , 1 ♦ LHS) • Y( LU ) .OF.3.NMP, 1 

• 

3 » 1 • 

1 J 


0 

4457 



CALL MuL 13 

( S 1 GH ( l , l , lH S ) • Y { L U ) • A NGF , 3 . NM J 

t 

1.3. 

i . 1 ) 


0 

4458 



CALL ft U 1 I ft 

(3*1* «NGF * Ru 1 F . DUM • CUM ) 





0 

4459 



CALL MULT 3 

( RUTF iKH l l .1 « L K 2 ) » RH ( 1 , l,LR4),j 

• 

J* j » 

Ji j 

) 

0 

4460 



00 17 J - t . J 






0 

4461 


1 7 

CH l J * LU 4 ) = 

DHC J *Lu2 ) *■ DF ( J ) 





0 

4462 

c 








0 

4463 


2 C 

CO 2 f J = l • 3 






0 

4464 



jp 3 = J +3 






0 

4 465 



*NGF ( J ) - GeTAM( J , l ) 





0 

4466 


25 

OH l J *L J'j ) = 

t;C T AHl JP 3 . I ) 





0 

4467 



IT = I H U A T A ( 

1. 1 ) 





0 

4468 

c 








0 

4469 

c 


ACCOUNT FOR 

Pt_l_ATiVc luiv ddTwtlEfs P ANO j 


F K A A E o AT 

HINGE I 

0 

44 70 


4471 

4472 

4473 

4474 

4475 


0 4476 


* L)t- ( J ) - AN GF ( J ) 


4477 

4478 
4 479 

4480 

4481 

4482 
4 4 83 

4484 

4485 

4486 

4487 

4488 

4489 

4490 

4491 

4492 

4493 

4494 

4495 
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c 

i o Con t l.vut 

C ALL RELATIVE PUS ill UN AND Of? I E N T A T l CN uhTa uF P-U FRAME AT 

C EACH HiNuE POINT OJMPOTcD AND STORED IN uri ANJ RH ARRAYS 

C 

c 

c 

C PfOUitO TO COMPUTE: 

C RUL(K) ROTATION TRANSF CRM AT ICN MATRIX uUDY K FIXED AXIS 

C TO l NfcR 1 1 AL AXIS 

C COL(K) PObiTIJN VcClLR FROM INERTIAL J.RIGIN TO BODY 

C K FIAcD REFERENCE 

CG 4 t J= l * 3 
JP 2 = J ♦ 3 

COL(J.i) = BET AH < JP3 * I ) 

45 AnGF(j) = GLTAH(J.i) 

IT = I hC AT A( l • 1 ) 

CALL ROT TR ( 3 . 1 T . aNGF , K OL l 1 . I * l ) . DU.V * DUM) 

CALL GGTTR ( I , I TtANoF.HINU . i » l I ,KP2U , 1 . i ) .«P j( I . 1 » 1 ) ) 

C 

CO SC J -2 t NH 

MJ F = l TLPw ( l # J > 

LROJ = HOP* 12* J) 

IF ( NOH .LT. 0) GU TO i>2 
LR6 = O'MNOH - l) 

IRO - l TCPOL l 2. NOH) 

CALL MULT3 (H0L( 1*1 , LhO ) *KHC 1 t l . L R6 > . R0L4 A i l . lRD J ) .3 , 3 »3, 3 ,3 » 3 ) 
GO TC SO 
5 2 NOP s — NGH 

LRC - o*(NOM - l> 

LR 0 = l TCPOL ( 1 . NOH) 

CO 52 1=1.3 
CO S3 L = l . 3 

5 2 Pw ( i .L ) = RH (L, l * LR6 ) 

CALL MULT3 ( R CL ( 1.1.LR0) *RW »HOL( 1*1.LR0J>.3.3»3*3»3.3) 

SO CONTINUE 
C 

DO 6 C J=2.NH 

LR 0 = A TCPOL ( 2, J) 

LOt = 7* ( J-l ) - 1 

LD 7 = LDfc ♦ i 

60 CALL MULT 3 ( ROL (1 . 1 . LRO ) . DM ( 1 . LD6 ) . DH ( l .u j 7 ) . J . 3 . 1 • 3 . 3 . 3 ) 

C 

CO 7 C J-2.NH 
NOH = ITOPW(I.J) 

LD C J = l TOPJif ( 2* J ) 

IF (NOH .LT. 0). GU TO 72 
LD 7 = 7*(NUH - 1) 

LDO = l TCPOL ( 2. NOH) 

CO 7 4 i = 1. 3 

74 DOL 4 I iLUO J ) = D 0 L ( I • LD 0 ) + DH< I.LD7) 

GO TC 70 

72 NQH = - NOH 

LO 7 = 7 ♦ (NOH - l> 

LDO = I TCPOL ( 1 .-NOH) 

CO 7 3 l = I . 3 

73 C0L< I.LDCJ) = DOL(i.LDO) - OHU.LD7) 

70 CC NT INUE 

C 

IF ( .NCT . Lt GU ) RETJRN 


0 4496 
0 4497 
C 4490 
0 4499 
0 4500 
0 4501 
C 4502 
0 4503 
0 4504 
C 4505 
C 4506 
0 4507 
0 4508 
0 4509 
0 4510 
0 451 1 
0 4512 
0 4513 
0 4514 
0 4515 
0 4516 
0 4517 
C 4518 
0 4519 
0 4520 
C 4521 
0 4522 
C 4523 
0 4524 
0 4525 
0 4526 
0 452 7 
0 4528 
0 4529 
0 4530 
0 4531 
0 4532 
0 4533 
0 4534 
C 4535 
0 4536 
C 4537 
0 4538 
0 4539 
0 4540 
0 4541 
0 4542 
C 4543 
0 4544 
C 4545 
0 4546 
0 4547 
0 4548 
0 4549 
0 4550 
0 4551 
0 4552 
0 4553 
0 4554 
0 4555 
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11 = c* ( NH-1 ) 0 4556 

12 = 7* i KH- l ) 0 4557 

WRITEINCT. 1002) ( I . ( ( RH( J . L . I > , J= 1 , 3 > . L = l . J > . I = i , I 1 ) 0 4558 

WRITE (NOT* 10 03) ( i . ( DH < J . I ) . J= i .3) . 1 = 1 . 12) 0 4559 

WR I TE (NOT , 10 04 ) ( I • < ( P IN ( J . E » I ) * J- 1 . 3 > • L = l • 3 ) . I = 1 * NM) 0 4560 

WRITEINCT. 10051 ( 1 • ( l ft OL ( J . L • I ) . J= l • 3 ) . L= l . 3) . i = l • NN ) 0 4561 

WR IT6 (NUT « 1006) ( I • ( J0L( J« i ) » J = l • 3 ) *1=1* NH ) 0 4562 

WMITEINCT* 10071 (I,UkP2(J.L,I ).J=1.3)«L = l,j),I = i,NH) 0 4563 


WH I T £ { inC T . 10 06) ( I »( IKP3I J»Lt I ) . J— l * 3 ) «L=l » jit 1 = 1 iNH) C 4564 

10 0 2 FURM/T (IX. • RH(*,12.*) =*.IP9D11.3) 0 4565 

1003 FORM A T ( lx . • DH(*. 12.*) =*.IPJD11.3) 0 4566 

1004 FORM t T (IX.* P1N(*,12.*> = * • 1 P 90 1 1 .3) 0 4567 

1005 FORMAT (lx.* ROL (*.12. •) =*.IP9C11.3) 0 4568 

1 0 C 6 FORMAT (IX.* OOL ( * . 1 2 . * ) =*,1P3D1I.3> 0 4569 

1 0 C 7 FORMAT (IX.* KP2 ( * . I 2 . * > ='.1P9D11.3) 0 4570 

10C6 FORM A T (IX.* RP3 ( * • l 2 . * ) - • • l P <50 1 l • 3 ) 0 4571 

RETURN 0 4572 

C 0 4573 

999 WRITE (NLT.20G1) 0 4574 

200 1 FORMAT ( 1H 1 . 22 HT OPULUG Y ERROR. ITOFCL) 0 4575 

STOP 0 4576 

C 0 4577 

END 0 4578 


C 

c 

c 

c 

c 

c 


c 

c 


SUORCUTINE B HOC NR 

DEBUG ft 45 

USED TU GtNtkAI t_ ELEMENTS WhICH DEFINE HINji POINT 
K 1 NE MAT I L 5 VUL I.PAbE 36 

IMPLICIT RLAL*6( A-H. U-2) 


COMMON /BHoSRD / 

* dil ( c • ib • I 1 J . Ub ( 6 . I o . 1 5 ) . R OL ( 3 . 3 . 6)»3 jL(3. 6) 

COMMON /HANDS / 

* 1-AThU, 12. 10). SIGH (3. 12.1 0>*HATS(3*12 . 15) .51Gb(3.l2.15) 

COMMON /MAX MUM/ 

* NuMAX iNriMAX .NSPMA X . NM ft MA X . NMWL30D . NMJjUD . xMU • KY • KU 

CUMMGN /NUM6RS/ 

* 4k 0 .ONE • TWO • IRE S 

COMM UN /Pi NKP / 

* P l N ( 3 • 3 * 6). kP2( 3*3. 6). FP3<3.3. o> 

COMMON /SPECIF/ 

* Uc T AH ( 6 * o ) . tiL T AHU ( o * 6>*A,V0(2. 5) * Rri ( 3.3 .30) »K3(3.3.30) . 

* JH ( 3 . JS 1 • U S ( 3 . 3 0 ) . 1 MG ( j. S)»NM0W(6. al « 1*1 iMv>( Is) . 

* Nb .f\H *NSPl .NCF MO. NJfcLl A •( TCPOL ( 2 . 6).iRGF_X( o). IHDATA(7, 6). 

* LuCK 14 ) • LLNJl 14) .NU.NUET A « NL AM . NE Q 

C l ME Nil LN Wi(3«3).W2(J.3) 

CA TA I l ST /0 / 

CATA NOT/6 / 

LOGICAL OcBUG.LEUU 

COMMCN /LUEoUG/ 0EuUG( 120) 

eauiVALENCE (LoQU .i>EUJG( 4b ) ) 


0 4579 
0 4580 
0 4581 
0 4582 
0 4583 
0 4584 
0 4585 
0 4586 
0 4587 
2 4588 
0 4589 
4 4590 
0 4591 
0 4592 
0 4593 
C 4594 
0 4595 

13 4596 
0 4597 

16 4598 

17 4599 

18 4600 

19 4601 
C 4602 
C 4603 
0 4604 
0 4605 
C 4606 
0 4607 
0 4608 
0 4609 
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IF1LE0U) WHl Th INGT.lOOOl 
1000 FORMAT (• SUBROUTINE BHGENR <1 
C 

IF 1 1 1ST * EQ • 1> GO TO 100 
11 ST - 1 

LR = 24KFMAX - 1 

JR = 6 + NMD BOO 
CO S L=1.LR 
00 5 1=1,0 
CO 5 J=1,JR 
5 EHll.J.Ll = 2RO 
C 

IOC 00 1C 1=1,3 
IP 3 = 1 + 3 

CO 1C J=l,3 
JP3 = J + 3 

EH (I , J , 1 ) = PIN! I ,J, l 1 
1C EH< I F3, JP3. 1 1 - KOUl.J.l) 

C 

CO 2C 0=2, NH 
LQ = 2*L - 2 
LP = LG + 1 

C 

C LC = C,+,(3,a,, 

C L P = H,b* /,,«• 

C QHLP1 = EQUATION 11-62, VOL 1 

C BF1LQ) = EQUATION 11-63. VOL 1 

C 

LR 3 = 6*<L-2 ) + 3 

LR A = LH3 + 1 

LR 5 = LR 3 +- 2 

L03 = 7 * (L — 2 ) + 3 

LD4 x L 03 + 1 

CO 2S 1=1,3 

00 2 5 J = 1 , 3 

* l < J . I » = RH < I , J ,LKJ) 

M2 ( J , 1 1 = RH1 I . J.LR51 

25 EHI J +3 , I +3.LP) = -RH11,J,LR41 

CALL MULT3 <RH( 1 , 1 ,LR3) .,1 ,UH (4,4 ,LU) , 3, 3.3,3, 3 ,o> 

CALL MULT3 IP IN I l . 1 , L ) , Ml • BH ( 1 , 1 .LQ > , 3 , 3, J ,3, 3 , o ) 

CALL MJLT3 ( W2 , UHl 4 , 4 ,LP) . « l . 3 ,3 , 3,3. 6 ,3) 

CALL NULT3 lPlNU,l,L),*l.bHll,l,LP>,3,3.3.3.3.6» 

CALL SKt WV3 10H1 1.L031 , nil, 3. 3) 

CALL SKEMV3 ( OH l 1 , L04 J , » 2 .3 . 3 » 

CALL MQLT3 (BH< 4,4, LQJ ,»1 ,BH< 4, l ,LQI .3,3. 3,6,3.61 
CALL MJLT3 (DHI 4.4 ,LP ) , V»2.BH( 4, l ,LP1 .3 ,3. 3 .6. 3 ,61 
KG 30 = IToPClLll.Ll 
NO OP = 1 1 UPuL 1 2 , L 1 

KMC = IHGFLX1N06Q) 

KMP = IRGFLAINUBP) 

C 

C IS U-FRAME IN A RIGIU UGDY7 

IF (KMO .EQ. 01 GU TO 30 
LHS = 2*L - 3 

CALL MuL 13 <3H< 1 . 1 . LQ 1 . SIGHI I . I ,LHSI . BHI I , 7 Q 1 ,3.3.NMQ,6,3,6I 
CALL MpLT3 I BH I 4 , 4 , L O J . HA TH < 1 . I , L HS ) , BH ( + , 7 , _ Q ) . 3 , 3 , NM Q , 6 . 3 • fc ) 
C 

C IS P— FRAME IN A RIGIU B0UY7 

30 IF (KMP .EQ. 0) GO 10 20 
LHS = 2*L - 2 


0 4610 
0 461 1 
0 4612 
0 4613 
0 4614 
0 4615 
0 4616 
0 4617 
0 46 1 6 
0 4619 
0 4620 
0 4621 
0 4622 
0 4623 
0 4624 
0 4625 
0 4626 
0 4627 
0 4628 
0 4629 
0 4630 
0 4631 
0 4632 
0 4633 
0 4634 
C 4635 
0 4636 
0 4637 
0 4638 
0 4639 
0 4640 
0 4641 
0 4642 
0 4643 
0 4644 
0 4645 
0 4646 
0 4647 
0 4648 
C 4649 
0 4650 
0 4651 
0 4652 
0 4653 
0 4654 
0 4655 
0 4656 
0 4657 
0 4658 
0 4659 
0 4660 
0 4661 
0 4662 
0 4663 
0 4664 
0 4665 
0 4666 
0 4667 
0 4668 
C 4669 
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CALL ^UL T 3 (i)H( 1 , 1 .L 3 ) > 51 GHt I . I ,LHS ) . 8H( I , / 3 ) , j , J.NMP.6 . 3.6) 0 46/0 

CALL MuL r 3 tUHI4,4,LAl .hAlll( I . 1 .LHS ) . BH( », 7 . J. J .MMP.6 .3.6) 0 46/1 

2C CL N T 1 NO c 0 46/2 

C 0 46/3 

IK ( . NUT .LLUU ) RETURN 0 46/4 

L'lX - ^<NI-1 0 46/6 

LM Y = OXMWlJCD 0 46/6 

L'U 4 C L=l,LMX 0 46// 

■*ime (iscr.ioui) l o 46/8 

1001 FORMAT! • EiM( 15 *) 0 4679 

40 CALL VIK 1 TLSl L1HC l . I .L > .6 .LMY.o) 0 4680 

Mii T U F N C 4681 

ENG 0 4682 


tUFRCUf Ul kCTUS 

C DEBUG » 46 

c 

C CCMPuTE K 5 ROTATluN 1 KA N SF C KM A T I CN HEflittN iENSUK AXIS SYSTEM 

G A,\ C GCUY FIXED AXIS SYSIEM VCL II. PAGE 19 

C NOTHING DONE IF SEN SG R U< RIGID HCOY 

IMPLICIT t<LAL*8( A-H.U-L) 

C 

CCJMMGN /HANDS / 

* HATFIJ, 12.10>.S1^m(5.12.10>.HAT5(3.1^.15).SIgS(3.1£.I5> 

COMMON /SPECIF/ 

A OLTAHlO, fa) .dLTAHOl o» 6).AMG(2. 5 ), RHI 3 , 3 , 30 ), kS I 3 , 3 , 3 0 ) * 

* JHt 5,56 ) .OS ( 3.30) . I Mul 3 ■ SI.NM0M6. 5 I , 1 - I SMk ( 1 3 I , 

* NO ,NH ,NSPT .NGF MO. NDELTA. I TCPOL ( 2 . 6),IHGrLXt o),IHDATA(/. t) 

* LUCU 14 > .LENUl 14) .NO.N3ET A.NLAM.NEO 

COMMON /VECTOR/ 

* Y l 2SO > . YOVI 250) 

C 

CATA NOT/6 / 

LOGICAL CEBUG.LEOU 

CO MM C N /LUEDUG/ OE60G1120) 

EQUIVALENCE ( Lt'Q U . Ul BUG! 4o ) ) 

D l ME l> S l L N OF < 3 ) . AF ( 3 ) , kF I 3 . 3 ) 

C 

IF. (Levi j) Wki TEINOT , 1000) 

CO l C L = 1 , NSPT 
NO 0 — IFTSMW(L). 

IF < IRGFLXINOG) .EO. 0) Go TO 10 
LR 1 = 24L - 1 

LR 2 = Lhl + I 

LO = LUCLl Ntl FN08 ) 

LE = LENUl NO KNOB ) 

CALL MULT3 < HATS! I , l . L ) . Y ( LO) .OF , 3 .LE . 1 .3 . 1 , I > 
call MUL 1 3 ISIGSI l , l ,LI .YILO) .AF.3.LE , 1 .3. I ,1 ) 

CALL RuTTR { 3. 1 . AF.KP , OOM.DOM) 

CALL MULT3 IKK, RSI l . 1 ,lRI > .RS ( 1 . I .LR2 ) ,3.3 .3. 3. 3. 3) 

CO IS 1-1,3 

IS 0SII.LR2) = JS< I ,Lkl ) ♦ OF 111 

C 

10 CENT INUE 

IF ( . NOT .LEOU I RETURN 


0 

4683 

0 

4684 

0 

4665 

c 

4686 

0 

4687 

0 

4688 

0 

4689 

0 

4690 

0 

469 l 

4 

4692 

0 

4693 

1 6 

4694 

1 7 

4695 

1 6 

4696 

i 9 

4697 

0 

4698 

20 

4699 

C 

4700 

c 

4701 

0 

4702 

0 

4 7 03 

0 

4704 

0 

4705 

0 

4706 

c 

4707 

0 

4708 

0 

4709 

0 

4710 

0 

471 1 

0 

47 12 

0 

4713 

0 

4714 

0 

4715 

0 

4716 

0 

47 17 

0 

4718 

0 

4719 

0 

4720 

0 

4721 

0 

4722 

0 

4723 
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I 1 = 2*NSPT 0 4724 

VkR I T E ( NUT t 1 0 02 ) ( 4 ♦ 1 ( KS ( J . L • I ) • J- l . 3 ) • L=l • 3 ) • 1 = 1 . I 1 i 0 4725 

WRIT£(NLT#10 03 ) ( i • ( D 5 ( J • I ) • J - l . 3 ) • I = l * I 1 ) 0 4726 

10 0C FOKMM (• SUBROUTINE KOTOS ENTERED*) 0 4727 

1002 FORMAT (IX.* RS(*.12.») s* , IP901 I .3) 0 4728 

1003 FORMAT (IX.* 0S(*.12.*J =*.1P3DI1.3) 0 4729 

0 4730 

RETURN C 4731 

ENO 0 4732 


SUER C UT I NC OSGENR 

C DEBUG ft 4 7 

C 

C GET KINEMATICAL COEFFICIENTS FOR ALL SENSOR POINTS 

C SEc VCL 1 I .PAGE 1 7 

C ECUATIONS ANALOGOUS TC THOSE PROGRAMMED IN urtGeNR 

IMPLICIT REAL»8(A-H.0-Z) 

C 

COMMON /6H0SRD/ 

4 8H (6* 16*11) • BSC 6. 16.15) • R OL (3.3. 6).DJi_(J* u) 

COMMON /HANDS / 

* HA TH( 12*10). SIGH( 3. 12*1 0).HATS(3.I2. lS).Sl^*S(3. 12.15) 

COMMON /MAXMUM/ 

* NoMAX.NHMAX.NSPMAX. NM^MAX , N M W 000 . N MDdU D .<MD.KV.KU 

COMMON /NDMBRS/ 

* 2 MU .ONE . TteC * TKES 

COMMON /SPECIF/ 

* EE T AH ( 6 * 6) ,BtTAHO(d. 6).AM0(2. 5 ) , RH ( 3 . 3 . 30 ) . RS ( 3 . 3 • 3 0 ) • 

* OH (S. 35 ) .0S( 3.50) . IMU( 3. 5).NM0W(6, s) .I = TSMM 1») . 

* Nb.NH.NSPT .NUFMO. NDELTA, I TOPOL( 2. 6 >.IRGFl.X( o).IHDATA(7. 6). 

* L OC U( 14 ) . LE NO (14) . NU . Not T A , NL A M . NE 0 
C 

Cl MEhSlCN W ( 3.3) 

C 

CATA IIST / 0 / 

CATA NOT/6/ 

LOGIC Al. DEBUG. LEOU 

COMMON /LUEOUG/ DEoUOi 120 

EGUI V AL EN CE ( LEG U . uL BU o ( 4 7 ) ) 

C 

IF(LECU) ftRI TEiNOT. 1 000) 

1000 FORMAT (• SUBROUTINE oSGENR*) 

IF (IIST .EG. 1) GO TO 20 
C 

JR •= t + NMD OLD 
CO 5 L-1»NSPT 
CO 5 1=1.6 

CO 5 J = l .JR 
S ES(l.J.L) = ZRO 
C 

20 CO 1C L-I.NSPT 
NOB = IF TSMi* (L > 

LE = IKGFLX(NOB) 

IF < L E .EG. 0 .AND. IIST .EG. 1) GO TO 10 
LR 2 = 2 *L 


0 

4733 

0 

4734 

0 

4735 

0 

4736 

0 

4737 

0 

4738 

0 

4 739 

0 

4740 

0 

474 l 

2 

4742 

0 

4743 

4 

4744 

0 

4745 

0 

4746 

0 

4747 

0 

4748 

0 

4749 

16 

4750 

I 7 

4751 

18 

4752 

19 

4753 

C 

4754 

0 

4755 

0 

4 756 

0 

4757 

0 

4758 

0 

4759 

0 

4760 

c 

4761 

0 

4 762 

0 

4763 

0 

4764 

0 

4765 

0 

4 766 

0 

4767 

0 

4 768 

0 

4769 

0 

4770 

0 

4771 

0 

4772 

0 

4773 

0 

4 7 74 

0 

4775 

0 

4776 

0 

4777 


B-86 



CC i: 1=1.3 o 4778 

IP 3 = I + J 0 4779 

CC I S J= 1 » 3 o 4780 

JP3 = J ♦ 3 C 4781 

ES(J.l.L) = RS<I.J.LH2> 0 4782 

IE 6S( JfJ. 1PJ.L I = KSlI.J.LRcJ 0 4783 

CALL SKc«V3 [OSl 1 ,lk2) ,» ,j, j| 0 4734 

CALL HULU (05(l.l.L>.W,BSl4.l.L>.3.3.3.6.3.o) 0 4785 

IF <Lfc .to. 01 CO 10 10 0 4786 

CALL Mu L TO (BS( 1 . 1 • L I .5 I05( 1 . 1 .L > . BS< l . 7. L ) . 3 . 3 .l£.o .3 ,6) 0 4787 

CALL WULT3 IBS! 1 . I .l J . hAf S< 1 , 1 ,L » . JSl 4 . 7. L > , 3 , 3 ,l£ • o. 3 ,6 ) 0 4788 

10 CONTINUE 0 4789 

C 0 4790 

I l ST = 1 0 479 I 

IF < .NOT .LEOUI RETURN 0 4792 

LM V = o*NMUB0D 0 4793 

CO 2f L=l.NSPT 0 4794 

«HITE(NCTtl001)L 04 795 

1001 FOKMAT (• dS<*.I2.*) IS •) 0 4796 

25 CALL i.k I TESl U5( 1 , 1 .L ) .C.LMV.6) 0 4797 

RETURN ' 0 4793 

tNC 0 4799 


suepcur ine getbmb 

C DEBUG * 48 

IMPLICIT ReAL*8< A-H. 0-2) 

C 

COMMON /AMocttt / 

* AMU122.22. o ) .bWl 36 , l 1 J > 

COMMON /BHuSRD/' 

* Oil ( 6. 10 . 1 l I . BSI u . la , IE ) ,R OL ( 3 1 3. 6),JJU(3. ol 

COMMON /IVCONS/ 

* I v 1 e, o ) 

COMM UN / M AXM UM / 

* NEMAN . NHMAX . NjPMA X , Ni-luMA X ,NMV> OGD . NMDBUU .KA'^tKITiXU 

Common /numokS/ 

* 2RC .ONE . TWO , TkES 

COMMON / SPLC IF/ 

* U E I AH l 6 . oI.BcTAHOlo, G),AMC(2, 5 > . R 11 1 3 , 3 . 30 > . KS ( 3 , 3 , 3 C > . 

* OH I 3. 35 I .DS( 3 .30 I . I MUl J . 5I.NM0M6, ul . 1 = I _>M« l 15). 

* NB ,NH .N5PT .NUF MG, NDcLTA, I TCPCIL (2. 6>,1RGFLX( 6J.IHCATAI7, t>. 

* LUCE I 14 ) .LENUI 14> .NO.NoETA.NLAV.NEQ 
C 

DIMENSION UMUI36, 36) .UMl 6. 22. 1 I ) . I I OP l 6, o).*k(lo) 

EQUIVALENCE ( E3W < 1 ) . OMJ (1)}, < EM l 297) . 3M( 1 ) ) 

CATA NUI76 / 

LOGICAL DEBUG. LEGU 
COMMON /LDEBUG/ DeoUG'I 120) 

EQUIVALENCE (LEQU.PEUUGl 43 ) > 

CATA II ST / 0 / 

IFILEQU) WRI Tb ( NO I . I 0 J 0 ) 

1000 FORMAT (• SUBROUTINE GETBMB*) 

IF (I 1ST .EG. 1) GU TO l 00 


0 4800 
0 4801 
0 4802 
0 4803 

0 4804 

1 4005 
0 4806 

2 4807 
0 4808 
9 4809 
0 4810 
0 481 1 
0 4312 
C 4813 
0 4314 

16 4815 

17 4816 

18 4817 

19 4818 
0 4819 

82 4820 
77 4821 
0 4822 
0 4823 
0 4824 
0 4825 
0 4826 
0 4827 
0 4828 
0 4829 
0 4830 
0 4831 
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n n n n r> n r> n n o 


5 


c 

c 


7 


1C 


cc 

100 


c 


20 

c 


25 

C 


[1ST- 1 




0 

4832 

CO 5 l—l #NH 




0 

4833 

CO b J= 1 |NB 




0 

4834 

IT CP ( l • J ) = 0 




0 

4835 

1 TCP C l , 1 ) = 1 




0 

4836 

DO 3 1-1*6 




0 

4837 

CO 3 J- 1 ,NH 




0 

4838 

IV ( I . J ) = 0 




0 

4839 





0 

4840 

LCAl) IV ARRAY. uSEU Tti SIuNAL CONSTRAIN! CUND1TIUN 



0 

4841 

1C = 0 




0 

4842 

CO 7 J= 1 #NH 




0 

4843 

DO 7 1=1,6 




c 

4844 

IP l - l + 1 




0 

4845 

IF ( IHDATA! I PI. J > ,EQ. 0) GO TO 7 




0 

4846 

IC = IC ♦ l 




0 

4847 

I V I I , J ) = IC 




0 

4848 

CONTINUE 




0 

4849 





c 

4650 

IICP ARRAY USED TO FIND STORAGE LOCATION IN 

OH ARRAY FOR 


0 

4851 

PARTICULAR VELOCITY T R AN SFQfi MA T I C NS , EUJATIUNS 11- 

62.63 VOL l 

0 

4852 

I TOP I L . NO 1 = STORAGE LOCATICN FOR 0 FRAME AT 

HI NOc 

L 800 Y 

NQ 

0 

4853 

ITOP(L.NP) = STORAGE LOCATICN FOR P FRAME A! 

H 1 Nbd 

L 0GOY 

NP 

0 

48 54 

DO 1C L=2.NH 




0 

4855 

LQ = 2*L - 2 




0 

4856 

LP = LO ♦ l 




0 

4857 

NO = IT GFOLI 1 ,L) 




0 

4858 

NP = ITCPOLI2.L) 




0 

4859 

ITOPIL.NGI - LQ 




0 

4860 

ITCPIL.NFJ = LP 




c 

486 l 





0 

4862 

SELECTIVE ROW MULTIPLICATIONS USED TO CUMPUT 

£ 



0 

4863 

ti me = a * m * * i — i ) * e**T 




c 

4864 

TFIS MATRIX USED IN EQUATION I I -fc TO FIND _A 

v>RAN JE 

MULTIPLIERS 

0 

4865 

SEE PAGE J7.VOL I 




0 

4866 

SAVE EM = B * NEEDED FOR EQUATION 11 

-t j EVALUATION 


0 

4667 

LEO - o * IRGFLXI l ) 




0 

4868 

LMG = LENUt 1 ) 




0 

4869 

call mltsr < bh, amu. om ,leq. lmo , i , i v.kmu ) 




0 

4870 





0 

4871 

CO 2C L = 2.N!I 




0 

4872 

NCEQ ••= l TOPOL! 1 ,L) 




0 

4873 

NC FP = I 1 OPOt_ ( 2 , L I 




0 

4874 

LEC - IRGFLX(NUUO) F a 




0 

4675 

LEF = IRGFLX(NODP) * a 




0 

4876 

CMC - LcNO(NOBQ) 




0 

4877 

LIMP = LLNUlNOdP) 




0 

4878 

LQ = 2«L - 2 




0 

4879 

LP = LU F l 




0 

4680 

CALL MLTSR ( BH( I , 1 ,LQ I . AMU( I . 1 .NOBQ ) ,<3M( I , l ,L J I 

* LCD * LMQ *L • I V • 

KM U ) 

0 

4881 

CALL MLTSR ( BH ( l , 1 ,LP ) , AMUl 1 . 1 .NOBP ) ,t)M( l , l ,L? ) 

.LiP.LMP.L, I V* 

KMt) 

0 

4882 

CON T I NOE 




c 

4883 





0 

4884 

CO 2 E 1=1, NIL AM 




0 

4805 

DO 2E J=I,NLAM 




0 

4886 

EME! I . J ) = ZRO 




0 

4887 





0 

4880 

CO 3 C N=l,NB 




0 

4869 

LE = IRGFLXI N) F 6 




0 

4890 

II 

J 

Mil 

n 

a 

a 




c 

4891 
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r> n n 


IF 

( I rup ( L 

• N ) 

• EO . 

0 ) 

oL» 1 L 

35 

CO 

4 C I ~L. 

NH 





IF 

( ) T li P ( i 

. N J 

• E 0 • 

0 ) 

GU 1 0 

*0 


L B t* = l T UP l L * N ) 

L3 1 = l TCP l 1 .N) 

CC 3C M ^ 1*0 
NL = I V ( ^ , L ) 

IF { NL *CG . 0 ) OU T U 50 

CO =>e ^1,U 
tt *R ( K ) =■ bM ( M »K*LBM) 

CO OC J* 1.0 
Jl = l V ( j , I ) 

IF { - I . LT . ML ) o C TO 60 

S = 2 «U 
CG t t K^i.lE 

66 £ = S W« (K ) *dH ( J *K ,Lt>T ) 

EM 8 ( NC ♦ 4 I ) = BMB(ML.Jl) + S 

60 CG NT I NU L 
5 C CONT IN'Ju 
4C COM INJt 
36 CUN T I Nut. 

30 COM INJu 

IF ( • I s GT *LE Ciu > RETURN 
V\R l TE ( NCT ,1001) 

100 1 FORMAT (• THE BMU ARRAY IS •) 
L0 9 * o*NMMAX 

CALL VKK l TCS( OMU * NLAM . NLAM.L09 ) 

RETURN 

ENC 


0 4892 
0 4893 
0 4894 
0 4Q95 
0 4896 
0 4897 
0 4898 
0 4899 
0 4900 
0 4901 
0 4902 
0 4903 
0 4904 
C 4905 
0 4906 
C 4907 
0 4908 
0 4909 
0 49 10 
C 4911 
0 4912 
0 4913 
0 4914 
0 4915 
0 4916 
0 4917 
0 4918 
0 4919 
0 4920 
0 4921 


C 

C 


SU6R C L T I Nth. MGEN 

DEBUG # 49 

GENERATE DEFlRMATIUN UlPlNOE NT MASS MAI < l K CONTAINED IN 
ECoAlION 11-86 VOL l VIA EQUATICNS lI-o7.63.6v 
IMPLICIT RLAL*6( A-h. (J-2 ) 


COMMON /AMUOW / 

* AMU(22,22. 6 ) . dw( 36 * 1 1 3) 

CCMMCN /bHUSRD/ 

+ OH ( 6 « 16 « 1 l ) • dzt ( 0*16*1 oJ «R0L<3«3* 6),00L(3* o) 

COMMON /GOSAVb/ 

* G JS ( 12. 9* 6 ) 

COMMON /INTGRl/ 

* AM (17 1* 6) * ACUF < 9 • 1 2 . 6 > . 0CCF { 6 , 1 2 . o). 

* COF 1 1 ( 1 2 • 1 2 t o) . COP 22( 12. 12* 6)*COF33l 12*12* b ) , AK ( 1 2 • 1 2 * 6). 

* CUF 12(12*12* o) , COF 13 ( 12. 12. 6 ) * CCF 2 j ( 1 2 . 1 2 . o J • AO ( 1 2 • 1 2 • 6)* 

* COP >Y (12*12* o) .COF AZ ( 12 . I 2 . 6 )* C OF TZ ( l 2. 1 2. 6) 

COMMON / M AXMUM / 

* NUMAX .NHMAX . NSPMAX. NM W M A X . NM W GOD • NMDbOD *<MU *KY * KU 

CCMMCN /NUMUkS/ 

* 2R0 .ONE . T WO . TRES 

COMMON /SPEC IF/ 

* tib T AH ( o * 6) .dcTAHOIC. 6).AV0(2. 5 1 . RH ( 3 • 3 • 30 J * K3 ( 3 * 3 • 3 0 ) « 


0 4922 
0 4923 
0 4924 
0 4925 
0 4926 
0 4927 

0 4928 
C 4929 

1 4930 
0 4931 

2 4932 
0 4933 

3 4934 
0 4935 

5 4936 

6 4937 

7 4938 
6 4939 
0 4940 
0 4941 
0 4942 
C 4943 
0 4944 

16 4945 
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r» n 


* CHl 2,35) |DS( 3,30) ,IK01 3, 5J.NMCU16, o) ,lFISM<{li). 

* Nd.NFl.N3PT .NuFMU.NULLTA, l TCPOL12. 6>.1KUFLX< o),IHDATA(7. c) 

* LUCK 14 ) , L ENU ( 14) , NU.NUET A.NLAM.NEQ 

COMMON /VECTUK/ 

* Y( 250 ) . YDT( 250) 

C 

DIMENSION k, 1 3, 1 2 ) . C W ( 12,3) . V * 1 9 ) .*VI6) 

CATA NUT/ 6 / 

LOGICAL DEBUG, LEQU 
COMMON /LOEbUG/' DEbU U 1 12 0) 

EQUIVALENCE (LE0U,UEBUG(49) ) 

IF(LECU) WRITE! NOT ,1000) 

100C FORMAT (• SUBROUTINE MutN'l 
C 

KM = NMDEUO 
CO 1C N=l,Nb 
LO = LGCU1NU+NT 
LE = LcNUNdTNI 
KNT = J 
NPE = o + LE 
CO £ 1 = 1, NP 6 

CO 12 J=1,NP6 
KNT = KNT + 1 

12 AMUlT.J.N) = AMI KNT , N) 

IF ( LE .£0. 0) GO TO it 0 

CALL MuLTj ( BCOF (1* l.N) , Y ( EO ) ,VW,o,LE,l,u, 1,1 > 

CALL MULT3 l COF l 14 1 , 1 ,N » , Y (LCj ) ,CW( 1 , 1 ) .Lt.LE , 1 . KM , 1 , KM ) 

CALL MULTJ (C0F221 l . 1 ,N > . Y.(LC) > ,CW 1 l ,2 ) .LE.uE. I .KM. I , KM ) 

CALL MULTJ 1 COF 3311 , 1 ,N > • Y 1LO * ,CW< 1 ,3 > ,L=. , LE , 1 ,KM , i , KM ) 

CALL MULTJ IY(LCI,CUF12(1,1,N),RWU,1 ), l.LL.-c.t.KM.J) 

CALL MULTJ ( Y( L0» .COF 1 J( l , l ,N ) ,RW(2. 1 ) . I.lC.l;, l ,KM,3 ) 

CALL MULTJ (Y(LOI,COF2J(l,l,N),KW(3,l I , I..C..L , 1 ,KM, 3) 

PEEL OFF JATA FOR GRAVITY GKAUicNT EFFECTS ON ELASTIC COORDINATES 

CC 0 J=1,LL 
GO S< j , 1 ,N> = CwlJ.il 
GGS1J.2.N) = CW1J.21 
CGS( J, J.Nl = CWl J.J1 
GGS( j , 7 ,N) = RWtl.J) 

GGSt J , 3.N) = RWt 2, J) 

E CGS( J . V , M = RW ( 3, J) 

CALL MULT3 1 Y( LO) ,C w. WVl l > . I ,LE .3. I ,KM. 1) 

CALL MULT3 1RW » Y1L0 1 • kV 14 ) ,3. LE, 1 .3 , l • 1 > 

DO IE 1=1,3 

15 AMU1I.I.N) = AMU 11,1 , N 1 ♦ TWOAVvill) ♦ WVll) 

AMHI.2.N) = AMU11.2.N) - V V, 1 4 ) - WV(4> 

AM LI- 1,3, N) = AMUll.J.N) - V*(5> - WV<5> 

AML(2.J,N) - AMU12.J.M - V» lb) - WVtb) 

CALL MULTJ 1 AC OF 1 1,1 ,NI ,Y1LU) »VW»9,LE» 1,9, 1 ,1) 

CO 17 J = 1 , J 
JP3 = J + J 
CO 17 I = 1, J 
1 J <= J ♦ 3*1 I- l 1 

17 AMUtl.JPJ.N) = AMUll.JPJ.N) F VW11J) 

CALL MULTAO 1 Y( LO) ,COF YZ 1 1 , 1 ,N 1 , AMU ( 1 , 7 , NT , 1 .LE ,Lc, 1 , KM.KMU ) 

CALL MULTAD ( Y ( LO ) . CCF XZ 1 1 . I . N > . AMU 1 2 . 7 , N) . I . _ E . LE . 1 . KK . KMU ) 

CALL MOLTAD 1 Y 1 LO 1 , COF X Y 1 1 , 1 , N ) , A MU 1 3 . 7 , N) . 1 . - E , L E , 1 , KM , KMO 7 


1 7 4946 

1 8 4947 

19 4948 
0 4949 

2 C 4950 
0 4951 

83 4952 
0 4953 
0 4954 
0 4955 
0 4956 
0 4957 
0 4958 
0 4959 
C 4960 
0 4961 
0 4962 
0 4963 
0 4964 
0 4965 
0 4966 
0 4967 
0 4968 
0 4969 
0 4970 
0 4971 
C 4972 
C 4973 
C 4974 
0 4975 
0 4976 
C 4977 
0 4978 
0 4979 
0 4980 
0 4981 
C 4982 
0 4983 
0 4984 
0 4985 
0 4986 
C 4987 
0 4988 
0 4989 
0 4990 
0 4991 
0 4992 
0 <*993 
0 4994 
0 4995 
C 4996 
0 4997 
0 4998 
0 4999 
0 5000 
C 5001 
0 5002 
0 5003 
C 5004 
0 5005 
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CALL MOLT 3 ICOF L 21 1 . I ,N > , Y <LU 1 .CM < 1 , 1 > ,LE . LE . I .KM, l , KM > 

CALL MuL T3 { COF 1 3 1 l . 1 . N 1 , Y ( LO ) . C W ( I .2 I ,Lc . LE . 1 . KM , I , KM ) 

CALL MULT3 (C0F231 1 . 1 ,N ) . Y ILO ) .CM ( l , 3 1 ,Lc. LE. 1 ,KN, l ,KM 1 

C 

C FINISH FEELING OFF GRAVITY GRADIENT DATA 
C 

CO 2E J = I . LE 

GGSI J , 4 , N ) = CW( J, 1) 

GGSlJ.s.N) = CM ( J . 2 J 
26 GGS(J.o.N) = CW(J.u) 

C 

C 

C ACCOUNT FOR ALL ACTIVE mhECLS IN BODY N 

GO NMtoVS - NMGMI2.N) 

IF (NMtoVS .EO. 0) GO TO 110 
NMW = NMCW (1 .N). 

LEES = 6 ♦ LE 
NV = 0 

Jl = CEBS + l 
32 = LEGS V NMWVS 
CO 7 C L = 1.NMM 
LP2 = L ♦ 2 
NO MM = NM0MILP2.N) 

IF. IIMU(J.NOMW) .EO. 01 GO TO 70 
C SEE V CL I .PAGE 47. GET ALL RLT 1.1 TERM IN 50 11-109 

C 

NV = NV + I 
LV = c ♦ LE ♦ NV 
NOSP - l NO( 1 ,NUMM 1 
NA = 1M0(2.NCMW) 

AJS = A MC ( 2 . NOM M ) 

00 7f J=l.LEdS 

75 AMU( J ,L- V .N > = A JS*OS( NA . J ,Nu5P > 

CC 7 fc J = J l . J 2 

76 AML(LV.J.N) = ZRC 
AM U( LV iLViW) = AJS 

7 C CONTINUE 

c 

1 10 LEU - LCNUIN1 
CO 7 7 1=1, LEU 

CO 77 J = I , LE U 

77 AMLIJ.I.N) = AMUtl.J.N) 

C 

IF l . NOT .LEOU ) GO 10 20 
toKITE ( NCT , 1 001 ) N 

1001 FORMAT (• AMU, MASS MATRIX FOP BODY", 131 
LOE = u+ NMUdODFNMWuOD 

CALL «P I TES1 AMUl 1 ,1 , N J ,lEU.LEU,L 081 
IF1LE. EC. O) GO TO 20 
MR I T E l NCT , l 002 ) N 

1002 FORMAT 1* GGS. GRAY l 1 Y GRAOIENT EFFECTS ON MUJAL CUUPD1NATES CF BC 

* c y. • , i ;• > 

CALL OPITESI GGS 1 1 . I . N) .LE.S.NMCEUO) 

20 con r inuE 
io con r inuc 
C 

RETURN 

ENO 


C 5006 
0 5007 
0 5008 
C 5009 
0 50 10 
0 501 1 
C 5012 
0 5013 
0 5014 
0 5015 
0 5016 
0 5017 
0 5018 
O 5019 
0 5020 
0 5021 
0 5022 
0 5023 
0 5024 
0 5025 
0 5026 
0 5027 
O 5028 
0 5029 
0 5030 
0 5031 
0 5032 
0 5033 
0 5034 
0 5035 
0 5036 
0 5037 
0 5038 
D 5039 
0 5040 
0 5041 
C 5042 
0 5043 
0 5044 
0 5045 
0 5046 
0 5047 
0 5048 
0 5049 
0 5050 
0 5051 
0 5052 
0 50 53 
0 5054 
0 5055 
0 5056 
C 5057 
0 5058 
0 5059 
0 5060 
0 5061 
C 5062 
0 5063 
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u U U U u u u 


c 


c 


suercutine grvgrd <ggv) 

IMPLICIT HtAL*a( A-H,li-ZI 
LIME (>51 LN GG V( I ) 


DEBUG tt 50 


COMMON /AMUtSW / 

* AMU(22,22. 61 .OW< 36 , 1 l 3) 

COMMON /6HU5RD/ 

* BH16, 18 . 1 1 ) ,BS< 6. 16 . 15 ) .ROL( 3 .3. 6).DJL(3. 6) 

COMMON /GGDA T A/ 

* GAMGI (3 ) .GMAG.RCMAG 

COMMON /GGSAVE/ 

* GGS112.9, 6) 

COMMON /INTGRL/ 

* AMI 171 , 6) . ACL.E ( 9 . 12, 6) , BCOF (6. 12. t> > . 

* COE 111 12.12. oj ,0uE22( 12. 12, fc ) .CGF33 1 12 . I 2 , o ) , AK ( 1 2 . 1 2 , 6), 

* COE 121 1 2. 12, o) .COE 131 12 , 12. 6 > .C OF 23 11 2 . 1 2 . GJ.AD112.12. 61. 

* COFXT1 1 2. 12. 6) .C0FX21 12. 12. 6) .CCFY21 12, 12. 6) 

COMMON /MAXMUM/ 

* NOMAX .NHKAX , NSPMAX . NMwM AX .NMWECO , NMDSDO , AMU .NY , K.U 

COMMON /NUM6R3/ 

* ZHC .ONE . TWO . TkcS 

CGMMGN /SPlCIF/ 

* EE T AH 16, 6).dETAHO( 6. ol.AM0(2. 5 ) , Rrll 3 , 3 . 30 ) . RS 1 3 . 3 , 3 0 ) » 

* Drll 3. 35 J .DS1 3. 30) . 1 MO( 3, 51.NM0W16, u) ,lrlSM*Usl. 

* NO . NH ,N5PT , NUE MO. NDELT A, I TOPOL ( 2. 6). IMGFlXI 6) , IHOATAl 7, 6), 

* LUC 0(14), LEND (14) ,NU. NBE T A . NL AM. NED 

COMMON /VECTOR/ 

* Y( 250 ) . YDT( 26G) 

DIMENSION GAMGL(3).V(3) 

DATA NOT / G / 


LOGICAL debug. lequ 
COMMON /LDEBUG/ DEBUG! 120) 

EQUIVALENCE (LEQU, DEBUG! 50 ) ) 

IF (LEQU ) WRl TE(NGT.IOOO) 

1000 FORMAT! • SUBROUTINE uRVGRu •) 

**** CAUTION WHEN APPLYING GRAVUY GRADIENT CAPABILITY 
***** IT IS NOT APPLICABLE TO all problems 

***** UPDATE UNUcR OEVELOPEMENT , CALL DUDLEY 

FROM 0YNS10: 

GAMGI - UNIT VECTOR IN DIRECTION Ur GRAVITY FIELD INERTIAL 
COGKDI NA 1ES 

GMAG - LOCAL GRAVITATIONAL ACCELERATION 
C RCMAu - RADIUS VECTOR TO VICINITY JF SPACECRAFT 

0 FROM GRAVITY SOURCE 

IF (GMAG .EQ. ZROJ RETURN 
IF (RCMAG .LE. ONE) GO TO SV9 
DO I C N- l . NB 
LOU = LOCU(N) 

LO = LJCU1N+NU) 

LE = LENU(NFNB) 

C 

C EVALUATE CCUATIUN 11-125 FIRST THREE ELEMENTS OF THE 

C CCNIR IBUT AT 1 ON TO THE FORCE VECTOR DUE lu GRAVITY GRADIENT 

C GAMGL - UNIT GRAVITY DIRlCTICN VECTOR LOCAL LOUkDINAIES 

CALU MULT3 (CAMGI.KOL! I . 1 , N ) .GAMGL. I ,3.3,1 .3, 1 ) 

C AML(A.l.N) STARTING LOCMIION FOR FIRST MASS MOMcNT COEFFICIENTS 

CALL MULT3 ( AMU( 4 , 1 ,N ), GAMGL . GGV( LOU) . 3.3 , 1 , CMU . 1 . I ) 

CALL MULIJ { AMU( l .1 . N) .GAMGL . V ,3.3 . I .KKO .1 . I ) 


0 5 064 
0 5065 
0 5066 
0 5067 
C 5068 

0 5069 

1 50 70 
0 5071 

2 6072 
0 5073 
0 5074 
0 5075 

3 5076 
0 5077 

5 5078 

6 5079 

7 50 80 

8 5081 
C 5082 
0 5083 
0 5064 
0 5085 
0 5086 

1 6 5087 

1 7 5088 
ie 5089 
IS 5090 

0 5091 
20 5092 
0 5093 
0 5094 
0 5095 
0 5096 
0 5097 
0 5098 
0 5099 
0 5100 
0 5101 
0 5102 
0 5103 
C 5104 
0 51 05 
0 5106 
0 5107 
0 5108 
0 5109 
0 5110 
0 5111 
O 5112 
0 5113 
0 5114 
0 5115 
C 5116 
0 511 7 
0 5118 
0 5119 
0 5120 
0 5121 
0 5122 
0 5123 
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OGVILCU ) = GMAG*loGl/(LUU ) 

* F f Ft'a* (GaMgL ( 2 ) *Vt 3) - gaMgL ( 31* V(2> ) /RCMAu) 

Go V ( LL’U FI) = GMAG*iGGV (LUJ* L ) 

* F I FEo * (oAMCLt 3 )*V( l ) - GAMGL ( 1 ) * V< 2) ) /REMAol 

CGVILUUF2) = uMAJ*lGGViLCG*21 

* F T REg* (GAMGL! 1 ) *V C 21 - GAMGL < 2) * V ( 1 ) ) /R,_WAg) 

C 

c get sec on o thro , tgnms olfueo by couArioN 11-120 

C PICK cor .MASS MLMc.NI aUlFFICIEMIS 

V l l ) = A NU l 3 . 5 . N ) 

Vl 2 ) - AWU .b,H) 

A, C 3 I = A MJ t 2 . A , M 1 
S = ZRU 

C-CM - -GMAG*AMU( 4. A, N) 

OCR = -GMAG/RC.MAG 
LUP2 - LCU F 2 
EG 2 C 1=1.3 

CG V ( L UP 2 FI) = CCM*CAMgL11) F GCR*V(I> 

2 C ; = S F OAMuL( 1 )*Vl I ) 

s = -trcs*s*gck 

CO 2E 1=1.3 

25 GGV(L0P2*I) = GGV1LUP2+1) F SAGAMttLl 1 ) 

c 

C GET 3 FI: FORCE DUL TU GRAVITY ACTING 11N THE 3LFURMATICN MOOES 

C LEE ECUAT ION 11-127 

IF ( L E .tO. 0) GO IU 13 
LOPti = LCU + to 

vi i) = gamgl t i ) *rcmag 

V < 2 ) = GAMGL 12 1 *RCN.AG 

V ( 3 ) = GAMGL ( 3 ) *RCMA U 

CALL MOL lo ( V . AMU14 . 7 ,,N > ,GGV(L0P6 > . I , 3.LE, l .K«1U . I 1 
CALL M'JLTAD (AMU17.7 .N I , V(lO> . GGV ( L 0P6 ) .Li , cc . 1 .KMO. I . 1 1 
LOR 5 = LCU F 5 
CO 3 C J=l.Lt 

C-GV(LCPSFJ) = GCR*GCV(LUPaFJ ) 

* F GCR* (bCGF! 1 . J . N) f BC OF ( 2 » J » N) F 3C uF ( 3 . 3 . N ) I /T WO 
3 C CONTINUE 

C 

V(t) = CNE - TW04GAMGL! 1 )*CAMGL< 1 ) 

V ( 2 ) = LNc - TWO »mAMul (2)*uAMGL(2) 

VI 3) = CNfc - T WG*GAMGL < 3 )*G AMGLU ) 

S = TRc S *GMA G/ < T WL*RCMAG ) 

C 

CC AC J=l.LE 

CGV(LGRbFJ) = GGVlLOPbFJ) 

* F E * (V(1J«(8C OF (i.J.N) F CCS(J.l.N)) 

* F V 1 2 ) *1 tiCOF i 2 , J .N ) F GGS1J.2.M) 

* F V ( 3 > v( BCGF (3.J.W) f GGSSJ.3.M ) 

* F T WC*GAMGL ( 1 ) *G AMGL ( 2 ) *( bCUF ( A , J , N) F GGS(J.A.N) F GGS(J.7.N)> 

* F T »C*GAMGL ( 1 >*GAMGL ( j) ♦< BCCF ( 5 . J . M F GoS(u.'S.N) f GGS13.8.N1) 

* F T »C*GAMgL 12 >*GAMGL t J) *(bCOF ( 6 . J .N) f GGS(J.o.N) f GGSU.9.NI I) 

A C CONTINUE 

c 

IF ( . TOT .LEuu ) GU TO 10 
WRITE! NET. 1001) N 

1001 FORMAT (• CONTRIBUTION TO FORCE VECTOR FROM GRAVITY GRADIENT EFFEC 

* IS BCOY • . I 3) 

J = LOPSfLE 

CALL WR 1 Tt S< GGV . 1 . J . I » 
l C CQNT INUc 


0 5124 
0 5125 
0 5126 
0 5127 
0 5128 
0 5129 
0 5130 
C 5131 
0 5132 
0 5133 
0 5 1 3 A 
0 5135 
0 5136 
0 5137 
0 5138 
0 5139 
0 5140 
0 5141 
0 5142 
0 5143 
C 5144 
0 5145 
0 5146 
0 5 147 
0 5 148 
0 5149 
0 5150 
0 5151 
0 5152 
0 5153 
0 5154 
0 5155 
0 5156 
0 5157 
0 5158 
0 5159 
C 5160 
0 5161 
0 5162 
0 5163 
0 5164 
0 5165 
C 5166 
C 5167 
0 5168 
0 5169 
0 5170 
0 5171 
0 51 72 
0 5173 
0 5174 
0 5175 
0 5176 
0 5177 
0 5178 
0 5179 
0 5180 
C 5181 
0 5182 
0 5183 
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RE TURN 


C 

999 WHITE INCT.2001 ) 

20 C 1 FORMAT ( 1H l . 29HRC MAG = 0.* SUBROUTINE GRVGRD) 

5 TOP 
END 


0 5184 
0 5185 
0 5186 
0 5187 
0 5188 
0 5189 


sueRCuiir^e ooorop il .udtg.udtp ) 

C DEBUG t* 5 l 

IMPLICIT REAL*3( A-H.U-Z) 

C 

C GET LCwEft CASE b DOT MATRIX CALLED FOR IN c J . 11-6 

C REFER TU APPENDIX C VOL 1 FOR THEORY AlSO PAGEb J6-38 

C EXIT WITH THE U DOT MATRIX TG BE USED IN L J . ll-o ASSOCIATED 

C WITH BODY L 

C 

CIMEFS1CN BDTOC 6 , 1 > . BDTP (o, 1 ) 

C 

COMMON /UHuSRD/ 

* BH(6« IB • I I ) «tiS( b* Id t 15) «ROL( 3«3* e»)*JJL(3* o) 

COMMON /HANDS / 

* HATH( 3 *12 • 1 0) • S I SH( J • IE . l 0 ) *H ATS! 3 « 12 • lb) »SlGb(3. 12.15) 

COMMON / NUMuR 5/ 

* /NO .ONE * TWO , IHuS 

COMMON /PI NR P / 

* F1M3.3. 6), KP2(3.S. o). RP313.3. 6) 

COMMON / SPEC IF/ 

* Be. T AH ( 6 * U>.BLTAHDl6, o).AMO<2. 5 ) , RH ( 3 • 3 * 3 0 ) ♦ R S ( 3 • 3 • 3 0 ) . 

* CM( 3.35 ) ,DS(J,30) . I MU l 3 * 5>.NM0W<6. 5 ) • I F r 5 MW (15)* 

* Nd * NH • N SPT * NQF MO . NU EL T A • I TGPGL(2. 6 >.IkGFLX( o),IH0ATA(7, 6), 

* LUCK 14 ) «LENU( 1 *♦ ) .NU.NbET A,NL AM.NEQ 

COMMON / VLL T UR / 

* Y ( 250 ) • YOT( 250) 


C 

C l ME NS I ON P I NDT< 3. s) •HXD ON ( 3) * SX0QN(3) . HXJPM( 3 1 , SXDPM( 3 ) ,RQP<3. 3) * 

* RPM<3.3>.RUN{3»J) . RFN (3. 3). HQNI3.3) i DR PJi 3. 3). DR QP( 3.3 > . 

* ORCNl 3* 3) tUKUMt 3,3) .SNG( 3 ,3) .SMP(3, 3) • wuNl J) • wPM ( 3 ) , WPGP ( 3 ) * 

* w 5 K ( 3 * 3 ) . V EC ( 3 ) 

COMMON / M AXMUM / 

* NUMAX » NHMA X * NSPMA X • NM UMAX , NMW EOC .NMDbJD . < * J # K Y »KU 
CATA NUT/6 / 

LOGICAL CEbUG.LEQU 

COMM C N /LUEbUG/ DcoUG( 120) 

EQUIVALENCE ( LE Q U • DE BUG ( 5 1 > ) 

IF(LEQU) Wfti TE1NOT. I 000) 

100C FORMAT (' SUBROUTINE BuOTGP •> 

C 

CO 3 1=1*6 
CO 3 J - 1 »o 
BDTG ( I * J ) = ZRO 
3 EDTP(I.J) = ZRO 

IF ( L .EC* l ) GO TU 100 
C 

CC GET O/CTi PM INVERSE) > 

E2CT = BET AH D ( 2 • L ) 


0 

5190 

0 

5191 

0 

5192 

0 

5193 

0 

5194 

0 

5195 

0 

5196 

0 

5197 

0 

5198 

0 

5199 

0 

5200 

0 

5201 

2 

5202 

0 

5203 

4 

5204 

0 

5205 

0 

5206 

0 

520 7 

13 

5208 

0 

5209 

1 fc 

52 10 

1 7 

521 l 

i e 

5212 

19 

5213 

C 

5214 

20 

5215 

0 

5216 

0 

5217 

0 

5218 

0 

5219 

c 

5220 

0 

5221 

0 

5222 

0 

5223 

0 

5224 

c 

5225 

0 

5226 

0 

5227 

0 

5228 

0 

5229 

0 

5230 

0 

5231 

0 

5232 

0 

5233 

0 

5234 

c 

5235 

0 

5236 

0 

5237 
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E3CT = BETAH013.L) 

CO 5 1=1,3 
CO 5 J= 1 ,3 

S PUUIll.J) = 82 l>T*RP2( 1 . J.L) * 83DT*RP3{ I , J >U 


NO EQ 

= ntiPULii. 

L) 

NG OP 

= ITOP0LI2. 

L > 

LOG = 

c. OCUl NU0O J 

*■ 6 

LOP = 

LOCU1NOOP 1 

*■ b 


C Tic Q-FHAME IS IN BUOY NODO IT HAS LEQ FLEXIBLE BUOY MOOES 

C TFE P-FkAME IS IN BODY NOBP IT HAS LEP FLEXIBLE BODY MODES 

LEC = IRCFLX(NOBO) 

LEF = I kGr LX (NOBP) 

LHSQ = 2*L - 3 

LHSP = LHSO *■ 1 

IF ( Leu .EQ. 31 GO TO 10 

CALL MuL 1 3 ( HA TH ( 1 , 1 . LHSQ ) , Y ( LOQ I .HXDON ,3 , LE3 . 1 .3, 1 , 1 J 

CALL MULT3 ( S I OH (I , 1 , LHSQ ) . Y ( LCQ » . SXDQN ,3 , LcO . 1 , 3 . I , l I 
1C IF (LEP ,EQ. 0) GO TO 20 

CALL MULT3 (HATH ( 1 , I , LHSP ) • Y ( LOP) .HXOPM ,3. LEP . 1 . 3 • l , 1 ) 

CALL MULT3 ( S I GH ( 1 . I , LHSP I , Y,( LOP ) .SXDPM ,3 .LEP . 1 , 3. 1 . I 1 
20 LRNQ = 6*(L-2) +• 3 
LRMP = LhNU * l 
LRFQ = LRNQ * 2 
LDXQ = 7 * ( L— 2 ) +■ 3 
LOMP = LCNQ + 1 

CO IE 1=1.3 
DO IE J=1.3 

RQP(l.J) = kHlJ.I.LkPG) 

R0MI.J1 = RH(J.I.LKNO) 

IE RPM(I.J) = KHl J . 1 ,LKMP ) 

CALL MULT3 < RUP .RPM.HOrt * 3,5 ,3 .3* j *3 1 

CALL MUL T J ( RH ( I , 1 , LR Pu 1 * k ON , R R N , 3 « 3 ♦ 3 » 3 • 3 , 3 1 

CALL SKu'AVJ <DH< 1 ,LJNU) ,SNQ,J,2) 

CALL SKEWV3 (OIK 1 .LDMP1 , SMP.3, 3) 

C 

IQ = LUCo(NOUO) - 1 
IP = LOCUNOOPI - 1 
CO 2 E 1=1.3 
«CM I ) = -Yl IQ+I ) 

25 KPMI 11 = Yl IP* 1 ) 

IF (LEQ .EQ. 0) GO TO 20 
CO 27 1=1.3 

2 7 vtQMll = ,.ON(ll - SXQQN(I) 

20 IF (LEP .EQ. 01 GO TU 20 
CO 2 9 1=1,3 

29 ViPMIl = WPM ( I ) * jAL)PM(I) 

2e CALL MeLTJ ( RPM , aFM , WPUP , J , J , I , 3, 1 . 1 1 

CALL MULTAp (RPN.mUN.wPQF. 3,3. 1 .3, l . 1 I 
CALL £KcWV3 nvPOP.tSK, 1,31 

CALL MUL T 3 1 XSK ,HH( 1 . 1 , LRPG) . ORPU . 3 . 3 , 3. p , 3 . 3 1 

00 3 C 1 = 1,3 

CO 3C 3=1,3. _ - 

30 CHCPCI.JI = ORPOIJ.I) 

C 

CALL MJLT3 (DRPQ.kCN.LoTOI 4. A ) .3. 3.3. 3,3. b) 

CALL KuLTJ (DROP, kPM. DRUM. 3. 3 .3.3,3.31 

CALL MOLT3 (PINDT. RQn. BO rti, 3. 3.3. 3.3.61 
IF (LEO .EO. 01 GO 1U 35 

CALL MULTJ (RON .SXUUN . VEC . 3 .3 . 1 .3 , l ,‘l 1 


0 5238 
0 5239 
0 5240 
0 5241 
0 5242 
C 5243 
0 5244 
0 5245 
0 5246 
0 5247 
0 5248 
0 5249 
0 5250 
0 5251 
0 5252 
0 5253 
0 5254 
0 5255 
0 5256 
0 5257 
0 5258 
0 5259 
C 5260 
0 5261 
0 5262 
0 5263 
0 5264 
0 5265 
0 5266 
0 5267 
0 5268 
0 5269 
C 5270 
0 5271 
0 5272 
0 5273 
0 5274 
0 5275 
0 5276 
0 5277 
0 5278 
0 5279 
0 5280 
0 5281 
0 5282 
0 5283 
0 5284 
C 5285 
0 5286 
C 5287 
C 5208 
0 5289 
0 5290 
0 5291 
0 5292 
C 5293 
0 5294 
0 5295 
C 5296 
0 5297 
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CALL SKEWV3' { VEC « wSK ,1,3) 0 5298 

CALL MULT3 (WSK.WUN.ORCIN, 3,3, 3.3. 3,3) 0 5299 

CALL MULTAO (KH( 1 , X . LRPG > ,OKQN , B0T0C4. 4 > ,3 , 3.3. 3. 3, 6) 0 5300 

CALL MULTAO l P1NC 1 . 1 ,L ) . URGN, BDTQ, 3. 3. 3 .3. 3 ,6) 0 5301 

CALL MOL T 3 (BOTCH*, 4) . SNO. BUT C C 4 , 1 >.3. 3.3, o. 3, 6) 0 5302 

CALL SKEWV3 (HXDGN.WSK. 1 ,3) C 5303 

CALL MULTAO (RPN ,WSK ,BOTU( 4 , l ) . 3 , 3 , 3 , 3 . 3 . 6 ) 0 5304 

CALL MULT3 (UOTO.SIGHC 1 , l .LHSO) .BDTQC 1 .7) ,3.3. uEQ.o. 3,6) C 5305 

CALL MULT3 ( BO T 0 ( 4 , 4 ) . H AT h ( 1 , 1 , LH SO ) , DOTS ( 4 , / ) , 3 . 3 . L E Q . 6 , 3 . 6 ) 0 5306 

GO TC 40 0 5307 

35 CALL MULT3 ( BOT 0 ( 4 , 4 ) , SNO , BO T 0 ( 4 . 1 > .3 , 3 . 3. 6, 3 , 6 ) 0 5308 

40 CGNT INUE 0 5309 

C 0 5310 

IF ( LEP .EU. 0) GO TO 50 0 5311 

CALL MOL T 3 ( RPM » SXOPM , VEC ,3, 3,1, 3,1,1 ) 0 5312 


CALL SKEWV3 ( VEC . WSK , 1 ,3 ) 

CALL MULT3 (WSK .RPM.B0TPC4 .4 ) ,3,3 ,3,3. 3.o) 

CALL MOLT3 (PlNOT.RUM .BDTPC 1 . I ) ,3 ,3,3 , 3.3,6) 

CALL MULT3 <BDTP<4, 4 ) .BMP. BOTPC 4 , 1 ) ,3 . 3. 3, 6, 3. 6) 

CALL MULTAO ( ROP , BOT P ( 4 , 4 ) . OR 0 M . 3 ■ 3 ,3 . 3 . 6 . 3 ) 

CALL MULTAO ( P 1 N ( 1 , 1 , L ) , ORO M , a Q T P , 3 . 3 , 3 , 3, 3 , o ) 

CALL SKE WV3 (HXDPM.WSK , 1 ,3) 

CALL MOL T AO < RPM , WSK ,6DTP(4, 1 ) ,3, 3,3,3, 3,0) 

CO 55 1=1.3 

IP2 *1*3 
CO 55 J=l,3 
JP3 =3+3 

□ DTP ( 1 , J ) = -BOTPC t , J) 

6DTP(IP3.J) = — BOTPC IP3.J) 

55 EOTP C IP3.JP3 ) = -BOTPC 1P3.JP3) 

CALL MUL T 3 (BOTPC l . I ) . S1GHC l , 1 .LHSP) . BOT->( l . 7 ) , 3. 3,LtP.b.3.6) 

CALL MULT3 (B0TPC4. 4) .MATHC 1 . 1 ,LHSP) . BOTPC 4 ,7 ) ,3, 3 ,LEP .6.3 .6) 
GO TC 60 

50 CALL NOLT3 ( P (.NOT .RUM , ttOTP . J . 3 , 3 . 3 . 3 , 6 > 

CALL MOLT AO ( P l N ( l . I , L ) . OHUM , 80 TP , 3 , 3 . 3 , 3. 3 . 6 ) 

CO 5£ 1=1.3 

CO 5 6 3=1,3 

56 BDTPCI.3) = -80 TP C 1 » 3 ) 

60 CONTINUE 

IF C . MOT .LEGO ) RETURN 
WR I TEC NUT. 1001) L 

1001 FORMAT (■ BO TP ARRAY HlNGf ,131 
L 1 1 = 6 + LEP 

CALL WRITES! dOTP.O.Ll l .6) 

WR 1 TE (NOT , l 002 ) L 

1002 FORMAT <• BO TQ ARRAY HlNGE',13) 

LI 1 = 6 + LEO 

CALL WR TTESC BOTU .6,L l l .6 ) 

RETURN 

IOC CO 7 C 1 = 1.3 
7 0 .CM 1 ) = - YC 1 ) 

CALL SKEWV3 ( WON , WSK . 1 .3 ) 

CALL M0LT3 (ROL .WSK .BOT UC4 ,4 ) ,3,3 .3 ,3,3,6) 

E2CT = EETAHDC 2.1) 

E30T = EETAHDC3, 1 ) 

CO 75 1=1,3 

CO 75 3=1,3 

75 BOTQCi.3) = B20 T *KPw ( l , 3 , 1 ) + 83DT #RP3 ( I . 3 , 1 ) 


C 5313 
0 5314 
0 5315 
0 5316 
0 5317 
0 5318 
0 5319 
0 5320 
0 5321 
0 5322 
0 5323 
0 5324 
C 5325 
0 5326 
0 5327 
0 5328 
0 5329 
0 5330 
0 5331 
0 5332 
0 5333 
0 5334 
0 5335 
0 5336 
0 5337 
0 5338 
0 5339 
0 5340 
0 5341 
0 5342 
0 5343 
0 5344 
0 5345 
0 5346 
C 5347 
0 5348 
0 5349 
0 5350 
0 5351 
0 5352 
C 5353 
0 5354 
0 5355 
0 5356 
0 5357 
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IF ( • MJ T .LcuU ) RETURN 0 5358 

ViR ITE (NLT . 10 021 L 0 5359 

L 1 1 = o 0 5360 

CALL u.« I TESI <JOro ,6.L I 1 .6 > 0 5361 

RETURN 0 5362 

END 0 5363 


SUBRCU1 INF- BAK3LV ( 3* . NLAM , V . D .K'JIV ) 

C DEBUG # 52 

C 

C LEE DECOMPOSED bMb ANu V TU COMPUTE LA->aANu£ MULTIPLIERS 

IMPLICIT REAL »b ( A-n,u-2 I 
DIMENSION DV« CKUW . I ) . VI 1 > ,Ul 1 I 
CATA NUI/6 / 

LOGICAL ceOUG.LEOU 
CGMMCN /LUtiJ'JG/ OeeUGIIlO) 

EOLI VALENCE ( LEQ U , Ut u J G I 52 I ) 

c 

CG 21 I =2. NLAM 

IM 1 = I - 1 

CG 2f J= l. IM l 

25 VII) - VIII - aW(J.I)*V(J> 

CO 27 I = 1 . NLAM 
27 VIII = V < I )/D( l) 

NL l - NLAM - 1 

DO 3 C l = 1 . NL 1 
L = NLAM - I 
LPl = L + 1 
CO 3 C J=LPI.NLAM 
3 C V(L7 = V<L) - 3to<L.J7*V(J7 
C 

IF I . NO r .LLOU I RETURN 
ftR I T E (NOT . 10 OC I 

100C FORMAT! • LAGRANGE MULTIPLIERS FROM CAKSLV ARE •) 

CALL m'M I TfcSt V. 1 . SlLAM, 1 I 

R6IUFN 

END 


0 5364 
0 5 365 
0 5366 
C 5367 
0 5368 
0 5369 
C 5370 
C 5371 
0 5372 
C 5373 
0 5374 
0 5375 
0 5376 
0 5377 
0 5378 
0 5379 
0 5380 
0 5381 
0 5382 
O 5383 
0 5384 
0 5385 
O 5386 
0 5387 
0 5388 
0 5389 
0 5390 
0 5391 
0 5392 
0 5393 



SUER EUI I Nu SKEWV3I V OKV, HV.KSKV) 

0 5394 

c 


DEBUG * 53 0 5395 

c 


0 5396 

c 

0 V3 — V2 

0 5397 

C 

SKV = -V3 0 VI 

0 5398 

c 

0 

> 

1 

> 

0 5399 

c 


0 5400 


IMPLICIT RLAL*d( A-h, U-2) 

0 5401 

c 


0 5402 


CIVENSICN V( KV* l 1 ,5K VI KSKV . 1 1 

0 5403 

c 


0 5404 


SKVI2.3) - V I I. 1 ) 

0 5405 
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skw.m ) 


V 12, 1 1 

0 

5406 

SKVt 1.2) 


V l 3. 1 ) 

0 

34 0 7 

SK V( ’ ,2) 


-SKV( 2,31 

0 

S408 

SKVt 1,3) 


-SKV{3.1) 

0 

5409 

SKV < l . 1 » 


-SKVt l .2) 

0 

5410 

SKVt 1 . 1 > 


o 

a 

• 

o 

0 

54 1 1 

SK V ( l ,2 ) 

•= 

c 

• 

c 

o 

0 

5412 

SKVt ’,31 


o 

o 

o 

0 

5413 




0 

5414 

PE TUPK 



0 

5415 

END 



0 

5416 


SUBRCLT INC. MUL1 3( A ,b • Z »NRA »NRB ,NCD,KRA , KRu>, KRZ ) 
C 

c 

C CENE PAL MATRIX PRODUCT UP RECTANGULAR MATRICES 

C A ( NR A X NRU) * b( NRci X NCB ) = Z ( NR A X ;xCd) 

C 

IMPLICIT Ft£iAL*3( A— H* U— Z) 

Cl NENSI CN A l KRA , 1 ) ,b (KRU ,1) , Z ( KRZ , i J , WR ( 100 ) 

C 

CG 2 C 1 = 1, NR A 
CO l£ J-i,NRb 
1 £ WR ( J ) = A( l , J) 

CO 2 C J = i , NC B 
S = C .0 c 
CO 3 C K=1,NR8 
3 0 £ = S + V»R (K ) *U( K . J) 

20 Z< 1 , J ) = S 
C 

PETUPN 

END 


0 54 17 

DEBUG #54 0 5418 

0 54 19 
0 5420 
0 5421 
0 5422 
0 5423 
84 5424 
0 5425 
0 5426 
0 5427 
0 5428 
0 5429 
C 5430 
0 5431 
0 5432 
0 5433 
0 5434 
0 5435 
0 5436 


SUERCUTINE MULTAD (A ,6 • Z •NKA,NR8,NC8*KRA,KRii,<RZl 
C 

C M L L T £ PL Y 

C A(NRA.NRB) 4 6 ( N N E , NC R ) 

C ACL) THE RESULT 1U 

C Z(NKA,NkBJ 

C RETURN 

C Z = Z ♦ A * 0 

IMPLICIT REAL 48 ( A— H • (J— Z ) 

DIMENSION A ( KRA , 1 ) ,B<<RB. I ) • Z ( KRZ * 1 > ,WR< 100 ) 

C 

CO 2 C 1-= 1 • NR A 
CO 15 J = 1 » NR B 
15 fcR < J > = A{ I , j) 

DC 2 C J- 1 • NC B 
S - C.D 0 
CC 3 C K= l.NRB 


0 5437 

DEBUG #55 0 5438 

0 5439 
0 5440 
0 5441 
0 5442 
0 5443 
C 5444 
0 5445 
85 5446 
0 5447 
0 5448 
0 5449 
0 5450 
0 5451 
C 5452 
0 5453 
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30 S = 5 ♦- bK IK) 48 ( K • J ) 0 5454 

20 Z(liJ) - 2(1.3) + 6 0 5455 

C 0 5456 

RETURN 0 5457 

END 0 5458 


C 

C 

C 

C 

c 

c 


c 


c 


SU6RCLTINE MLTSK (A# B*’C • LE « LM « L « I V . KMU ) 

DEBUG 0 56 

USED IG PERFORM MATRIX 
C = A * ii 

WFERE 

C(6*LM) = A(o.LE) * E(LE.LM) 

FCR SELECTED WCWS OF C. SELECTION DEFIED ar IV INTEGER ARRAY 
IMPLICIT REAL*b< A-H.U-Z J 

CINErSICN A( 6 . 1 ) . dlKMU. 1 ) ♦ C ( D • 1 ) • I V ( 6 » 1 ) «R * ( la) 


CO 

1 c 

1 = 1.0 

IL 

= 

1V< I.L) 

IF 

( IL • EC • 0) GO 

CO 

I 5 

K= l.Ut 

15 KW ( K ) 

= A< I , K) 

cu 

2C 

J = 1 . L.>1 

s = 

C 

• o c 

CO 

25 

K = l t ut 


25 S - S * RW IK )*B(K, J) 
20 C ( l ♦ J ) = S 
I 0 CONT I NdE 

RE TURK 
ENC 


0 5459 
0 5460 
0 5461 
0 5462 
C 5463 
0 5464 
0 5465 
0 5466 
86 5467 
0 546 8 
0 5469 
0 5470 
0 5471 
0 5472 
0 5473 
0 5474 
0 5475 
0 54 76 
0 5477 
0 5478 
0 5479 
0 5480 
0 5481 
C 5462 


C 


C 


SUER C L T I NE TORQUE ( 6 ) 

IMPLICIT REAL*8( A-h. U-Z ) 
Cl f'E h S 1 LN G( l ) 


DEBUG ft 57 


CL MM CN /OHLSRD/ 

4 d»l ( 6* 18 . I 1 ) . bS( o* 16, 15 ) , K0L (3, 3 . 6>.3JL(3, 6) 

COMMON /GGSaVE/ 

4 G G S ( I 2 . y . 6) 

CCmMCN /1NJCKL/ 

4 AMI I 7 1 » 6) • ACLP ( 9 • l 2 • u) • ECQT ( 6 * I 2 * u) . 

4 CGFUl 12.12. o ) . C OF. 22 1 1 2-» l 2 « 6 ) .C OF 33 1 L 2 , i 2 . 6 > , AK ( l 2 . 1 2 . 6). 

4 COP 12( 1 2* 1 2 f ol #CGF 1 J i I 2 • 1 2* 6 ) ,C OF 23 ( l 2 . i 2 , o).AU(12,l2* 6). 

4 CUFX Y (12.12. c ) • CGF XZ ( 12* 12* 6 ) . COFYZ ( l 2 , 1 2 . b) 

CCMMUN /MAXMUM/ 

* NaMAX .NHMAX .NaPMAX • NMk MAX .NMrfBCO « NMOdul) « CMU « K Y . KU 

COMMON / M O M c N G / 

4 F( l 13 ) • FMC.MI 30 *H10T ( 3 > , TCTL ( 3 ) .ENGKc( o>,eNGPE( 6)* 

4 TjTKL, IU7PE. IUTlNC« AH I C T . ATGTL 


0 5483 
0 5484 
0 5485 
0 5486 
0 5487 
0 5488 

2 5489 
0 5490 

3 5491 
0 5492 

5 5493 

6 5494 

7 5495 

8 5496 
0 5497 
0 5498 
0 5499 

t 1 5500 
0 5501 
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COMMON /NUMBRS/ 

* ZRO .ONE . TWO . IRES 

CCMMON /SPcCIF/ 

* BCT/ih(o. 6 ) , BET AHl)( 6. 6).AM0(2. 5 ) *RH< J • 3 . 3 0 > • RS ( 3 • 3 • 3 0 I • 

* OH ( 3 * 36 ) *l)S( 3.30) • i MU ( 3 • 5>.NM0W<6. o > . 1 r T S MW ( l 5 ) . 

* No .NH .NSPT . NuFMG. NOELT A • l TOPOL (2* 6), IRoFlx( Oj, IHDATA(7, 6). 

* LUCK 14)»LtNU( U) .NU.NBcTA.NLAK.NEQ 

COMMON /VECTOR/ 

* Y( c£0 ) • YDT( 250) 

C 

D I MEN SIGN C*<l2.3),HW(3.12),Vl(12).WSK<3.j).r5HFT( 5). 

* TEXC6. l 5) • ISPNC 13) • V<6 ) . V3 ( 12 ) 

CATA NUT/6/ 

LOGICAL OL6UG*LEO u 
COMMCN /LDEOUG/ OfcBUG{120> 

EQUIVALENCE ( LEQu , Ut ti JG ( 5 / ) ) 

IF(LEGU) WRI TEC NOT • l GOO) 

10 0 0 FORMA l (• SUBROUTINE T UR CUE •) 

C 

CCC SUBROUTINE CONTKL ES T AUL 1 5HES THE D/DT ( QEi_ T AS ) JbcH SUPPLIED -- 
CALL CONTRL 
C 

CCC SUER CoT I NE t X TOR ESTABLISHES ALL EXTERNAL TURJuES. INCLUDING RCS 
CCCC CONTROL TORQUES. ETC., USER SUPPLIED — 

CALL ExTOR ( TEX * I SPN .NTE X) 

IF (MtX .LQ. 0) Go TO S 
C 

DO 6 5 L=1.NTEX 
NSP - ISFN(L) 

NB CD = IFTSMW(NSP) 

LON = LUCU(NUOO) - i 
LEN = IRGFLX(NBOD) * 6 
CO 6 t I - I . 6 
7 Q = TLX ( I .L > 

IF (TO .EG. ZRU) GO TO 06 
00 67 J=l,LtN 
JL = J + LON 

67 G(JL) = G( JL ) * ra*us( I • J. NSP ) 

66 CUNT INUt 
65 CO NT INUt 
C 

CCC SUBROUTINE 6HAFTT ESTAdLlSHLS SHAFT TORQUc FUR EACH 

CCCC KOKEMUM WHEEL ( ZlKUS IT OUT IF CONSTANT SPElJ) UoER SUPPLIED 

5 CALL SHAFT T IT3HFT) 

C 

CCCC SETUP HINGE SPRING AND UASHPOT RESTORING TOrJUlS 
CCCC ALSC ACCOUNT FOR POTENTIAL lNERGY DUE TO HINGE SPRINGS 
CALL KM INGE <G) 

C 

IF ( . FC I .LtUu ) GO TU 80 
WR I T£ < nCT ,1001) 

1001 FORMAT (• G VECTJk ALL FORCES AND TORQUES cXTtRNAL TO BODIES •) 
CALL WRl TES( G. I .NU* 1 ) 

.6 C CUNT INUt 
C 

KM - N M C BOD 
C 

C CKLE THROUGH ALL bOU ItS COMPUTING GYROSCOPIC FORCES AND 

C TLRQUES ACTING ON THEM 

CO 5 C N = l * NO 


0 5502 
0 5503 
0 5504 

16 5505 

1 7 5506 

18 5507 

19 5508 
0 5509 

20 5510 
0 551 1 

87 5512 

88 5513 
0 5514 
0 5515 
0 5516 
0 5517 
0 5518 
0 5519 
0 5520 
0 5521 
0 5522 
0 5523 
0 5524 
0 5525 
0 5526 
0 5527 
0 5528 
0 5529 
0 5530 
0 5531 
0 5532 
0 5533 
0 5534 
0 5535 
0 55 36 
C 553 7 
0 5538 
0 5539 
0 5540 
0 5541 
0 5542 
0 5543 
0 5544 
0 5545 
0 5546 
C 5547 
0 5548 
C 5549 
0 5550 
0 5551 
0 5552 
0 5553 
0 5554 
0 5555 
0 5556 
C 5557 
C 5558 
C 5559 
0 5560 
0 5561 
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u u 


LOU = LUCUIN) 

LO = LUCUlNtNB) 

LE = LLNL(NPNB) 

LEU = L£ V O 
IP ILL .t'U. 0 ) LEU = 3 
LO L I = LCU p 1 

LOU2 = LCU P 2 

LOU 3 - LCU P 3 

L0U4 = LCU + 4 

LOLb = LCU P 5 

C 

C evaluate euuatiln ii-sb ado it io the ljau vllior o 

CALL SiCC«V3 ( V ( LOU I . kSK, l . 3 ) 

CALL MULTAO UvSK .PILOU) . G(LCU) .2 . 3 . 1 ,3, I , 1) 

CALL M ‘ j T A O (WSiC .PILOUS) .GILOU J ) .3 . 3. I .3.1 . I J 
CALL SKEVV3 t Y (L0U3) . WSiC . 1 . J > 

CALL VulTAD (WSK ,P(LGs3) ,G( LOU > .3. T, 1 , 3. 1 . I I 
IF (LE .CQ. U) GO TU 100 

ACO IN THE MODAL bTIFFNESG AND DAMPING CON T .9 l OUT I UNS 
C GMot UbEU TO AUO IN Ml SCtlL LAN l OUS EFFECTS dJCH AS 

c tpcrmally INOUClU motion 

CALL CM I SC ( N.LE.uu. V2) 

CALL MULT3 l AKI 1 . 1 , N> , V2. V I .L E.LE . I ,KM, l , l ) 

CALL NULTAO (AD(l.l.N).YUTCLO).Vl.LE.LE,l,<M,l.l) 

CO 1C J=1.L£ 

I = LCub P J 
1C C(Ii - GUI - V l I J I 
C 

C GCS COMPUTED l N MGEN USED HERE IN THE lVAlJAI»UN OF 

C ECoATIUN U-91,92.93 AS V.ELL AS IN THE jkAV I T Y GRADIENT STUFF 

CO IE J = 1 , LL 

CWlJ.Il - -IwO*Y(Luu > *( LlCLF I l . J.N) P GGS(J.l.NJ) 

* P YILCUl) *(BCOFU,J,H) P GGSIJ.4.N) + J. I.MJ 

* P YIL0U2) *<aC0F(5. J.NJ P 6GSIJ.5.NI P G3S1J.3.N)) 

* -Y (LUU3) *ACOF ( l . J , N) - Y ( LUU4 ) * ACCF ( 2 . J, N) - Y ( L JU s I * ACOF ( 3 . J . N ) 

Cw(J,2) = -T WG*Y (L0U1 > *{ 8CUP ( 2 , J ,N) ♦ GGSIJ.2.NJ) 

* P Y ( LCU2) 41 BCOFI 6 . J ,N ) P GGSCJ.6.N) P GGSIJ.9.NJ) 

* P YlLCU ) 4(BCUF l 4 , J , N ) P GGSIJ.4.N) P GGSIJ.7.NI) 

4 -Y (CLUE) *ACGF ( 4. J. N) - Y ( CJU4 ) * ACCF ( S . J. 4 I - Y ( LOU 5 ) * ACOF ( 6 . J , N ) 
C«/(J.3) = -T 'aO*Y ILGU2 > *( BCGP I 3 . J ,N> P GGS(J.3,N>) 

* P Y ( L CU ) 4IBC0FI b . J . N ) P GGS(J.b.N) P G-.SIJ.3.N)) 

* P Y ( LCU l ) * ( BCQFIb , J ,N I P GGSIJ.o.N) + J-.S(J.9,N)) 

* -Y (LCJ3) 4ACUFI 7.J. N> - Y ( L OU 4 ) * AC CF ( 8 . J, N ) - Y I L GUb > 4 ACOF ( 9 , J . N ) 

1 t CUNT I NUE 

CALL MUcTAD < YDT ( LO> ,CV. . GILOU > . 1 .LE .3. 1 . KM, 1 ) 

CALL NULTJ (CGFlCYI 1 , l ,N) .YOTC LC I ,CW( l . I I.lc.Ll . I ,KM, l , KM) 

CALL M.UCT3 (COF X2I I . I .N I ,YDT( LC) ,CW( I .2). lc,i_E. I .(CM, l .(CM) 

CALL MULT3 ( CGF YE t I , l , N ) , Y 0 T ( LO ) . C W I 1 , 3 ) , _ ci , L i . 1 . KM , 1 . K M ) 

CALL MULTJ I YDT <LC> .Cl* . V, l .LE .3. 1 ,KM, l > 

G ( LO L ) ■= GILUU ) - V(J) 

Gt LOL l ) = Gl L0U1 ) - VI 2 ) 

GIL0L2) = GILCU2) - V(I) 

C 

C COMPUTE EQUATION 11-94.95.96 

00 16 J- l , LE 

CWIJ.l) = — Y I LOU )*ACOF ( 1. J.N) - Y (LOU l ) *ACOF ( 4, J. N) 

4 — YILCU2) 4AC0FI7. J.N) 

CW ( J , 2 ) = — Y l LOU )*ACUF( 2, J.N) - Y ( LGU I ) OACOFI 5, J . N) 

* - Y ( LCU2) *ACGF IB, J , N ) 


0 5562 
0 5563 
0 5564 
0 5565 
O 5566 
0 5567 
0 5568 
0 5569 
0 5570 
0 5571 
0 5572 
0 5573 
O 5574 
0 5575 
C 5576 
0 5577 
0 5578 
0 5579 
0 5580 
0 5581 
0 5582 
0 5583 
0 5584 
0 5585 
0 5586 
0 5587 
0 5588 
0 5589 
0 5590 
0 5591 
0 5592 
0 5593 
0 5594 
0 5595 
0 5596 
0 5597 
O 5598 
0 5599 
0 5600 
0 5601 
C 5602 
0 5603 
0 5604 
O 560 5 
0 5606 
0 5607 
0 5608 
C 5609 
0 5610 
0 5611 
O 5612 
0 5613 
0 5614 
O 5615 
0 5616 
0 5617 
0 5618 
0 5619 
C 562 0 
0 5621 
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r> n 


CW(J.J) = -YILOU ) AAlOF ( 3. J ,N) - Y ( LCU1 ) AACUF ( l. , J , N) 

* -'IlLCU^l *ACUF19. J.Nl 

l £ COM INUt 

CALL MULTAD ( YD T ( LG ) . C u . G( LOU 3 ) , 1 . CE . 3 . 1 ,K ,«l . 1 J 


C 


C 

c 

c 


c 


CC MHU TL EQUATION 11-97 
CO 2 C J=1.LL 
I = LLU5 F J 

C(l) = G(I) F ( Y ( LOU ) AA2 ) A ( UC OF { 1 . J . N > F GGSlJ.l.N)) 

* F ( Y ( LLU l I AA 2 ) * 1BCGF( 2 . J .N ) F GGSIJ.2.N)) 

* F ( Y (LGU2I **2 ) * IBCCF ( 3 , J.N ) F GGS(J.3.N)) 


* 

- YlLCU 

)AY(LOUl)A(8COF(4, 

J.N) 

4 

GGS ( J . ^ ,N) 

4- 

GGS1J.7.N) ) 

* 

- YILOL 

) A Y ( L0U2) * ( OCOF ( 5 . 

J.N) 

4- 

GGS ( J . J » N ) 

4- 

GOSt J ,8 ,N> ) 

* 

- V(LCU1 )A Y(L0U2) A(ULdF{6, 

J, N> 

4- 

GGS ( JiuiM 

#- 

GGGl J . 9.N) ) 


* F Y(LCU J A l Y l LOU j J AACCF ( i , J .K > F Y ( L 004 > * AC LF { d . J , N > 

» F Y(lOUS)*ACOM J i J.N)) 

A F Y< LCL 1 ) A( Y ( LUuJ ) « ACQf l A, J . N ) F Y { LOU* ) A AL JF ( 5 , J , N ) 

* + Y(LQU5I*AOjH 6. JiM) 

* F. Y ( LCU2) Al Y ( L0u3 ) AACCFl 7 . J . M F Y ( LOU4 ) A AC OF I 8 , J , N > 

* F Y (LOU j) A ACuf ( 9 . J . N) J 
2 C CC M I NUt: 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CU 3C 


MUL T3 
MUL T3 
MOL 13 
MULT3 
MULT3 
MOLT3 
J=1,L 


( COF X Y i 1 • l *N) • YU F C L 0 ) , C W I 1 . 1 )#-L » i_ £ .1 . KM. 1 .KM) 
( COFX21 1 .l.NI.YuriLO.CWll . 2) . _C._E . I • KM, l.KM) 
(COF Y2 ( 1 .t «N)«YUT(LC).CW( 1 .3l.-c.Lf.) .KC. I . KM ) 
( YDT (LO) . COF XY l 1 . 1 . N ) .R«i I . 1 ) . 4 . LE . _ L. . I .KM , 3 ) 
(YDT (LU) , C OF XZ ( 1 . 1 . K ) .RW(2. I ).l .ul.Ll. l.KM, 3) 
(YOT(LU) , C OF V 2 ( 1 . I • K ) . RW(3 . 1 ). I ,L; .i-C. l.KM, 3) 


I = LOOS F J 
COD = 0(1) 

A 

A 

3C COM INUE 


F Y( LOO I A (Cw( J .3 ) 
f Y(Lu0l)*(C«lJ.2) 
F Y (C002 ) « ( CW( J . I ) 


- RW(3. J) ) 

- R * ( 2 . J ) > 

- RW( 1 . J > > 


100 KM C N = K MG W( l ,N) 


GET CCNTR 18UTAT1UNS UUE TO WHEELS EQUATION 11-109 
IF (KMON .LO. 0) v.0 TO SO 

IC = C 

OO 3 E l — l , NM CN 
IP2 = I F 2 
NW = NMC W ( IP2.N) 

C FcCK TO SEE IF WHEEL NW IS ACTIVE 
IF (IMl)( 3.NW) .EO. 0) GO TO 37 
IC = 1C F l 
LMC = LOOS F LL F IC 
TOTJ = Y (LMO ) AAMO(2. NW ) 

CO TC 38 

37 TDTJ = AMO( l ,NW ) AAMG ( 2 .NW) 

38 KPTS = I MO ( 1 .NW) 

KAX - IMO(2.NW) 

CALL MULI3 ( BS( 1 .1 . NPTS) . Y(LOU) , V ( A ) . 3.LEJ , 1 . O , 1 , l ) 
CO TC (A 1.42 . 43), NAX 
4 1 V( l 1 = ZfiU 

V( 2) = -V(o) ATOTJ 

Vl 3 ) = V( ‘3) aTDT J 

GO TC 40 

42 Y(, l ) = V( 6) ATDT J 


0 5622 
0 5623 
0 5624 
0 5625 
0 5626 
0 5627 
0 5628 
0 5629 
0 5630 
0 5631 
0 5632 
C 5633 
0 5634 
C 5635 
0 5636 
0 5637 
0 5638 
0 5639 
0 5640 
0 564 l 
0 5642 
0 5643 
0 5644 
0 5645 
C 5646 
0 564 7 
0 5648 
0 5649 
C 5650 
0 5651 
0 5652 
0 5653 
0 5654 
0 5655 
0 5656 
O 5657 
0 5658 
0 5659 
0 5660 
0 5661 
0 5662 
0 5663 
0 5664 
0 5665 
0 5666 
0 5667 
0 5668 
0 5669 
0 5670 
0 5671 
0 5672 
0 5673 
0 5674 
0 567S 
0 5676 
0 5677 
0 5678 
0 5679 
0 5680 
0 5681 
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n n 


V ( 2 > = ZRO 

V ( 3 J = -V( 4) 4T0T J 

go rc 40 

4 2 V(ll = -V151 *TDT J 
VI 2 ) = V14»*TDTJ 

V ( 3 ) = 2 RCJ 

4 C CALL MJLTAO ( V . d S { l . I . NP 1 S ) . G < LCU 1 . 1 , 3 . LEO . 1 . S , 1 ) 

IF (IM013.NW) .20. O) GO TO 35 

GILMCt = TSFIFTINW) 

IF ILE .ED. 0) GU TO 35 

CALL FOLI3 ( BSI 1 , 7.NPTS ) . YDT < LCJ> . V.3.LE .1 . 6 , 1 . 1 J 
CALL SKEi»V3 (V.WSK.l ,3J 

CALL M0LT3 ( WSK , V( 4 > . V . J. 3 . 1 . 3 . I . 1 ) 

GILMC) ■= G(LMO) - AMCU 2 . N* ) * V ( NAX ) 

35 CONTINUE 
C 

50 CCNT I NU t 
C 

CCC SU3RCUTINE EQAOO ESTABLISHES ADDITIONAL CONIK'JL BLOCK EQUATIONS 
CCCC TO SET OP SIMILARITY TRANSFORMATION. USED ONLY FOR LINEARIZATION 

CCCC AND STABILITY PACKAGE. GsEft SUPPLIED 

CALL EQACU 

c 

IF I . NOT .LEC1U I RETURN 
UR1TE iNCr.1002) 

1002 FORMAT (• LOAD VECTOR G * 1 Tn GYROSCOPIC EFFECTS ADDED ON' ) 

CALL WR HtSl G. 1 .NO. I ) 

RETURN 

ENC 


0 5682 
0 5683 
0 5684 
0 5685 
0 5686 
0 5687 
0 5688 
0 5689 
0 5690 
0 5691 
0 5692 
0 5693 
0 5694 
0 5695 
0 5696 
0 5697 
0 5698 
C 5699 
0 5700 
0 570 1 
0 5702 
0 5703 
C 5704 
0 5705 
O 5706 
0 5707 
0 5708 
0 5709 
0 5710 


C 


SUERCU1INE ENGMOM 
IMPLICIT HEAL*<J( A-H, U-Z I 


DEBUG * 58 


FCR TFLURY OF EQUATIONS PROGRAMMED SEE VUL l APPENDIX D 
COMMON /OHoSRO/ 

» BillG, 18 , 1 l ) .as I 6. lb. 15) ,R0L<3.3. UI.JJlU. o J 

COMMON /lNT^KL/ 



AM (171, 

e ) , 

A CUF 1^*1 2 • 61, 

BCCF ( 6 

,12, o > 

* 




♦ 

C.L.F 11(12 

, l 2 

, 6 ) , LCh 22 ( 1 2 , 

12 , 

6 ) 

»C OF 3 J ( 

12 . 12, 

o ) , AK (12* 

1 2 . 

t ) • 

* 

CCJ r i 2 ( 1 2 

, l 2 

. o ) , C UF 1 j ( 1 2 , 

12 , 

6 ) 

,CCF2J( 

12 . 1 2 , 

oJ , AD ( 1 2. 

12 , 

t ) , 

* 

Cuf- aY ( 1 d 

« l 2 

, o) iC Cf X2 (12, 

1 2 , 

6 ) 

,CCF Y2 l 

12 , 12, 

6 > 




COMMON /MAaMOM/ 

« NuM AX . N nMA X , NSP M A X ■ NMV. M A X . NM;v EOD . NMDdUD .K4D.KY.KO 

Common /momlng/ 

* P< 1 13» . PMOM( 3e) .HTOT l 3) , T OTLI 3 ) .ENGKeI uI.cNGPeI 6 ). 

4 TuIKe. rUTPE, TOTENG. Alder. ATOTL 

CCMMLN /NUMbRS/ 

* ZAC.ONL.TwU.TkeS 

COMMON /SPeCIF/ 

* BlIAUIo. 6 ) . LeT AKdI o. o).A.MC(2. 5 ) .RrU 3. j . JO) . RS ( 3.3. 30) . 

4 CM ( 3 . 3S > . D S ( 3 . 3 u > . I MO ( 3 . sI.NMOwIG. ul.i'ISMAllu). 

* NJ . NH .N3PT .MOF MO. NOEL T A ■ l TOPOL (2. 61.1 kgF_X( o ) . I FlO AT A ( 7 , c). 

* L'JCLI 14) , L E N O 4 i 4 J . NO.NoE T A , NL AM ,NEQ 

COMMON /VECTOR/ 


0 571 1 
0 5712 
C 5713 
0 5714 
C 5715 
0 5716 
2 57 17 
0 5718 

5 5719 

6 5720 

7 572 1 

8 5722 
0 5723 
0 5724 
0 5725 

1 l 5726 
0 5 72 7 
0 5 728 
0 5729 
0 5730 

16 5731 

1 7 5732 

18 5733 

19 5734 
0 5735 
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* YC 2S0 ) . YDT { 230) 

DIMENSION WV ( 12 > 
CIN6KSICN VV»<3) 

KM = NMCeOD 
DO 5 1=1,3 

HTCT ( 1) = 2RG 

5 TOILU) = ZKO 
CO 1C N=I,NB 


LA - t*N - S 
LL = LA F 3 
LOA = LUCU(N) 

LOL = LLCU(N) F 3 

CALL MULT3 1H0L1 1, 1 ,N) .PC LGA) ,FMCM(LA > ,3,3, 1 , 3, 1 , l > 

CALL MULT3 <ROL( 1 . 1 ,N) .P1LOL ) .PMOK1LL ) .3.3. 1 ,3 . 1 , 1 ) 
f KCM (LA ) = PMOM1LA ) POOL 1 2 , M *P MCM 1 LL +2 ) -03 L ( 3 . N > * PMOM < L LF l ) 
FMCM(LAFl) = PMQMILAH 1 POOL (3 , N) *PMCM(LL J - t>0 L ( 1 . N ) * PMCM (LL +2 ) 
FMCM(LAF2) = PM0M(LAF2 ) FDOLI I . M+PMCMILLH > -D3L< 2. N) FPMCMILL 1 
CCC STATEMENTS THRU 40 TO ACC CUNT FOR ANGULAR MO ML 4 T JM DUE TC 
CCC CCNST/NT SPEED MOMENTUM WF1LELS. 

KM = NMCWC 1 , N ) 

IF (KM « tO « 0) GO T 0 40 

CO 3 C 1 = 1, NM 
NW = NMOM 2+ I , N > 

IF ( 1 MO ( 3 , NW ) ,NE, 0) GU TO 30 
KA = IMG (2,NW) 

KS = IMC(l.NW) 

PH = AML ( 1 ,Nt ) * AM012 ,Nw) 

CO 3 £ 3=1,3 

35 VW(J) = PH*BS(NA. J.NS) 

CALL MULTAU < ROL ( 1 , 1 , .M ) , V* , PMO M ( L A ) , 3, 3 , l . 3 . 1 , 1 1 
30 CONTINUE 
40 C'ONT INUt 

CO 1 £ l = 1 , 3 


11 = LA - 1 F l 

12 = LL - 1 FI 
FT OT ( I ) = HT OTI l ) 
TOTL (11= TUTLM ) 
CONT INUE 

♦ PMiJM i i l ) 
+ PMCM(U) 

TOTKE = 2RO 
CO 2C N=1.NB 
LOU = LUCU(N) 

LO = LGCU(NFNd) 

ENGPE(N) = 2RO 
LE = LtKU(NFNB) 

LEU = LENU(N) 



IF (LE • EU • 0) GU TO 22 

CALL MULT3 ( AK ( l , i , N ) , Y ( LL ) , W V ,LE ,LE , 1 . KM , 1 , 1 1 
CALL MuLT 3 ( Y(LU) . kV.LNGPt IN) . 1 ,LE, I • 1 , 1, I ) 

ENGPEIN) = tNCPEINJ/TaU 

22 CALL MULT3 I Y ( LOU ) . P ( LG U ) . ENG KE ( N ) , 1 , L EU , l . 1 . I . I ) 
LNGKE(N) = ENGKEINJ/T'AO 
TOTKE = TUTKE F ENGKE(N) 

20 TO TP E = TUTPt F. ENGPE1N) 

TCTEKG = TOTKE F TOT PE 

ATOTL = DuUK TC TOTLI 1 J **2 F TCTL(2)**2 F TUTL(3>**2) 
AHTOT = C30R T( H I OT( 1 ) * *2 F HTOT(21**2 F HTUT(3)»*2) 


C 


20 

5736 

0 

5737 

85 

5738 

0 

5735 

0 

5740 

0 

574 1 

c 

5742 

0 

5743 

0 

5744 

0 

5745 

0 

57 46 

0 

5747 

0 

5748 

0 

5749 

0 

5750 

0 

5751 

0 

5752 

0 

5753 

0 

5754 

0 

5755 

0 

5756 

0 

5757 

0 

5758 

0 

5759 

0 

5760 

0 

5761 

0 

5762 

0 

5763 

0 

5764 

0 

5765 

0 

5766 

0 

5767 

0 

5768 

0 

5769 

0 

5770 

0 

5771 

0 

5772 

0 

5773 

0 

5774 

0 

5775 

c 

5776 

0 

5777 

0 

5778 

c 

5779 

c 

5780 

0 

578 l 

0 

5782 

c 

5783 

0 

5784 

0 

5785 

0 

5786 

0 

5787 

0 

5788 

0 

5789 

0 

5790 

0 

5791 

0 

5792 

0 

5793 

0 

5794 

0 

5795 


PE TURN 
END 


0 5796 
0 5797 
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SOFRClTINE RKAD AM ( NcU > 

0 

5798 

c 


Dt BUG * 59 

0 

5799 


IMPLICIT REAL*d< A-r».C-2 ) 

0 

5800 

c 



0 

580 1 



COMMON /JltKLO/ 

0 

5802 


$ 

J IL 

0 

5803 



COMMON /PWfcURK/ 

0 

5804 



P R ( 2 5 0 • 6 ) 

1 4 

5805 



COMMON /OPk<1a/ 

0 

5806 


* 

CkK (250 > .PftKC*) . N I 

1 £ 

580 7 



COMMON /TlMcSS/ 

C 

5808 


* 

oImKTT, DLL TAT ,T,cfwl ,TM^T 

0 

5809 



COMMON /VLCTUR/ 

0 

58 1 0 


* 

Y ( 2d0 ) , YDT ( 25C ) 

2 C 

581 l 



COMMON /Vii>iJtP/ 

0 

53 t 2 


* 

l:lOEP< 2t>0 ) 

2 l 

5813 

c 



C 

5814 


CA T A 

liPSl* LPS2 / l.O-d* l.C-2 / 

0 

5815 


lata 

NOT. MAX IT / ot 10/ 

0 

5816 

c 



0 

5817 

c 

***** 

I TYPO •LO* 1 KUNGE-KUTTA I NTEG-* AT I ON 

0 

5818 

c 

* i> * * * 

iTYPo .E Q • 2 ADAMS PRE C l CT OR/L J RKcL T O k INTEGRATION 

c 

5819 

c 



0 

5820 

c 

EUSHCJCT IN.. TU l NTE CR ATE 0 If FtKtNT I AL EQUATION:, IF iKiT UkOEP) 

c 

5821 

c 

I f\ THE 

time domain* uscj runge—ku tt a— g i ll to jiakt i hl adams predict 

0 

5822 

c 

CORRECTOR. MAY G5t RGNGt-NUTTA ONLY. CN oPTIJN. 

0 

5823 

c 

c coco 

dY CARO BOD LEY 1971 

0 

5824 

c 

WtJUI F ICAT IC.M TO CCRKfcCTOR uu CP TO ACCOUNT FJ« I'OJLjlVi. CHANGE TO 

c 

5825 

c 

ST4TE VECTOR (0)T*hlCrt uCCUHb IN SUO. YOOI. MJt DY C AR C BQDLEV 

0 

5826 

c 

APli * 

19 7 <i 

c 

582 7 

c 



0 

5828 


CA T A 

I r yfl / i / 

0 

5329 

c 



0 

5830 


GO TC l 10. EG ) . 1 T Y Pc. 

0 

5831 

c 



c 

5832 


2C IF (M .OT. J) GO 10 201 

0 

5833 


CNM 

= ’JtLTAT/24.U 0 

0 

5834 


T« I 

= JJ\M*SB.U 0 

0 

5835 


IH2 

= -JNM*j5*0 0 

0 

5836 


TR3 

- ONM 7 *D 0 

0 

5837 


TR4 

= - 0 NM * 9.D 0 

c 

5838 


tre 

= iiNM* 9.0 0 

0 

5839 


TRc 

= D NM *i 9. J 0 

0 

5840 


TR 7 

= ~DNM* 5.0 0 

0 

584 1 


THE 

= i)M» l ,D 0 

0 

5842 

c 



0 

5843 


201 IF (M .GT. J ) GO TU 2JU 

0 

5844 


NL = 

NT *■ l 

0 

5845 


GO 2 C 5 1 = 1 • NEQ 

0 

5846 


PR ( I 

.NU = YJT( l 1 

0 

5847 


20 5 FR < l 

. 5 > = Y ( l ) 

0 

5848 


IF ( 

M .EU. 3) GU T(J 200 

0 

5849 
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10 CO 1 10 J = 1.4 
JI L = J 

CU 110 1=1 • NEQ 

Z = YGT l l ) 40ELTAT 
GO TC ( 1C3 . 101 . 10 l . 105) . J1L 
101 R - FRK(JIL)*(Z - uHK( U ) 

GO T C l C 7 

10 2 k = FRKlJlL)*Z - UkK ( i ) 

GO T C 10 7 

105 R = (Z - < !.0 0*URK< 1 1 ) 26 .0 0 
107 Y<I) s YU) PR 

CRK(I) = URK ( I ) + 2.0 0*k - PKK1J1LHZ 

IIC CC NT INUE 

IF (OIL .to. I .OH. JtL .cO. 3) T = T P 
120 CALL YuCT 

co re 3 o c 


On LTAT/2.0 0 


20 0 
204 


207 


CO 2 C 4 1 = 1 .NtO 

Y( I) s PRl t . a) HR l#Pk( 1 , 4) P TR2 »PR{ l . 3) PTR3*PRl 1 , 2 > P TR4PPRI 1 . 1 ) 

1 - T *■ clltat 

ITEM = 0 
CALL YOGT 

G = C.O C 
CO 2C3 1=1 ■ NLQ 

IF < lNOfcPl 1) ,EQ. 0) GO 10 203 

YC = PRl 1 . 5 > PTRS« YO T ( 1 ) P TR6 *P«< l ,4 ) PTR7 *PR{ l . 5) PTR8*PR( l . 2 > 
ON = CAHSIY1 1 ) ) 

CN1 = UAGS(YL) 

IF (CNi .GT« ON) ON = UNL 
IF (CN .LT. EPS l ) GO To 203 
Cl = LAOS! YC - Y(I)>/ON 
IF (Cl .GT . G) G = G l 
Y< I ) = YC 

203 CONT INOL 

1TEH = ITER P 1 


5350 
585 1 

5852 

5853 

5854 

5855 

5856 

5857 

5858 

5859 

5860 

5861 

5862 

5863 


0 5864 


5865 

5866 

5867 
5368 

5869 

5870 

5871 
0 5872 
0 58 73 

5874 

5875 

5876 

5877 

5878 

5879 

5880 

5881 

5882 

5883 

5884 

5885 

5886 




IF (C .LE. 

EPS2) GO 

TO JO 

0 

5887 



IF ( ITuR . 

cU. MAXI! 1 

i>U TO 999 

0 

5888 



GO TC 2 C 7 



0 

5889 

c 





0 

5890 


30 

CO 210 I = l 

. N EQ 


c 

5091 



FR 11 . 1 ) = 

PR < I . 2 ) 


0 

5892 



PRl I .2 i = 

PR ( 1 . 3) 


0 

5893 



PR < I , 3 ) = 

PR ( I . 4 ) 


0 

5894 



FR ( I ,4 ) = 

YOT( I ) 


0 

5895 


210 

PR 1 I ,5) = 

Y ( l ) 


0 

5896 

c 





0 

5897 


300 

NT = NT + 

1 


0 

5898 



A NT = NT 



0 

5899 



TMST = ANT*DELTAT 

* 

0 

5900 



T = STnrtTr 

+ rMsr 


c 

5901 

c 





0 

5902 



fc£TUPts 



0 

5903 


999 

fcPITE ( NCT 

.1001) MAX1T 

0 

5904 


100 1 

FORMAT ( 1H l , 3 IHCOKRtLTCR FAILS TO CONVERGE IN 13. 

0 

5905 


* 28H 1 TERA T IONS. PKUGKAM STOPPED. 1 

ST CP 
ENC 


5906 

5907 

5908 
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c 


c 


c 


i ooc 

100 1 

1002 
100 3 
1 004 
1 OCb 
1 00 £ 
100 7 
10 17 
1 02 7 


i cce 


1 009 
10 10 
10 11 
10 12 
10 10 


10 14 


C 


sue^curiNt prntgu 

IMPLICIT WfcAL*t>( A-r»tC-*> 

REAL * 4 C T NEW *1 Ntw.CTuLUi I CJL CPSTfc'P, CP SEC 


DEBUG • 60 


CUMML’N /AMwliW / 

* AMU (22, 22. 6 > • b H> ( 3o *113) 

COMMON /dHuijKj/ 

* UH (6*16*11)* os (6* ld*15)*R0L (3*3* 6).JDE(3« o ) 

COMMON /MAXMUM/ 

* NUMAX , N HMA X *NSPMAX* NMfcMAX • NMW EOC . NMDuJD ,K<U,KY,KU 

COMMON /LAMBDA/ 

* Ac AK( Jo ) 

COMMON /M16CN0/ 

* NoPFM , NuPLuT 

CUMMON /ML ML No/ 

* Pi 1 Id), PMOM { 36 ) fMTUT(o) ,T G TL ( 3 ) , CNGKt ( to ) • tNGPc 1 61* 

* roTKL, roipc, ruroNG, ahtct, atotl 

COMM UN /SPECIF/ 

* 3cTAHi6. 6 ) , uL T AHD ( 6 • 6).AM0(2, 5 ) , RM ( s , 3 • 3 0 ) *Rb( 3*3*30) « 

* CM ( J, 35 > ,oS ( 3 , 30 ) • 1 MG< 3* 5>* NMOMO. 6 ) • 4 ? T 3.4 '« ( 1 5 ) • 

* NU.NH.NSPT .NLFMu.NDELTA,' I TCPOLC2* 6),IRGFLX( 6>,IHDATA{7* O* 

* LLCU Ul.LE.NUl 14) ,NU, NBC T A *NL AM.NE0 

COMMON /TXMtSS/ 

* S T AR I T * DLL T A F * T * L ND T • TMS T 

COMMON /VlCTUH/ 

* Yt 250 > • YDT ( 250) 


L I MC XblCN V 1 ( 3) * vt( J) 

UlWEMlCN r 1 ( 5 • 3 ) • T 2 ( o * 3 ) • T R N < 3 • 3 ) 
Oif^EFSiCN VCM(3* 6>*T1 n(3*3* 6>*SYSCM(3) 
C A T A NJf.l liiT / to . 0 / 


oY>I.^U* 3 )*aMAS( 6 ) 


FORMA T 

format 
form a r 

FORMAT 

form a t 

FORM A T 
FORMAT 
forma I 
FORM a I 
FORMAT 
A 2 Iri 

form / i 

* l ehd 
FORMAT 
FORMAT 
forma r 
FORMAT 

format 

A 

* 

* 

A 

FORMA 1 

♦ 


l // 10 X ,24HAT 
t JX.aiHlHL 
1 3 X , j*#H T HL 

( 3 X ♦ 50 HT nC 
C 3X.29HTHE 
( 3X. ilHTHL 
( OX* 30MT HE 
( JX* GitFOK 
( 3 X « SHF Uk 
( Da , 9HF (JR 
ANOULAK AND 
( 3X • 48HI TO 
n£k 01 ES IS • 
( 3X* 9HFOR 
( 3 X* 50 H Tile. 

( 3X.30HTHL 
1 3X * 35HTHE 
( /oa . 29HTHL 
/ 3X* 29.1 1 he 
/ 3X, 29HTHL 
/ 3X* 25HTHC 
/ 3X.29HTHL 
(// JbX • 33HCP 
OX , 1PE 1 O* 


i PJ l 0 .4 , 32 ( 2H * ) ) 


SIMULATION TIME. T = 

STATE VECTOR Y = ) 

STATc VECTOR TIME DERIVATIVE YDT = ) 

betas (culer angles* position coordinates) are) 

be 1 A TIME DERIVATIVES A 3 E ) 

deltas (control system variables) are) 

DELTA TIME DERIVATIVES ARc) 

body .12 *3/ . iouthe veluu rub arc) 

oL'JY , X a. • 3 X , 29H THE CORRESPONDING MOMENTA ARE) 
BODY • 12 * JX , 25H l TS CONHluJl ION TO TOTAL. 

LINEAR MOMENTUM IS) 

C0Nlf< IUUT l CN TO TOTAL XiNeJIC AND POTENTIAL • 

3X • IP 2D l to* a > 

BuuY • I 2 *3X , 27H THE ELASTIC DEFLECT IONS ARE) 
INTERCONNECTION CONSTRAINT F URC i s ( L AMBD AS) ARE) 
TOTAL ANGULAR MC MEN TUM VECTOR IS) 

TOTAL LINEAR MOMENTUM VcCTJ* IS) 

TOTAL ANGULAR M’CVENTUM = ,l»JU,d* 

TOTAL LINEAR MOMENTUM = .IVJU.tti 
Total KINETIC ENERGY = .IPDlS.d. 

TOTAL POTENTIAL ENERGY = *1^015. to* 

TOTAL ENERGY < T F V > = *iP015.b> 

U TlME/slEP CPU TIME /REAL I X Mii * / 38 X , I PE I 0 . 4 , 

4 ) 


IF (MST . £0 . I ) Go TO 5 
CfNL* = G • 


0 

5909 

0 

59X0 

0 

591 X 

0 

5912 

0 

5913 

0 

5914 

X 

5915 

0 

5916 

2 

59 17 

0 

5918 

0 

59X9 

0 

5920 

xo 

592 X 

0 

5922 

0 

5923 

0 

5924 

X 1 

5925 

0 

5926 

0 

5927 

I 6 

5928 

X 7 

5929 

X 8 

5930 

19 

5931 

0 

5932 

0 

5933 

0 

5934 

20 

5935 

0 

5936 

0 

5937 

0 

5938 

92 

5939 

0 

5940 

0 

594 X 

0 

5942 

0 

5943 

0 

5944 

0 

5945 

0 

5946 

0 

5947 

0 

5948 

0 

5949 

0 

5950 

0 

5951 

0 

5952 

0 

5953 

0 

5954 

0 

5955 

0 

5956 

0 

5957 

0 

5958 

0 

5959 

0 

5960 

0 

5961 

0 

5962 

c 

5963 

0 

5964 

c 

5965 

0 

5966 

0 

5967 

0 

5968 
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TNEW - STARTT 
5 CALL PAiiEHO 

WRITE (NLT.1000) T 
WRITE (NET, 1001) 

CALL WRITES (Y.l.NLO.l) 

C 

WRITE (NGT.IOOO) T 
WRITE (NOT, 1002) 

CALL WRITES < YUT . 1 ,NEO . I > 

C 

WRITE INCT * I OOO ) T 
WRITE (NOT. 1003) 

CALL WRITES (BETAH.o.NH.o) 

C 

WRITE INCT, 1000) T 
WRITE INCT. 1004) 

CALL WRITES (BET AHD, 6 . NH .6 ) 

C 

IF ( NBc: L T A .EQ. 0) SO TG 10 
WR IT E ( NOT , l 000 ) T 
WR I T E I NET . 1 OOS ) 

LO = LGCLI2WNB 4 2) 

CALL WHITES ( Y( LO) . 1 .NDELTA . 1 ) 

WRITE (NET, 1000) T 
WRITE ( NET • 1 OOO ) 

CALL WRITES I YUT ( LG) , l , NDELTA , l > 

C 

1C EG 2 C N=1.NB 

WR ITE (NET .1 OOO) T 
WRITE INCT, 1007) N 
LO = LUCL(N) 

LC = LENL(N) 

CALL WRITES I Y( LG) . I ,LE. 1) 

WR 1 1 E ( NOT ,1017) N 

CALL WRITES (P(LO). I ,LC, 1) 

LOPM = c *( N- 1 ) + l 

WRITE (NET, 1027) N 
CALL WRITES ( PMGM (LLRM ) • 1,0,1) 

WRITE (NET, 1 008) ENEiCL IN) ,ENERE(N» 

LE = LENL(N+Nb) 

IF ( LE .EQ. 0) EG 1G 31 
LO = LULL! N+ ND ) 

WR ITE ( NET . 1 009) N 

CALL WRITES (Y(LO).t ,LE. I) 

C 

C BODY N TE BUOY 1 Tk A NSF GRM A T I G N MATRIX 

2 1 DO 2 1 1=1,3 

L>n 2 i j — i * jj 
TRN( I « J ) = 0 .QUO 

CO 2 1 K = 1 * 3 

IRM1.J.) = IPNU.J) + R0C1K.I * I) *RCL<K, J.N) 

2 1 C G N T 1 NU L 

fcM IT e c NCT • 1 020 ) N 

1020 HD HM AT ( JX, 9HFCR BGiOY , I 2 • 3X • 4 6H TR AN 5FCH M AT I UN 
♦CCCRCINATL3 IS) 

CALL WHITES 


C 

C LUCA11UN L3GUY N CM toRf tiCDY 1 REFERENCE 

L6 = t_£ NU ( N ) 

CALL INV INRl AMU ( l . i * N > . A MU ( 1 • 1 .N) .LE #KMU) 


.MAT R I X 


TG OODY 


0 5969 
0 5970 
0 5971 
0 5972 
0 5973 
0 5974 
0 5975 
0 5976 
0 59/7 
0 5978 
0 5979 
0 5980 
0 5981 
0 5982 
0 5983 
0 5984 
0 5985 
0 5986 
0 5987 
0 5988 
0 5989 
0 5990 
0 5991 
0 5992 
C 5993 
C 5994 
0 5995 
0 5996 
0 5997 
0 5998 
0 5999 
0 6000 
0 6001 
C 6002 
0 6003 
0 6004 
0 6005 
0 6006 
0 6007 
0 6008 
0 6009 
0 6010 
0 601 1 
C 6012 
C 60 13 
C 6014 
0 60 15 
0 60 16 
0 60 17 
0 6016 
C 6019 
0 6020 
0 6021 
0 6022 
0 6023 
C 6024 
0 6025 
0 602o 
C 6027 
0 6028 
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C\ o 


XMAS(N) * AM U ( 4 , 4 , f , ) 

Vl(l) = AMu( J.6*N)/Xi4A5( N) 

VI (2) - A.-lul l ,6 |N)/XMAS( M 
VI <3 ) •= AMU( 2 • 4 • N ) /XMA J( N) 

CO 2 2 1=1,3 

VC.v ( 1 iNi = 0,000 

CC 2 2 K = l • 3 

VCM1.N) =■ V C M l l • N > *■ TrtMl.RMVHK) 

* *- KOL ( K . I . I ) * ( O0L( K , N) -u»0_ I * . 


22 

10 10 


CGNT INUt 

WRITE (.NCTtlOI&l N 
FORM/ I ( OX, 9 HFCR oUi>Y . 12 , 3 * 
* PONT AND lCCKj I NA Tcii IS) 

CALL WKilLS ( VCM < 1 ,N ) . I . 3 , 1 ) 


57HCM LOCAL I UN *f< T 


) ) 


liOJY 


REFERENCE 


C 

C INERTIA TENSOR UF uOOY N ALiOu T ITS CM WRT Jij Uf N KLFcHENCE frame 

CO 2 2 1=1*3 

CC 2 j J — l , 3 
T 1 ( l . J > = AMU( I . J.N) 

00 2 K = l * o ■* 

T 1 ( I * J ) = Ti(I.J) - AMU < l « K + 3 . N ) 4 A MU ( K + 3 , J . N ) / X MA SIN) 

2 J CC NT INoL 


C 

C INERIIA IU.NSUH of oUOY N AulUT ITS CM WRT UUJr 1 RtiFtKENCE 

CO 2 A 1 = 1,0 
CC 2 4 J = l . 3 
T IM I • J , N) = 0.00 0 
CO 2 4 K = 1 , J 
CO 2 4 L = l,3 

TIM I .J.M = TIN (I, J.N) f THN< I ,K ) * T 1 < K ,L) * TRNl J • L ) 

2 4 CUNT I Nut 


aR l T E < N C r , l 0 l 6 ) N 

10 It FORMAT ( 3X, 9HF0R buOY , U ,3X ,7 IH l NER T I A FlnOuR KLLATI VE TO 

* ENTER jF MASS ‘jvr T UUUY 1 COORDINATES IS) 

CALL WRITES ( T 1 N ( 1,1 ,N)«J,5«5) 

CALL iNVINPt AMU ( l , i ,N) ,AMV( 1 . I *N) .LE.KMU) 

6 

20 CONTINUE 
C 

IF ( MAM .EG. 0) vi L. TO oi) 

WRITE ( NOT , I J00 ) T 
WRITE ( NOT . i 010 ) 

CALL WRITES ( AL A M • i . NL AM . I ) 

C 

50 WRITE (NCT.IOCO) T 


ITS C 


C 


C 


CCMPCSl TE SYSTEM CENTER OF MASS AN J INERTIA TENSER RtLATIVE TC IT 
IN dUOY l COORDINATES 
XMASE = C.GO 
CO 2 £ 1 = 1,3 

SYSCMI I ) = 0 .00 0 
CG 2 £ J = 1 . J 
SYSI N (I* J > = 0. 000 
25 CONTINUE 

CO 2 1 N = l , NU 
> M A S £ = XMAbS ♦ XMAS(N) 

CG 2 1 1 = 1.3 

SYSCN(l) = SYSCM(I) ♦ VCM( 1 ,N ) *XMAS( N) 

00 2 1 J=1,J 


0 6029 
0 6030 
0 6031 
0 6032 
0 6033 
0 6034 
0 6035 
0 6036 
0 6037 
0 6038 
0 6039 
C 6040 
0 6041 
0 6042 
0 6043 
0 6044 
C 6C45 
0 6046 
0 6 04 7 
0 6048 
0 6049 
C 6050 
0 6051 
0 6052 
0 6053 
0 6054 
0 6055 
0 6056 
O 6057 
0 6058 
0 6059 
0 6060 
0 6061 
0 6062 
0 6063 
0 6064 
0 6065 
0 6066 
0 6067 
0 6068 
0 6069 
0 6070 
0 6071 
0 6072 
0 6073 
0 6074 
0 6075 
0 6076 
0 6077 
0 607 B 
0 6079 
0 6080 
0 60 8 L 
0 6082 
0 6083 
0 6084 
0 6085 
0 6066 
0 6087 
0 6088 
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r> n 


SYSIMI.J).= SYilN(itJ) + 1 1N( I.J.N) 

2 6 CGN T iNJt 

CO 2/ i = l,J 

27 SYSCN(l) = SYbCM( 1 >/XMASS 
C 

LO 2 £ N = 1 . NO 
CG 2? l-li3 

2? VI (I ) - VCMUiN) - SYSCM(l) 

(ALL SNcWV VI , T 1 , j , 3 ) 

CG 3 C i = 1.3 
CO 3 C J = 1 . 3 
CO 3 C K= 1 • 3 

SYSIMl.J) = S Y S 1 N < 1 .J ) ♦ XMAS(N)*T1 (I ,K)*U( J,K) 

3 C CO NT INJt 
26 COM INoE 

C 

WR ITS ( NCf . I Old) 

10 16 FORMAT ( 3X«79HTHL SYSTEM CENTER OF MASS kClATI Vl f 0 BODY l REF ERE 
*NCE FC1NT AND COCRulNATES IS) 

CALL Wk lit S( SYSCM , 1 ,3. 1 ) 

WRITE ( NCT • l 019) 

1019 FORMAT ( 3X • tJ4hTHt SYSTEM INERTIA TENSOR Rc.LAT I Vc TO SYSTEM CENTER 
* OF NASS IN bGO Y l CUJkDINATtS IS) 

CALL wR I TtS( SYS IN ,o. 3. 3) 

C 

VsF< I T E ( NCI , l 0 1 1 ) 

CALL WRITES ( H T O T .1.3. 1) 

V.K I T E ( NC I . 1 0 12 ) 

CALL WRITES (TJTL.1.3.1) 

C 

WRITE INCT.1013) AH T C T . A TO T L . T C T KE . TOT PE . T J T E M J 
C 

IF ( I i S T .00 • 1 ) GU TO 100 

I l ST = 1 

RETURN 

100 TOLD = TNEW' 

CTCLC = CTNEW 
TNEW = T 

CALL 3t_CCNO (CTNtW) 

CPSTEP = CTNtW - CT OLD 
CPS6C = CP ST CP/ ( Tnlw-TUlD) 

CPSTEP = CPS lEP/FLUATI NGHWNT ) 

WRITE (NCT.IOU) CPSTEP, CPSEC 
C 


0 6089 
0 6090 
C 6091 
0 6092 
0 6093 
0 6094 
0 6095 
0 6096 
0 6097 
0 6098 
0 6099 
0 6100 
C 61 01 
0 6102 
0 6103 
0 6104 
C 6105 
0 6106 
0 6107 
0 6108 
0 6109 
0 6110 
0 6111 
0 6112 
C 6113 
0 6114 
0 6115 
0 6 116 
0 6 117 
0 6 118 
C 61 19 
0 6 120 
0 6121 
0 6 122 
0 0123 
0 6 124 
0 6125 
0 6126 
0 6127 
0 6128 
0 6 129 
0 6 130 
0 6131 
0 6132 


RETURN 0 6133 

END 0 6134 


C 


c 


SUBROUTINE PLOJWR 

IMPLICIT RcAL*a(A-h,C-Z) 

subrcutine to write plut output tape 

COMMON /LAMBDA/ 

♦ AL AM ( 36 ) 


0 6135 

DEBUG tt 61 0 6136 

0 6137 
0 6138 
C 6139 
0 6140 
0 6141 
10 6142 
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c 

c 


c 


c 


COMM UN /MAAMUM/ 

* NuM AX . NHMAX • NSPMA X ■ NM»M AX , N M W BCD . N MOOD D , <C M j , A. Y • K. U 

COMMON /MlMcNG/ 

* Pi 1 131 . PMUMl JC) .H1UI ( j) . TOTLl 3> .ENGKEl o) .LNi.Pt! 6 ) , 

* TOT KE t TOTPE. TGTENG. AHTCT.ATCTL 

COMMON /PLTDIA/ 

* NKPLOT . NCPLUT 

COMMON /SPLC IF/ 

* LtT AH ( 6 * 6 ) . dtl Ahp! 6 . 6 ).AM 0 ( 2 . 5 ) . Rrl ! J , 3 , 30 1 • R 5 ( 3 . 3 . 3 0 ) , 

* ChC 3. 35 ) .OS ( J . JO ) . 1 MU! j ■ 5 ) , MMUW { 6 , PJ .lrTSMi! Is), 

* NO . NH ,NSPT ,NCf MO, NOELT A , I TOPOL < 2. 6>,lkGr_X( o),lHDATA(7, 6), 

» LUCU 14) .LENUU4I . NO , NbE T A , NL A H , NE O 

COMMON / T APtNU/ 

* NT APE 1 . NT APE 2 . NT APEO 

COMMON /TIMESS/ 

* S TART T . DELTA! . T . E NOT , T Mb T 

COMMON / Vt_CT Ok / 

* Y ( 2 00 ) * YDT< 250 ) 


CATA IlST / 0 / 

IF ( IlbT .EQ . I ) GO TO b 

PEW I NO N TAPE J 

NR PL C T = 0 

JR ■= 6*N8 

IlST = I 

NLAMC = NL AM 

IF (NLAM ,E0. 0» NLAMl) = l 

NCPLOI = 1 FE*NEO+NLAMUFNOFJWF3FJF2*NaF5 
5 NRPLC-I = NRPLOT * l 

ink 1 T E (NIAPLJt T 

* . ( Y { J ) . J = I .NEO) . ( YOT ( J J , J— I « NEQ) 

* , l ALAMt J | , J=l .NLAKJI , (P( J) ,J = l ,NUI 

* , (PMUM(J) , J=i , JH) » (HTOT(J) ,J = 1 ,31 

* . I TL'TL! J ) . J=l . J ) , ( LNGKE ( J I , J = l ,NB) 

* . ( cNGPE { J I , J — 1 , NB 1 , AhTCT , ATUTL , TOI XL, f GTPL. TUTENG 


PETUFN 

END 


0 6143 
0 6144 
0 6145 

1 1 6146 
O 6147 
0 6148 
0 6149 
0 6150 

16 6151 

17 6152 

18 6153 

19 6154 
0 6155 
0 6156 
0 6157 
0 6158 
O 6159 

20 6160 
0 6161 
0 6162 
0 6163 
0 6164 
0 6 1 65 
0 6166 
0 6167 
0 6168 
0 6169 
0 6170 
0 6171 
O 6172 
0 6173 
C 6174 
0 6175 
0 6176 
0 6177 
0 6178 
0 6179 
0 6180 
0 6181 
0 6 182 


■ SuERCOT INl 0 YN530 
C 

c 

PEAL«d OOM, I C l 1 TL .1 l 1L 1 , T 1 TLO, PT l TLE 

C 

DIMENSION 2P ( 1000.161 »UUM( 15 0 0 ) . J VPL (16) 
CIMLNSICN ICTITl(IO) , MCJ ( J ) , P T I TLE ( 6) 

C 

COMMON /PLToTA/ 

* NkPLOT , NCPLU1 

COMMON /TAPENU/ 

* N 1 APo 1 , NTAPE 2 .NT APL 3 

c 

CA TA Ml ,NO I /5 , o / 


0 6183 

DEBUG *62 0 6184 

0 6185 
0 6136 
0 6187 
90 6188 
0 6189 
0 6190 
0 6191 
0 6192 
0 6193 
0 6194 
0 6195 
0 6196 
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CATA KRPLOT , KCPLOT /lOOO.lG/ 

READ (NIT. 1003) (ILTlTUli.Ul.lO) 

1005 FORMAT l lOAd) 

(ALL PAGEHO 

HklTE < NCT , 1001 ) ( id l TL 1 1 ) . 1= 1 , 10 ) 

1001 FORMAT (///, 30X, 3 IHSUMM ART UF PLOTTING 


I NF JR MAT 1 ON// . 1 OX , l 0 AO ) 


1003 


10 11 


RfcAD (NIT, 
FORMAT l i tl 
IF ( f'SHT . 
WRITE (NCI 

1003) N5ET 

51 

CO. 0) RETURN 

.10 11) N3ET , NRPLUT , 

FORM AH// 9 

I OX* 10HNSET 

= 15 

* 

1UX • 1 OHNkPLuT 

= 15 


10 X * 1 OHKRPLUl 

= 13 

IF ( rfiPLCT 

• LE • KRPL Ul ) 

GO ID 


i /, 


l OX. 10HNCPL J1 
10X.10HKCP-JT 


. J 1 


= 15, 
= I 5 


1009 

1500 


NR PL Cl = KKPLOT 
HR l TE 1 NCI , 1 009 J 
FORMAT 1 // . 1 OX . 46HNRPLU1 
CONT 1NUE 


tXCLcOEO KRPLOT AND HAS ilcbcT TO KRPLOT) 


DO 1 COO iS£T=l,N SET 

RE H I MO N T APE 3 

REAO (NIT. 10031 JPL 

IF (JPL .jT. KCPLOI) GC 10 993 

READ (NIT, 1003) ( JVPL1 J> .3=1 . JPL) 

HR1TE (NOT. 1012) I SL T . ( J VPL ( J ) . 3= 1 . JPL ) 

1012 FORM AT ( //, 10 X . 7Fi 1 Jtl = 1 3 . / 1 0 X . 7 H J VPL =lalj) 


200 1 
2000 


CO 2000 II =1 , NRPLUT 

REAU (NTAPL3) (DUMl l ) , 1=1 .NCPLOT) 
CO 2 C 0 l J= l , JPL 
JC = JVFL(J) 

2P< I 1 . J ) = J UM ( JC) 

COAT INUfc 


20 READ (NIT, 1003) NC I , ( NC 0 ( I ) , 1 = l . 3 ) . NGR I D 

IF (FCl .EU. 0) GC To 1000 
IF (NC I .GT . 1 ) NGR 1 0 = 1 

IF ( NCR l J .20. 0) NGR ID = 1 

READ (NIT. 1004) TI1LI.TI TLO,(PTITl.E( I) .1=1 i 
1004 FORMAT! 2(A0. 2X) , bAo) 

hRITE(NOT.IOOG) NCI . (NCJ ( 1 ) .1 = 1.3) « NGR ID. 

* T I TL 1 . T-l T LD . ( PT l TLE ( I ) . I = 1 , 3) 


o ) 


lOOt FORMAT (//, lbX./HNCi = , 1 3 . bX , 7HNCD 
^ l 5X » A(j» 3X » At*bXi6A8) 

CALL PL 1 CAR ( ZP • NCI ,NCJ .NKPlGT * NGR I 0 • 
♦ T nLMITLD.PUrLt, iCTi IL, KRPLOT ) 
CO TC 20 


— « Jl j i ‘jX * 7 nNijH I 0 — * 15,/ * 


ICOC COM I Not 


re Turn 


998 \*R l T £ ( NCT • l 020 ) 

1020 FORM AT< //* 10A.34HEkKUR 
ST CP 


IN PLOT INPUT DATA, STOP RUN) 


END 


91 6197 
0 6198 
0 6199 
0 6200 
0 6201 
0 6202 
0 6203 
0 6204 
C 62 05 
0 6206 
0 6207 
0 6208 
0 6209 
0 6210 
0 621 1 
0 6212 
0 6213 
0 6214 
0 6215 
0 6216 
0 6217 
0 6218 
0 6219 
C 6220 
0 6221 
0 6222 
0 6223 
0 6224 
0 6225 
0 6226 
0 6227 
0 6228 
0 6229 
0 6230 
0 623 1 
0 6232 
0 6233 
0 6234 
0 6235 
0 6236 
0 6237 
0 6238 
0 6239 
0 6240 
0 6241 
0 6242 
0 624.3 
0 6244 
0 6245 
0 6246 
0 6247 
0 6248 
0 6249 
C 6250 
0 6251 
0 6252 
C 6253 
0 6254 
0 6255 
0 6256 
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SUBKCoUNc PLTCAR (DATA, ni .nd. nr ,ng , 



0 

6257 

c 


DEBUG tf 

63 

0 

6258 


t T 1 1 LI ♦ T l TLO . T l TLP. T l TLM , XR) 



0 

6259 

c 




0 

6260 

c 

CATA DATA akI<aV 



c 

o26l 

c 

M LUC A T ION OF l NDdPL'NOE N f VARIAJLt IX) 



0 

6262 

c 

NO LUC A 1 ION GF Otl'tNOENT VAKIAi3!_~s ( Y ( i ) , 

>1=1 . 3 > 


0 

6263 

c 

AW NU OF VALUlS TU PICT 



0 

6264 

c 

NG NU OF GftlUS 



0 

8265 

c 

IITLi II ILL FGk iNUtPtNDE'Nr VAHIABl- A US 



0 

6266 

c 

TITLE TIT Lb f UK jtFuNOCNT VARIABLE AXIS 



0 

626 7 

c 

IITLP PLOT TITLE - UMOUF TO FRAME 



0 

6268 

c 

IITL.V PLOT lilLlr - ALL f FAMES 



0 

6269 

c 

KW RU'W DIMENSION GF CATA ARRAY IN CALLING 

PROGRAM 


0 

6270 

c 




0 

6271 


REAL *4 MINI. MAXI .Ml NO . MA Xd 



0 

6272 


REAL ♦ U I 1 TLP . T I TLM . T 1 T Li • 1 I TLD . T I TL ( 5) . I MJNNJ , 1 l>aI t 



0 

6273 


REAL td UNAMC . I I TLLi . T 1 1LE2 



0 

6274 

c 




0 

6275 


CCMMCN /L^MUJt/ AMLUL(LOJ) 



0 

6276 


CO MM C N /L START/ 1 RUNNG . 1 OA T E . N PAGE 



0 

6277 


COMM CM /L3IRT1/ UNA ML ( J 1 *1 IlLt l ( 12) .TITLED! 12) 



0 

6276 

c 




0 

6279 


C I ME N Ji Cf> UATA(KK.l) »l 1 TLPl 1 ) . T l TLM ( 1 ) ,ND( 1 > 



c 

6280 


DIMENSION V 1(1000). VOl 19 GO) 



9 7 

6281 

c 




0 

6282 


CA T A NKP / 1 2/ 



0 

6283 

c 




0 

6284 

c 

FGPM T 1 TL 



0 

6285 


f I TL (11 = I R UMNO 



0 

6286 


T I TL ( 2 ) = ID ATL 



0 

6287 


T l TL ( 3 ) = UNAMEI l ) 



0 

6288 


T I TL ( 4 ) = UNAMh(2) 



0 

6289 


T I TL ( a > = UN A MC I J ) 



0 

6290 

c 




0 

6291 

c 

no of plots 



0 

6292 


NPLCTS - 0 



0 

6293 


CO S I - 1 * J 



0 

6294 


IF ( N C ( 1 > • NL • 0) NPLUl S = NFLOTS+1 



0 

6295 


2 CCNT IN Jt 



0 

6296 

c 




0 

6297 

c 

FIND NUX/MIN GF DEPEND LN T VARIABLES 



c 

6298 


J = NJl l ) 



0 

6299 


MAX!) = C AT A( l . J ) 



0 

6300 


V l ND = LATA( I, J) 



0 

630 l 


CC 1C l=1*NPLLIS 



0 

6302 


J — N D ( L ) 



0 

6303 


CC 1 C i - 1 . NR 



0 

6304 


IFlUATA(i.J) .GT. MAXD) MAXO = CATA(l.J) 



0 

6305 


IF (DATA! I. J) .LT. MIND) MIND = CATA(I.J) 



0 

6306 


10 CCNT I NU c 



0 

6307 


IF { V, A X D .EU. Ml NO) MAXD = MIN'D 4- 10.0 



0 

6308 

c 




0 

6309 

c 

C-RID LUCF *.*************<•*♦***♦♦****** 



0 

6310 

c 




0 

631 1 


M. FT - l 



0 

6312 


NO I V = NH/NG 



0 

6313 

c 




0 

6314 


CO A 5 11 = 1 .NG 



0 

6315 


IF ( I I .GT. 1) NLF1-NRGT 



0 

6316 
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NRGT = I I* NO I V 
llr ( I I . tC . NG ) NRGT = N R 
NP = NfiGl - NL F I *- 1 

C 

C FIND MAX/MlN OF INDEPENDENT VARIABLE 

MAXI = CAT A( NLFT .NX) 

MM - OAT A( NL FT* NX X 
CC 1 1 X = NLF T .NRGT 

IF (DA TAX I, NX ) • GT . MAXI) MAXI = 0ATAII.NI) 
IF (0 A TA ( I , Ml ) .LX. MINI) MXNI = OATA(I.NI) 
1 1 COM INGE 

IF (MAXI .LG. MI.NI) MAXI = MINX ♦ l 0.0 
C 

C INITIALISE. MODE SETS 

CALL R5E TMul AMUOE ) 

C 

C SET CbJECT SPACE 

CALL SET SMGX AMUOE* L 9 • 1 .0) 

CALL SeT SMG( AMOOE .20 , I • 0 ) 

CALL Ud JCTGt AMUDC .G.U. 0.0,1. 0.1.0) 

C 

C ECX FRAME 

CALL Sl l 3MG( AMOOE . X A . 3 .00 ) 

CALL SL f SMGl AMOOE . 30 . A . 00) 

CALL L X NESGl AMUOE . 0 . 0. GO .0 . OG ) 

CALC L I NESG< AMUOE . I . C . 00 , 0 . 99 ) 

CALL LI NESGi AMOOE .1 » i.GG.0.99) 

CALL LI NESGX AMOOE . 1 . I . OG.O. 00 ) 

CALL L X NESGX AMOOE . X . C . 00 .0 . 00 ) 

C 

C UTLE FRAME 

CALL SETSMGI AMOOE ,45, I .2S) 

CALL L X NESg( AMOOE .0 . 0 . 050, 0 .02 0 ) 

CALL XEXTg ( AMOOt.d. TX TL< l ) ) 

CALL TEXIG ( AMODE.d. T I TL (2 ) ) 

CALL LI NESGX AMOOE . 0 , O. 300, 0 .02 0 ) 

CALL TEXTG ( AMUOE .g. TI TL (51 ) 

CALL IcXTG X AMOOE. G. Tl TL(4) ) 

CALL TEXTG ( AMOOE , G . T I TL ( 5 ) ) 

CALL llGNOGC AMOoE.O.CoO.O.OG, 80.TI TLM) 

CALL LEG NOG ( AMUOE . 0.300.0. 10. 46. Tl ILP) 

C 

C SET C0JECT2SUBJECT SPACE 

CALL GO JCT G( AMOOE ,0 . 0 X . 0 .03 . X . 0 ,1.0 ) 

CALC SgEJgGX AMUOE. MINI .MIND, MAXI , M AXD ) 


C 

C 


CARTESIAN GRXO AND LA6ELS 
CALL SET SMGX AMOOE , 14 , 0 . 00) 

CALL SET SMGX AMOOE .45, X .00) 

CALL SE T LPG( AM00C .1,01.00.1 XTH.IOTH.OLI .Di-O.FMT I.FMTO) 
CO 12 X = 106, 109 
1 2 AMCUE II) = 0.0 

CALL GR I OG (AMOOE. DI . 00. X I TH . IDT H ) 

CALL LAt)ELG( AMOOE ,0 , OL I , 0, FMT I X 
CALL LAOELGX AMUOE . 1 • OLD, 0 , FMTD) 

CALL f I TLEG( AMOOE .6. II TL X , 6 , T I TLO. 0 , DUMMVI 

FLCT O A I A 

CALL SET SMG( AMOOE . 30 .2 .00) 

CALL SETSMG< AMOOE ,4b . X .25) 


0 63X7 
0 6318 
0 63X9 
0 6320 
0 632 X 
0 6322 
0 6323 
0 6324 
0 6325 
0 6326 
0 6327 
0 6328 
0 6329 
0 6330 
0 6331 
0 6332 
0 6333 
0 6334 
0 6335 
0 6336 
0 6337 
0 6338 
0 6339 
0 6340 
C 6341 
0 6342 
0 6343 
0 6344 
0 6345 
0 6346 
0 6347 
0 6348 
0 6349 
0 6350 
0 6351 
0 6352 
0 6353 
0 6354 
0 6355 
0 6356 
0 6357 
0 6358 
0 6359 
0 6360 
0 6361 
0 6362 
0 6363 
0 6364 
0 6365 
0 6366 
0 6367 
0 6368 
0 6369 
0 6370 
0 6371 
0 6372 
0 63 73 
0 6374 
0 6375 
0 63 76 
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CO 4C Jssl.tfPLUTS 
I = NU( J ) 

IF <N FLU IS .EG. 1) GO TO 4 1 
Al = CATA(NLFT,Nt) 

AD - DA T A { NL FT* 1 ) 

CALL NUMuRGC AMUDL « M • AD. 1 • J ) 
CALL ^UMEHOl A MOD 6 *A1 ■ AJi 1 ♦ J ) 
4 1 NL - NLF T - l 

NK = NP/NKP 

XK = 0 


0 6377 
0 6378 
0 6379 
C 6380 
0 6 381 
0 6382 
0 6383 
0 6384 
0 6385 
0 6386 


UG 2C K - 1 * NP 

V1(K J = DATA ( NL*K ,Nl ) 


VO (K ) = CATA ( NL*K , 

. 1 1 


IFINFLUTS .tO. 
KK — KK + l 

1 ) 

GO 

r u 

IF ( K K .Nc. NK) 

GO 

1 0 

2 0 


KK = 0 

CALL NUMckC ( AMUDL *Vi(K)*V0(K)*l*J) 
CALL NUM ERG ( AMUDL « V 1 ( < ) • VD (K)*l*J) 
2 C CONT INUl 

CALL L l ISESGC AMUDL *NP . V l * VD ) ' 

CALL L 1 NCSGl AMUDL *NP . V I . VD) 

IF ( N FLO J S *UQ. 1) oU TO 40 
A 1 = U A T A ( NK wTiNl) 

AD = u A f A ( NR G T * I) 

CALL NUMLkGC AMUDL . A l , Au • 1 • J ) 

CALL NJMEHG( AMOUC * A I * AD • 1 * J ) 

4 0 CONT IN J£ 

C 

C ADVANCE FRAME 

CALL PA GLg( A MODii .0. 1 • i ) 

45 CONTINUE 
C 

RE TURN 
END 


0 6387 
0 6388 
0 6389 
0 6390 
0 6391 
0 6392 
0 6 39 3 
0 6394 
0 6395 
0 6396 
C 6397 
0 6398 
0 6399 
C 6400 
0 6401 
0 64 02 
0 6403 
0 6404 
0 6405 
0 6406 
C 6407 
0 6408 
0 6409 
0 6410 
0 64 1 1 


SULRCuTINc DYN340 

C DL DUG ft 64 

IMPLICIT «EAL*9( A-h.C-Z) 

RCAL44 SAVED* SAVLP* SAVED. SAVEA 
RE AL < 4 F M 1 N * F MAX • UuM I N * U bMAX • T 1 TLL 
REAL *4 AMIN* AMA X 

LATuLT MUD UN 09/04/75 

C 

C TI-IS CVEHLAY PERFORMS Tnc LINEAR I ZLO SYSTEM ANALYSES. 

C 

c 

c 


C DATA STREAM CUNTPCL 

C FQk THIS LVLRLAY 

C 

C LMAM FORMAT A* 

C 

C IF (LNAM .LQ* 4H ) RETURN 


0 64 12 
0 64 13 
0 6414 
0 64 15 
0 64 16 
C 64 17 
0 64 18 
C 6419 
0 6420 
C 6421 
0 6422 
0 6423 
0 6424 
C 6425 
0 6426 
0 6427 
0 0428 
0 6429 
C 6430 
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u u u 


C IF (LNAM .Eu. 4HT1ME) GO TO 400 

C 

C CALL RtAOIM <LR Y • i 0 • NC YC • i 0 . KR ) 

C 


CONI I NOE 


DO 5 C 0 1GP = i , 5 


IF 

IF 

* .OR. 

* .OR . 

* .OR . 
4 .OR . 

IF 


(LPN AML ( ICP ) 
(LPNAMEI I OP) 
LPNAM£( ICP) 
L PNAMc ( ICP) 
LPN AML ( IOP ) 
lpnamci l UP) 

(LPNAMciC l CP ) 


• EQ « 

• LO • 
.lQ . 
.eO . 

• i_Q • 

•to « 

• to • 


4H ) 

4KbUDt 
4 h N 1 C H 
4HNYOU 
4 H 6LNN 
4HNI NY ) 
‘♦HhCbl ) 


GC TO U00 


GO 

GC 


TO 

r c 


200 

300 


GO TC 9S >99 


2QC CON T INUE 


--JCUE, NICHOLS. NY Gl I SI SCCTIJN- 


6431 

6432 

6433 

6434 


c 


NOTE LHYt 1 . J 1 = 

I TYPE 

0 

6435 

c 


LR Y ( 2 . J ) = 

I TFIN 

0 

6436 

c 


LKY(J.J) = 

J Tr GUT 

0 

6437 

c 


LHY14.JI = 

K PLOT 

0 

6438 

c 


LfiY(b.J) = 

I AFLG 

0 

6439 

c 


L«Y(6,JI = 

NO. B • S TQ KEEP -- i T YP£=7 

0 

6440 

c 


LRYI7.J) = 

LOCAL ID. NO. OF d • S TG RETAIN. 

0 

64 41 

c 


LKYI8.J) = 

LOCAL ID. NO. UF U*S TO RETAIN. 

0 

6442 

c 


LkY(9,J) = 

LOCAL ID. NO. OF 0>S TO RETAIN. 

0 

6443 

c 




0 

6444 

c 




0 

6445 

c 




0 

6446 

c- 

— 

-CALL REAOIM ( I R Y , 3 , NCY C . 3 . KR ) 


0 

6447 

c 




c 

6448 

c 


NOTE I R Y ( i » J ) = 

ROOT TOLERANCE EXPONENT. 

0 

6449 

c 


IRY12.J) - 

GAIN TOLERANCE exponent 

0 

6450 

c 


IRYI3. J ) = 

R COT TOLERANCE EXPONENT 

0 

6451 

c 



USED TO R E MO Y E SHIFT FREQ. 

0 

6452 

c 



IN SUBROUTINE NUMS. 

0 

6453 

c 




0 

6454 

c 


CG 500 I C YC a 1 , NCYC 


0 

6455 

c 




0 

6456 

c — 

— 

- T I TLE 

FORMAT (2CA4) 

0 

6457 

c- 

— 

-LPNA^E.LPTAPe.LtlOV.LPLLY 

Format (20A4I 

0 

6458 

c 




0 

6459 

c 


IFIlE IGV .Nfc. 4HE I GVJ GO TO 23 


0 

6460 

c~ 

— 

-FQMI f> ,F CMAX 

FORMAT I 2F 10.0) 

0 

6461 

c 


IMAGINARY PART .GT. FGMIN 

1 AND .LT. FQvlAX 

0 

6462 

c 

23 

CONT INUE 


0 

6463 

c 




0 

6464 

c 


if (lfcly.ne. 4HP0lyi go to 41 


G 

6465 

c 


ccmpute ano output the transfer function in expanded 

0 

6466 

c 


pclyncmial format 


0 

6467 

c 

4 1 

CONT INUc 


c 

6468 

c 




0 

6469 

c 


I F ( LPT APE.E0.4H7 IRK ) UOMP /PSTUFF/ GN 7-T R AC< TAPc l UN I T 1 c) 

c 

6470 


- FfA IN # r t* AX , DBNIN. UdM*X • AMIN. AMAX 


FJ-tvlAl IoF'10.0) 


6471 

6472 

6473 

6474 

6475 
64 76 

6477 

6478 

6479 

6480 

6481 

6482 

6483 

6484 

6485 

6486 

6487 

6488 

6489 

6490 
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C CC I C oOO o 6491 

C 0 6492 

C JOG fCMlfiU 0 6493 

C ROOT Ll-C'ub jtLflCN q 6^94 

C 0 6495 

C (ALL HlAiJIM {IJH» tit 06496 

C CALL Rfc'AC ( k'LL . 7, NkLC. Nk . <R) 0 6497 

C 0 6498 

C LO 3J0 ICC =l.NkLC 0 6499 

C 0 6500 

C J5C CCiNT 1 N'J L 0 6501 

C C-0 I C jCC 0 650 2 

C 0 6503 

C 400 COM INUC 0 6504 

C 0 6505 

C 600 CONTINUE 0 6506 

C R£TUTN 0 6507 

C C 6508 

C D I MfcN ol uNEO WORK Sk'ACCS 0 6509 

C C 6510 

C 0 651 1 


C 

C 

C 

C 


0 I M E N 

1 CN V SI ( 4 14 > , VS2( 20 7 ) 

41 2 

6512 

31 VEKS 

ICh LPNAME(d) 

0 

6513 

01 VIZI" 3 

I LN oN iJ(2) • vjUO ( 2 ) 

0 

6514 

l> I M £ N 

5 1 CN HUM ( lOOl.klM 10 0) , RRO ( 1 00 ) , R l 0( 1 0 0 ) , K2K l 100) ,R2l < 1 00 1 

4 1 4 

6515 

0 1 MEN 

SIGN 1 JM< 2 , ICO ) . LRY< 9 , 100 ) . IRY<3.100). <ukR(3) 

4 i 8 

6516 

C I *6 N SI CN RUCTRE ( 100 > , ROOT l l( l 00 ) , • ( 100 , 41 , IK 3 w( 100 .2 ) 

41 S 

651 7 

LINENS 

ICN XR( 100) , A i ( 10 0), V k ( ICO) , V I ( t 0 0 ) 

4 Ifc 

6518 



0 

6519 


COMMON BLOCKS 

0 

6520 



c 

652 1 



0 

6522 

CCVMCN 

/KDSl ZE/ 

0 

6523 

i 

KR* KKT • KRX • KVl, K V 2 • KVX 

0 

6524 

CC^MCN 

/LOSI IE/ 

0 

6525 

2 

NX. NY, NOLI A, NXSS. NO. NO J , NY 2 , ND2 

0 

6526 

CC VMCN 

/LCUUNT/ 

0 

6527 

2 

NNH, ICN. NN2. NOR, ICO. NO 2 

0 

6528 

CO VMCN 

/ TAPtlNO/ 

0 

652^ 

4 

NUl l , NuT 2. NUT 3 

0 

6530 

CLMMC N 

/ m sc nl;/ 

0 

6531 

t. 

NCPKNl , NCPLLT 

c 

6532 

CCMMCN 

/lbja r A/ 

0 

6533 

t 

EMIN* f* MAX* C6MIN* CBMAX 

0 

6534 

CCWMCN 

/ L r GL / 

0 

6535 

7 

TCJLN. TULL) 

0 

6536 

CLN.MCN 

/LT I T LE/ 

0 

6537 

e 

T 1 ILE<2o) 

0 

6538 

CCVMCN 

/LUV / 

0 

6539 

<5 

I V ( 250 ) . JV (250) 

420 

6540 

CCMMCN 

/LHAk ay/ 

0 

6541 

A 

FORN(IOO), FBNC(IOO). FHRD(IOO), FBOC(IOO) 

422 

6542 

COMMC N 

/Lftoor / 

0 

654 3 

Q 

R ( 267 ) , kX (414) 

424 

6544 

CGMMCN 

/ LV l / 

0 

6545 

C 

VI (100). V 2 (100), V 3 (100) 

426 

6546 

CG-VMCN 

/ LV2 / 

0 

6547 

c 

XVI ( 10U) , XV2 (100). X V 3 (100), XV 4 (100) 

428 

6548 

COMMCN 

/ VfcCT OR/ 

0 

6549 

E 

Y ( 250) . YO ( 250 ) 

430 

6550 
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COMMCN / E W OR K l S 0 6551 

F hi l 100. 100) . 1*2( 100.100) 432 6552 

CGMMCN /TIMfcSS/ 0 6553 

C ST. 01. I, El, TMST 0 6554 

CC VMCN /PLTOTA/ 0 6555 

I NRPLOI . NLPLUT 0 6556 

CGMMCN /F5TUFF/ 0 6557 

» SA VCO ( 50 0 1 • SAVEF<500). SAVEO(_,OOJ. SAVEAI500). KSAVE 447 6558 

C 0 6559 

C C 6560 

C EQUIVALENCE MAP 0 6561 

C 0 6562 

C C 6563 

C 0 6564 

EQUIVALENCE < V31 (20d) . V521 1 ) ) 434 6565 

C 0 6566 

0 6567 

DATA STATEMENTS 0 6568 

C C 0569 

C O 6570 

CATA LBCDE. LROGT, L N Y Q U « LNICh, LN1NY. LIlMc. LLiLNlC, L80NN7 0 6571 

* 4HBOOE . 4HP00T . 4HNYQU.4HN I CF .4 FN INY .4HT 1 ME . 4N .4HB0NN/ 0 6572 

c 0 6573 

CATA MI/ W 0 6574 

CATA NUT/ 6 / 0 6575 

DATA IF ST , NUT 1 2 ,L 71 RN/O . 12 .4H 7 TRK/ 0 6576 

C A I A LrCGVAL/ 4FIE I OV/ O 6577 

CATA LPCJLYN/ 4HP0LY/ 0 6578 

C 0 6579 

LOGICAL CEUUG.LEGU , 0 6580 

COMMON /LUtbUG/ 0toUG(120) 0 6581 

EQUIVALENCE (LEUU.OEoUGl 04 >) 0 6582 

C 0 6533 

1003 FORMAT (20A4) 0 6564 

1004 FORMAT ( cF 10*0) 0 6585 

200 1 FORMAT 1//.5X.10HGN ICYC = . I 2 .2611 .NUMERAL JK GAIN LESS THAN C 6586 

* U10.4.16HWA5 ENCCUNT EREO . .// . 5X, 0 6587 

* 23HTF.E dUUfc GAIN VALUE IS J10.4.//.5X. 0 6588 

* 47HPH0GKAM CONTINUING WITH NEXT THAMSFiR FJNCTION.) 0 6589 

C 0 6590 

IF(LEGu) W R I TE{ NUT. 1000) C 6591 

1C0C FORMAT (• SUBROUTINE UYNS40 •) 0 6592 

C 0 6593 

C SET UP FIXES INTEGER JATA 0 6594 

C 0 6595 

KR = ICO 436 6596 

KHT = 207 436 6597 

KRX = 414 440 6598 

K V 1 = 4 14 442 6599 

K V 2 = 2C7 444 6600 

KVX = IOC 446 6601 

K3 •= 3 0 6602 

K9 = 5 0 6603 

C 0 6604 

C SET UP VARIA8LL INTEGER OATA 0 6605 

C 0 6606 

NY 2 -= NX - NULTA - NXSS 0 6607 

NO 2 = NULTA - NB 0 6608 

C 0 6609 

REWIND NUT 2 0 6610 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


REWIND NUT3 

HLAO IN L I Nfc AK 1 ZL U PARTIAL DEPIVAT1V- MATRIX Fftii M UNIT NUT 2 
PE'RFGKM SIMILARITY TR ANbF OR M A T I CN , AND P JT A* BACK GN NUT2 • 

FROM SUBROUTINE CuNTRU 

NX SS = NUMoLk QF StNSOR SIGNALS 

N8 = NUMOEk OF TORQUE SIGNALS 

NX* NJO CGMPUfLJ IN LINEAR 

ft = ZNEW VcCTURS COMPUTED IN LINEAR 

Wi = THE H MATRIX UF EQUATION I I 1-21 VUL A 

1 a 2 = THE C MATRIX OF cCUAT ICN III-2G VUL 1 


NAoX -= NXSS ♦ ND 
CO SC L = l . NX 

READ <NUT2) ( ft ( I ) *1— I • NJ Q) 

CO Ai 1=1. NX 
AS Will *L ) ■= ft( I ) 

C 

DO At I = 1 . NAUX 
J - ^x^•l 

At M2 ( I *L I = ft ( J ) 

5 C CCNT INUc 

IF(LECU) WRITE (NUl.lUOl) 

1001 FORMAI l • -A- IS THE COEFFICIENT MATRIX F'JR t -iz. UNEARNED PERTURB 
WAT 10 F eGLATI CNS 1 > 

CALL wk ITt ( W1 *NX»NX# Jn-A-iKR) 

IF(LcUU) WRITE (NUT* IOCS) 

100S FORMAT l • -A-AUX IS THE COEFFICIENT MATRIX USED TO DEFINE SENSOR A 
*NO TCftuUE SIGNALS AS UNEAk FUNCTIONS OF jfAld VAKlAoLCS •) 

CALL WRITE ( W2.NAUX, NX .Oh-A— AUX.KR ) 

C 

RE W I h 0 NLT2 

WRITE (NOTE) ( ( W 1 ( A . J ) . 1 = 1 *Kk) , J= 1 *KR ) 

WRITE l NCI 2) a»2(i.JM=i,K«),J=l.XR) 

C 

REWIND N L 12 

C Gel COMPLEX HOLTS UF 1 HE LINEARIZED COJPLtJ SYSTEM EQUATIONS 

C PLANT PLUS CCNIkOL SYSTEM ECUATICNS 

CALL UR UK Vk ( W A *NA#KftU«ftlU*Rk) 

READ (NO T2 ) ( ( W 1 ( I * J ) *1 = 1* Kk ) * J = l • K R ) 

READ ( N U T 2 ) ( ( ft I ( 1 * J ) * 1= A .NR ) * J= 1 . Kft) 

REWIND NCI 2 
C 

C Wl CCNT A 1 NS T He COEFFICIENT MATRIX FOR The SchSUR AND TORQUE 

C S I GOALS 

CALL AS I ML ft ( W I * W L . I V . KR ) 

C SAVE W2 = OF EQUATION III -2 V VJd 1 KtuftOED FORM 

WRITE (NLT2) ( ( *v 2 ( 1 • J ) *1=1 * Kft ) * J = 1 .» K R ) 

RE w I ND NcT 2 

IF (L ECU) WWI Tt (NUT. 1002) 

10C2 rURMAT (• -AW- IS THu COLFF I L l EN T MATRIX FJ* T HE L i NcAR I ZED ECUATI 
w C N S CF MOTION WITH SeNSUft AND TORQUE SIGNALS •) 

CALL AK 1 IE ( W2* NX * NX * 4H-A#- *i<k ) 

C G 6 I COMPLEX kJUTS OF TRANSFORMED EQUATIONS 

CALL QftURVk l W 2 * NX » is R N » k A N • K ft ) 

C REMOVE NLMULRS SMALL cK THAN |*u-3 FROM ROOT ARRAYS. 

C 

CALL oiH T (Rf<U* NX • l • O-S) 


0 6611 
0 6612 
0 6613 
0 66 l A 
0 6615 
C 6616 
0 6617 
0 6618 
0 66 19 
0 6620 
0 6621 
0 6622 
0 6623 
0 6624 
0 6625 
0 6626 
0 6627 
C 6628 
C 6629 
0 6630 
0 6631 
0 6632 
0 6633 
0 6634 
0 6635 
0 6636 
0 6637 
0 6638 
0 6639 
0 6640 
0 664 I 
0 6642 
0 6643 
0 6644 
0 6645 
0 6646 
0 6647 
0 6648 
0 6649 
0 6650 
0 6651 
0 6652 
0 6653 
0 6654 
0 6655 
0 6656 
0 6657 
0 6658 
0 6659 
0 6660 
0 6661 
0 6662 
0 6663 
0 6664 
0 6665 
0 6666 
0 6667 
0 6668 
0 6669 
0. 6670 
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CALL SIFT (ft IO.NX.l.D-5) 

CALL SIFT (RHN,NX.i.U-b) 

CALL SIFT (klN,NX,1.0-b) 

C 

C PRINT BOTH SETS OF COMPLEX ROOTS* THEY SHUJLD u£ EQUAL 

C TFEIR CLOSENESS i S A GOAlITIIY MEASURE -OR J Ht 

C similarity TRANSFORMATION 

CALL RWRITE (2 *RRD*K 10 *RKN ,R1 N *NX * NX*4HRT A,4-<KTA#) 

REAL) (NuT2) ( (W2< I *J) ,Ul.KK),J = I.KR} 

RE*1M) NL T 2 

c 

c real in Control variable* lnam anc branch to app^giate section. 

C** ♦** ****4** ******* REAS IN TYPE OF STABILITY ANALYSIS 
READ (Nil* 1003) LNAM 

C LNAM = 4HT1ME LINEARIZED TIME RESPONSE 

C = AH F RE O FREQUENCY RESRCNSE ANALYSIS 

C = BLANK RE 1 URN 

C 

IF (LNAM *£Q. lolnkj return 
IF ( LNAM .EG. LTIML) GO TO 400 

c 

C FREQUENCY OCMaIN ANALYSIS SECTId^ 

c 

c 

c read in frequency analysis control variables 

C** ******* 4 * * * **** ** RE AG SPECIF ICA1 ICNS TO DEFl nj»_ I^ANjFER FUNCTIONS 
C LHV r ARRAY DEFINES 1 RANKER FUNCTION 3 PEC 1 F I u A 1 1 ON DATA 

C NCYc = NUMBER OF StPERAIE TRANSFER FUNuTIUNo IU LUNSIOER 

CALL READIM (LkY.Nj.NCYC »KV ,KR ) 

NERROR -= 0 


********* READ tAFGNcNT TOLERANCE DATA 
CALL K^ACIM ( I R Y * N3 • NC 2 • K J « K.R I 

IF ( NC2 *Nb« NCYC) GO TO 9999 

CO 5 CO I CYC = l.NLYC 

IT YPE = LRY( l . ICYC) 

ITF l N ~ LRY( 2* ICYC ) 

JTFOLT = LRY <3* ICYC) 

K PL 0 1 = LRY( ** I CYC) 

IAFLC = LkY( 5* ICYO 

I TYPE = TRANSFER FjNCUlN T YPE 

I tf i n - integer tu, define input signal fur ikansfer functign 

JTFOLT = INTEGER TO unFlNL OUTPUT SIGNA_ 

KFLOT - INTEGER TO DEFINE IF PLOTS REQuIRuJ 

1 /FLu = SHOULD CHARA TEKl ST I C EQUATION OR ITS TRANSPOSE BE USED 
TO GET TRANSFLR FUNCTIGN 


NERROR - 1 


if ( i type .eo. 0) gu tu duo 


6 ) GO 1 L> 55 


IF t IADS ( I TYPE ) .Li_ 

NBKP = LRY (6 • ICYC) 

CO 54 i=l,NOKP 
KBKP(I) = LR Y ( I + o * ICYC ) 
CON T IISUE 


SET UP CEFALLT VALUES IN ARRAY IRY* 


0 6671 
C 6672 
0 6673 
0 6674 
0 6675 
0 6676 
0 6677 
0 6678 
0 6679 
0 6680 
0 6681 
0 6682 
0 6683 
C 6684 
0 6685 
0 6686 
0 6687 
0 6688 
0 6689 
0 6690 
0 669 1 
0 6692 
0 6693 
0 6694 
0 6695 
0 6696 
0 6697 
0 6696 
0 6699 
0 6700 
0 6701 
C 6 702 
0 6 703 
C 6704 
0 6705 
0 6706 
0 6707 
0 6708 
C 6709 
C 6710 
C 6711 
0 6712 
C 6713 
0 6714 
0 6715 
0 6716 
0 6717 
0 6718 
C 6719 
0 6720 
0 6721 
0 6722 
0 6723 
0 6724 
0 6725 
0 6726 
C 6727 
0 6728 
0 6729 
0 6730 
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or. n noon 


c 

c ** * 






0 

0731 

IF ( 

IR r ( l . I CYC ) 

.LC. 0 ) 1R Y< l , 

I CYC ) = -7 

0 

6 732 

IF ( 

IRY ( 2. 1 CYC ) 

» Eu • 0) IRY12, 

I CYC ) = -7 

0 

6733 

IF ( 

ik r ( j. i C yc > 

• c Cl • 0 ) 1RY ( J , 

I CYC) = -7 

0 

6734 





0 

6735 

TCLN 

= 10. uo ** 

I RY { 1 , IC VC ) 


0 

6736 

C T CL 

= l C • Ju * * 

l *< Y < 2 » I CYC i 


0 

6737 

FT CL 

= iC.OO ** 

1RY ( J, ICYU 


0 

6738 





0 

6739 

TCLO 

= TCLN 



0 

6740 





0 

6741 





0 

6742 

IF ( 

1 A J SCI TYPE) 

. L T . i • CR • 

I TYPE .GT . o ) oJ TU 9999 

c 

6743 





0 

6744 

** * * 

J******* * * 

READ T 1 TLt F LR 

TRANSFER FUhLIIvJN icyc 

0 

6745 

READ 

CN IT t 10 03) 

T I ILE 


0 

6746 





0 

6747 


f.EAJ (Nile!) ( < *21 I ,J ) * [= 1 .KR) * J = | ,KR ) 

W 2 - H**(-l)*H*h IN EQUATION ( i 1—24 VOe l 

few i n u n ut 2 

CALL 1KIYPL ( fcv2 « W l , V i « NX *NA • 1 T YPt # l TFI N .N3<P ♦ < JiCP • K.R , KK ) 
E * l I THYPH WITH 

Wl = CHARACTtR ItiTIC MATRIX 
VI = CUkRebPUNO i No INPUT CCEFF l C I - N T b 
ASSuCiATLu WITH PARTICULAR 7 YPe TRA NS Ft ^ FUNCTION 
PLT CHARACTER I 5T i C MAThlX CN NU T 3 
CALL V<k l TC C W 1 , NA »NA . Ah- Aft- *Kft ) 

CALL < VI » 1 » NA, 4HI3CLL » 1 ) 

WRITE (NLTUi ( ( Wl U > J ) * l-l »KR) * J = l « K R } 

RCV. I NO NUT 3 

NLto HAVE: ReCUCLu TF A* ON NUT 3* 

L FT AIN FLU IS FUR i)L NUM I N A T Ok • 


CALL JkuFVR (Wl «NA »RRO «R ID • Kk ) 

CALL SIFT (R RO, NA , TOLU i 
CALL t>|FT <K IO.NA, TOLJi 

RE AO (NLTJ) ( ( M?( J .1 ) • I = l ,Kk ) • J = 1 ,KR) 

REaIND NLT3 

GET ROUTS OF TRANSPUSt OF C HAh AC TcR I STI v_ LOCATION 
CALL GkURVR <W2*NA ,vi,VJ,Kf<) 

CALL ilFT <V2,NA,TuLU) 

CALL GIET (V3,NA,TGLU) 

CALL RwWlTd ( 2 , RRO .k l J , V «c . V 3. N A ,N A ♦ 4HR AR.4HK*wlj 

IF ( lArLG .cQ. 0) uU TO 69 
CO 5E I = 1. NA 
RPC ( I ) = V2{ l > 

ae r i c ( i j = v3 ( i > 

59 continue 

DETAIN PCuTS OF NUMERATOR. 

READ (NLT3) ( ( W l ( 1 . J > , l = l • KR ) * J= 1 , KR ) 

Re W I NJ NuT 3 


6 74 8 

6749 

6750 

6751 

6752 
67 53 

6754 

6755 

6756 

6757 

6758 

6759 

6760 

6761 

6762 

6763 

6764 

6765 

6766 

6767 

6768 

6769 
6 7 70 

6771 

6772 

6773 

6774 

6775 

6776 

6777 

6778 

6779 

6780 

6781 

6782 

6783 

6784 

6785 

6786 

6787 

6788 

6789 

6790 
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L C L A T E OUTPUT SIGNAL FOR COMPUTATION 0= PARTICULAR TYPE 
T MNijFck FUNCTION C AlLuU FOR 


0 6791 
0 6792 


c 

OBTAIN 

ABSOLUTE JTF 

LOCATION CASED UPON LOCAL 

JT-iiJT . 

0 

6793 


JTF 

- NY2 + JTFUUT 




C 

6794 


IF ( 

1ABS ( I TYPE) 

• EG • 

2 ) 

JTF ■- NC2 ♦- JTF OUT 


c 

6795 


IF ( 

I AGS ( I TYPE). 

• i_U • 

3 ) 

JIF = JTF f NX S S *- 

NO 2 

0 

6796 


IF ( 

I ABS ( l TYPE) 

• cG • 

I ) 

JTF - JTF + NX S S *- 

NO d , 

0 

6797 


IF ( 

I ASS ( i TY PL) 

• EG* 

3 ) 

jTF = JTFOUT 


0 

6798 


CALL 

NCMS ( W l * W2 

• VI. 

rkn 

• ki N *R2R *R2 I .PTOL . 


0 

6799 


* 

GAIN. 

I F LG 

.NNjM.NTfiU.JTf .NA.KR) 


c 

6800 

C 







0 

6801 


NN = 

NZRC 





0 

6302 


NO = 

NA 





0 

6803 

c 







0 

6804 


IF ( 

I F L G « NE • 0 ) 

oO 

TO 

C 5 


c 

6805 


64 IF LG 

•= 0 





0 

6806 


CALL 

PAGEHO 





c 

6807 


WRITE ^NClt^OCl) lLYC.GTCL.o8 
CO T C / 5 
6 5 CCM INUL 

CALL SIFT (RRNiNNi IULN) 

CALL SIFT I ft INiNN , I OLN ) 

CALL UCGRRT TO SEPERA TL NUMERATOR QR ROOTS INTO REAL ANO ZERO 
RCOTS (RETURNED IN VI) ANO COMPLEX PAIR;, (RETURNED IN V2 ) 

CALL Ok-ORRT ( RRN . HI N . MN • NNft , I CN ,NN Z . V I . V2) 

CALL DFOftMB { NNR . ICN. V I • V2 ,FbRN *F SNC . V3 • l . JO • ^A l N , GN8 ) 

7 C CONTINUE 

CALL ftwHITL ( 2 . RRN . ft I N • RRD , K I D , NN * NO . 4H NjM.4i DEN) 

SEPERATED OR ROUTS OF DENOMINATOR 
CALL CCQRRT ( PRO • RAO , NO . NOR , I CD .NO Z . VI * V2) 

CALL CFCKMb (NOR* I C J • V I • V2.FBR0.FB0C.VJ. I* JO « 1 •UOtoOB) 

CO = GNE (2 ) / GOO ( 2 ) 

GE = EODE GAIN SEE EG CAT l ON 111-48 AND I 11-70* VUL l 
ARRAYS FBRN. FBNC* FBkD, AND FBDC CONTAIN SYSTEM TIME CONSTANTS 
DAMPING AND FREcUENCIES REQUIRED IN EQJATIJN II 1-70* VOL 1 
IF (CAOS(GB) .LT « GTUL) GU TU 64 


“LSTAELI Sh WORKING ROOT COUNTS* 


CALL ZERO ( X V I * 1 • KVX • I ) 
CALL ZERC (XV2* I • KVX • I ) 
CALL ZERC IXV3. 1 .KVX. i ) 
CALL Zl ft C ( X V4 * 1 * KVX • I ) 

IF ( KNft .EG. 0) GO TO 2202 
CO 2 C l l = l*KNR 
20 1 XV It I ) = F OR N( I ) 

2202 CONT INUE 

IF (KCK «EQ« 0) GU TU 2203 


0 6808 
0 6809 
0 6810 
C 6811 
0 6812 
0 6813 
0 6814 
0 6815 
0 6816 
0 68 l 7 
0 6818 
0 6819 
0 6820 
0 682 1 
0 6822 
0 6023 
0 6824 
0 6825 
0 6826 
0 6827 
0 6828 
0 6829 
0 6830 
0 6831 
0 6832 
0 6833 
0 6834 
0 6835 
0 6836 
0 6837 
0 6838 
0 6839 
0 6840 
0 6841 
0 6842 
0 6843 
0 6844 
0 6845 
C 6846 
0 684 7 
0 6848 
0 6849 
0 6850 
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vj U U U 


CO 2C2 l-l.KDR 
2 0 2 XV 2 ( I J ~ FUR DC l ) 

2202 CONTINUE 

IF ( KCN <LQ. 0) GU TO 2204 
K= 2* KCN 
CO 2 C J l — l • K 

203 XV 2 ( I ) = FUNC( l ) 

2204 CONT INUE 

IF ( KCD • ElU 0) GO 1U 20b 
K = 2* KCU 
CO 204 1M»K 

204 XV 4 ( 1 ) = F LiU C ( i ) 

2 oe cc n r i Nut 

-REMOVE real zeros prior to call to ttff 

IF ( KNH .NE. OJ CALL RMVZRU (XVl.KNR) 

IF ( KJN «Nt_ • 0) CALL RMVZkCi (XV3.KCR) 

CALL ZlRC IR • 1 • KK T • l ) 

CALL ITFF TO 5LI UP The wJOTS ARRAY R 
CALL I IFF (KNR , KCN *KNZ # KOR ,'KCL) .KOZ t 
4 obiXVl • X V 2 t XV3*XV4«H*KRT ) 

C 

C CALL CANLUR Tu CANCEL OUT RCCTS COMMON Tu NJM. ANo DEN • 

CALL CANCCR (R) 

IF ( • NO I • LtUo ) GO 10 10 
VvR IT t (NUT t 10 06) 

lOOC FURMAT (• UbCT ARKaY CUT OF CANCUR IS •) 

CALL V»R I TESI H t 1 *KkI , 1 ) 

1C COM INUE 
C 
C 

C*« tf ** ** ** 4*¥*4*«^ 44 REAL IN DISPLAY CONTROL VAr<l Ad_cS 
C 

7 5 REAJ CM T f loo J) LPNaML , LP 1 AP t * Lt I GV *LPOL Y 
C 

C CHECK TO 3LE IF t 1 vjCNVlC I ORS ARE IC 3E L o M -* J f E O 

C «< c A J FREC1UENLY GRRc_AJ FOR ROOTS CF C rt AR A C T ck l b T l C EQUATION 

IF ( L E I b V *NE • LEG V AL ) Gu IU 23 
C 

C 4 4 4 4 4 444444444444 *RE AO IN RANot FUR EIGENVECTOR CUa^j TAT 1 UN 

C 

Rfc AO CM r • 1 00 4 ) F SMI N .r UMAX 
IF ( I FLotlUtO ) GO Tu 20 
IC = 0 

CU 2 A I = l . ICU 

IF (V5 ( 2* I ) .L1*F QMIK. Ck* V242 *1 ) .GT .F-CMAX ) jU TO ^*4 
IC = ICFl 

RGCTPc(lC) = V2(2*I-i) 

RCC T It( IC) = V2 ( 2*1 > 

2 4 CCNT I tNoE 
C 

c pit rlct IN ORiOLR 

CO 2 t 1= 1 . 1C 
V S V S R L C T IE CM) 

I S V = M 
M = k ♦- l 

IF (Ml • .* E • I C ) GU TO c8 
CO 2 1 H-W 1 . I C 

IF (V SV.Gu.KU01*lL( M ) SL IG 27 


0 6051 
0 6852 
C 6853 
0 6054 
0 6855 
0 6856 
0 6857 
0 6858 
0 6859 
0 6360 
0 6861 
0 6862 
0 6863 
0 6864 
0 6865 
0 6866 
0 6867 
0 6868 
C 6669 
0 6870 
0 6871 
0 6872 
0 6873 
0 6874 
0 6875 
0 6876 
0 6877 
0 6Q78 
0 6879 
0 6880 
0 688 1 
0 6682 
C 6883 
0 6884 
0 6885 
0 6866 
0 6687 
0 6888 
0 6889 
0 6890 
0 6891 
0 6892 
C 6893 
0 6894 
0 6895 
0 6896 
C 6897 
0 6898 
0 6899 
C 6900 
0 6901 
0 6902 
C 6903 
0 6904 
0 6905 
0 6906 
0 6907 
0 6908 
0 69 09 
0 6910 
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vsv = kcotie(n) 

ISV = N 

27 CONT INJc 

28 CONTINUE 

W S V = RECTRE ( ISV ) 

HOCTIE(ISV) = R.OOTIEIM) 

ROOT RE( ISV ) = ROOTrtL(M) 

fiL'CT IE( M ) = VSV 
FOCTRE(M) s WSV 
2 6 CONTINUE 
C 

CALL wrt ITE (ROCTRE, l , I C .oHRUCTRE . 1 1 
CALL wrtlTElROUTIE.I.IC .oHROCT I E , I J 
CALL PAGEHD 
WR ITE (NOT, 10 10) 

1010 FORMAT (///, 10X ,• REFER IU THE TRANSFORMED ilAlE VECTOR CORRELATION 

* ARRAY AND CODE I TYRE NUMBERING LOGIC IN SJdrtuUTINE TFTYPE’,/. 

* lOX.'TO ASSOCIATE EACH EIGENVECTOR ELEMENT WITH A PARTICULAR DEGR 

„ * EE OF FREEDOM’ ) 

C 

CO 2E M=l. IC 
I - 1C f l -M 

READ INOTJ) ( ( W 1 ( U , J ) . I 1= I ,KR I . J= 1 ,KR I 
REWIND NETS 

CALL AgGRI 0 . W1 . W2 ,NA . KH) 

CALL El GVECl J, W 1 ,W2.W,lKUW,XK.XI.VR,Vt , ROCITREI 11 ,RUGT IE (I l.NA.KR.O 

* .SWl .COoNTE.ERR) 

WRITE (NET, 1007) nuGTREl I) .ROOT1EI I) 

1007 FORMAT (///, 10X, ’clGLNVALUL = ’.D15.8.’ + l *' .S la.B.7/1 

WRITE (NCT.100B) 

100E FORMAT ( 10X, 'EIGENVECTOR OF CHARACTERISTIC MATRIX -AR-’.lbX, 

* ’EIGENVECTOR OF 1RANSPOSE OF CHARACT ER I S T 1 C MATRIX -AR**T-’.//> 
WRITE (NOT. 10 09) (J.Xrt(J) .XI(J) .J,VR(J) .Vt<J).J=l.NA) 

1009 FORMAT ( SX, l S.lOX.ulS. a, • + I * ( • , O I 5 . a . • ) • . 

* tx, i s. i ox. oi s. a, • + i * ( • , d is.a , • ) • ) 

WR ITE (NOT, 10 1 1 ) 

toil FORMAT {/.lOX.’SAME lIGENVLCTOR EXPRESSED IN ^ULAR COORDINATES WIT 
A F PHASE GIVEN IN DEGREES (MAG, PHASE )’,/) 

CQ 11 J = 1 . NA 

XMG = JSGRT ( XR ( J ) **2 + XI(J)**2) 

VMG = USCRT ( VR( J ) **2 + VI(J)**2) 

IF IXNG.EC.O. 000 ) GO 10 12 

XAG = O ATAN2 ( XI ( J ), Art! J )) *67. 29577950+00 
XR ( J > = XMG 

X I ( J ) = XAG 

12 IF ( VMG. EG. 0. ODD ) Gu TO 11 

VAG - J ATAN2 ( VI l J) , VR( J) ) *5 t. 2957 7950+00 
VR ( J ) = VMG 
V I I J ) = VAG 
1 l CUNT INUE 

WR IT E l NUT , 10 12) (J.XR(J).aI(J) .J.VHIJ) . V l ( J ) , J = l , N a ) 

10)2 FORMAT (EX,I5.10X,’(’.uie.a.’ . ’.J15.8.’)’. 

* 7X , I 5 , 1 OX , • ( • . D1 5. a , • . ’.015.8.’)*) 

25 CONTI NUE 
C 

22 CCNT INUE 

C CFECK 10 SEE IF 7 TRaCK TAPE CF /PsTUFEA I, Tu oL WRITTEN 

IF (LPTAPE.Nl .L/TRK) GO 10 20 
IF(IFSI.NE.O) GO 10 20 
IF ST = 1 


0 691 l 
0 6912 
0 6913 
0 69 l A 
0 6915 
0 6916 
0 6917 
0 6918 
0 6919 
0 6920 
C 6921 
C 6922 
O 6923 
0 6924 
0 6925 
0 6926 
0 6927 
0 6928 
0 6929 
0 6930 
0 6931 
0 6932 
0 6933 
0 6934 
0 6935 
0 6936 
0 6937 
0 6938 
0 6939 
0 6940 
0 694 1 
0 6942 
0 6943 
0 6944 
0 6945 
0 6946 
0 6947 
0 6 94 8 
0 6949 
C 6950 
O 6951 
0 6952 
0 6953 
0 6954 
0 6955 
0 6956 
0 6957 
0 6958 
0 6959 
0 6960 
0 6961 
0 6962 
0 6963 
0 6964 
0 6965 
0 6966 
0 6967 
0 6968 
0 6969 
0 6970 
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F E * I N J N L T I 2 
2 C CCN I Ihut 


NEPROR = 


0 6971 
0 6972 
0 6973 



JO 6 

CO I LP - 

1 . 6 







0 

6974 











0 

6975 


IF 

(lpnamu 

IOP) 

. cO • 

LJLNN 

) 

GO 

TO 

SO 0 

0 

6976 


IF 

(UPNAMLl 

IGP ) 

*cu * 

L. i_» IsUL 





0 

6977 

* 

.UP. 

L P t\ A *'“ t_ ( 

I LP ) 

• LO . 

LN I CM 





0 

6976 

* 

.CP. 

LP KAMi‘.( 

ICP > 

• t_vj • 

LNYJu 





0 

69 79 

* 

• OK. 

LPNAMui 

I LP ) 

• uU* • 

LuLNN 





0 

6980 

* 

•OF . 

LPNA.MLI 

I CP ) 

• L 0 . 

LN i.NY 

) 

GO 

r o 

200 

0 

6981 


If 

(LP NAME! 

i i;p > 

• 4-6 . 

i,K LOT 

) 

G L 

TC 

30 0 

0 

6982 


CUM I NOE 


-fKtOuc.NCY WL6PCN;: 


PKOCtSSlNo 


C ** * « * t # ■> * ♦ * * * * **♦ ** k£AJ IN 1- ki_ uUfcN C Y l-!£SPLNf)d 
Rt AO (NIT . 1004) FMiN. FMAXt DGMIN. CUM AX* 
IF < IFlG .LG - 0) GC TO 600 


ru^ C CM PUT ATI CN 
A MAX 


CALL vs tv 1 Tc 


0 . I o J 
0. IDO 
C • 1 O \J 
0. IDO 
C • I JO 
O .. i o U 

% t 1 »K.kT • •♦nFvUcJ • 1 ) 


CALL ( XVI , 1 ,KVX , i J 

CALL ZERL ( X Vc«. 1 • KVX * l ) 
CALL ZC«C ( XV3, l ,KVX . I 1 
CALL Zi_kC (XV A* 1 , K V X » 1 J 


: L C AD ROOT DATA INTO 

: XV 1 = NUMLRATJh RfcAL 

l XV 2 = NUMERATOR* COMPLEX 

: xv j = uL nominator real 

: XV 4 = Ot NO Ml NAT (JR COMPLEX 

IF ( K Nr< ,lQ, 0 ) GO TO 2 <iC 7 

co 2 ce i =i ,KNk 

L= ?♦ 1 

206 XV l ( I > = ft (L ) 

220 7 CO N T I N J E 

IF t KCN .lO. 0 ) Gu TO 2206 
K = 2 *KCN 
00 2 C 7 I = 1 , K 
L= 7 f K N ft ♦ I 
20 7 XV 2 ( I) = R(L > 

2208 CONT I NOE 

IF ( Kuft *LQ, 0 ) 60 TO 22 09 

CO 2 C 6 I = l • KOR 
L = 7 +KNW* 2 *KCN> I 

2 C £ XV J( J ) — ft ( L ) 

2209 CONT INUE 

IF ( KCD . 60 . 01 GQ TO 2210 

K= 2 * K CD 

CO 2 C 9 I = I ,K 


GQ TO 2210 
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n n 


L= 7 FKMI F2AKCN FKDR + 1 
209 XVM I ) = R(L > 

22 1 0 CGNT INUl 


0 7031 
0 7032 
0 7033 


-EXTEND REAL Ah'HAY COUNTS TO INCLUDE REAL ZEROS. 
KNR = KNR + KNZ 
KDR = KuR + KDZ 


-FERFCRM THE FREOOENCY RESPONSE, 


CALL SERE02 {KNR .KCN.KOK .KCJ.GB. 

1 XVl.XV 2 .XV 3 .AVA.FMIN.FMAX,T{r_E» 

CFeCK TU SEE IF KeOUEST MADE TO COMPUTE POLYNOMIAL FORM 
OF TRANSFER FUNCTION FOR UUTPUT 
1F1LFOLY.NE.LPULYN) uU TO Ml 
CALL F AGEHD 

CALL Rl LR I R . VS l . VS2. KK T ) 

•ar i rt (nc r, 33 » 

3 3 FO RM AT ( • IP ( S ) = 1 ) 

NP 1 = V S 1 ( I ) 

HR IT 6 (NUT , AO ) VSKJ),(VS 1 (IF 3 > , I . I =1 .NPl ) 

HR IT E (NET .39 ) 

39 FORMAT! • 0U( 5 > = • ) 

NQ1 = VS 1 < 2 ) 

HR IT E (NUT . AO ) VSI(NPlFA) . ( V S l ( IFNPIFA) . I ,i = l . N U I ) 

AO FORMAT ( 3 X.D 22 . 1 5 , 7 X . 3 ( l X. ' + { ' , 022 . I 5 , * «S** < . 1 2 . ’ ) * )/. 

* 4 (ix. ■♦<•,022.15 . 'as***, 12. *>•)) 

A l CO NT INUE 


IF (LPTAPE.NE.L7TRK) oU TO 21 
HR ITE (NUT! 2, 100 I IFST.KSAVt 

HR l T E ( NUT 12 . 10 1 ) I SAV EC, I l ) ,3 A VEPI I).SAVEJ(I) , SAVE A( 1 ) , I = l,KSAVE) 
HR ITE(NLT, 10 3) 

HR IT E ( NOT , 10 2 ) Tl TLe , LPN AME I I UP ) , I FST 



1 F ST = 

IFST+ l 


0 

7067 

1 JC 

rOPMAT 

I 21 S) 


0 

7068 

10 l 

FORM/T 

( AE 18 . 8 ) 


0 

7069 

102 

FORMAT 

( 20 AA./. 3 X.AA. • IN FILE*. 

14 • * OF 04 r A Sd T l 2 • ) 

0 

7070 

103 

FORM/'T 

(//«• freuuency response 

data for* ) 

0 

7071 

l 04 

FORM fi T 

(//,• ROOT LULUS DATA FOR 

• ) 

0 

7072 

2 1 

CC NT INJt 


0 

7073 





0 

7074 


IF ( KPLLT .tQ. 0) OU TO 220 
IF ( LPN A ME ( l UP) .EO. LoCOE 

* .OR .LPNAMEl IOP > .CO. LoCNN) 

* CALL SPLC.T I TITLE. FMAX, EMIN. JBMIN.OBMAX) 

IF (LPNAME(IOP) .EU. LNICH 

* .CR .LPNAMLi ICP) .LU. LNINY 

* .OR. LPNAMEl I CP) .EU. LBONN) CALL NIPLOT I T 1 TLe . U bM I N . UBMAX ) 

IF I LP NAME I I UP ) .LQ. LNYOU 
A .OR .LPNAMEl ICP) .LU. LoCNN 

A . CR .LPNAMEl l OP ) .EQ. LNINY) CALL NYPLOT I T I T L E . AM I N . A M AX 1 

CC TC SCO 
220 CALL FAGEHD 

HRITE CNCT.221) I CYC . LPNAMEl ICP) 


0 7075 
0 7076 
0 7077 
C 7078 
0 7079 
0 7080 
C 7081 
0 7082 
0 7083 
0 7 084 
0 7085 
0 7086 
0 7087 
0 7088 
C 7089 
C 7090 
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("in r> n n n 


22 l FORM/IT ( // , l OX, 

* 48FN0 FRbUUENCY KbSPUNSb PLOTS GENERATED ON ICYC 

♦ // * 1 OX i^HLFNAMc = A4 > 

CO TC 500 

300 COM (Nod 


= 13, 


-ROOT LOCUS ShCTlON- 


320 


325 


CALL R T CP (H ,RX. VS1 ,KRX) 

NP = fix l l 1 + 1.00 
NCI = RX 1 2 1 + 1.00 

CO 320 1=1. NP 
J= 1 + 2 

XV l ( 1) = fiX( J ) 

CO 325 1=1, NO 
J = I+2+NP 

xv 2 i n = rx< j> 

CALL »l< 1 Tb ( XV2. 1 ,NU .4HPUEN, 1 ) 
CALL WKITc ( XV 1 . 1 ,NP . 4HPNUM-. 1 J 


c 

c 

c 

c 

c * * + + ♦ 

330 


fid AD IN fiGOT LUCUS CONTROL VARIABLES. 

4* **«♦«♦**** *« READ IN ROOT LOCOS CONTROL JATA 
CALL R cl A U I «M ( l JM ,Nl<2 . NRLC . 2 ,KR > 

IF ( IFLG .l(J. 0) GO TO 340 


NERRCR = 3 


IF ( NR2 .NL. 


.UR. 


NRLC .GT. KR) GO TO 999y 


-NC Tfc . , 


. . 1 JM( l . J> = ISMMI J) 

1JM12.J) = ELb. LOCATION IN RJUT ARRAY 

FUR STARTING ROUT _UCJ». 


4* 4 44 «# * * 4 * ir t t *** ** REAU IN ADDITIONAL HOOT LOCUS DATA 
340 CALL fi ci AO ( V. I ,NR2 ,NC2 . KR ,KR I 
IF ( IFL, 

IF (NR2 


-NC TE . , 


7091 

7092 

7093 

7094 

7095 

7096 

7097 

7098 

7099 

7100 

7101 

7102 

7103 

7104 

7105 
7 106 

7107 

7108 
71 09 

7110 

7111 

7112 
71 13 
7114 
71 15 

7116 

7117 

7118 
71 19 

7120 

7121 
7 122 

7123 

7124 
7 125 

7126 

7127 


• Eu . Q) 

(jL 1 0 o 00 


0 

7 128 



NE PROW = 4 

C 

7129 

N E» C 

• UK. NC 2 . NE. NRLC) GC T J 99** 


0 

7130 




0 

7131 

Mil 1 . J ) 

= IhcTACi J) 


0 

7132 

.v 1 < 2 . J ) 

= SCL 


0 

7133 

W 1 ( 3 # J ) 

= AlJC 


0 

7134 

W1(4,J] 

= X.M1N 


0 

7 135 

n 1 ( S • J ) 

= XMAX 


0 

7136 

W i l 6 . J ) 

- VMAX 


0 

7137 




c 

7138 


CO 3*0 

IRL = l.NRLL 

0 

7 139 



0 

7140 



c 

7141 

■ISM* = 

I JM[ 1 . I RC 1 

0 

7142 

J J - 

I JM1 2. IRC 1 

0 

7143 



0 

7144 

ThtLT AC 

= .111 l .IRC) 

0 

7 145 

SCL 

= W l ( 2, IRC ) 

0 

7146 

ALCC 

= v> l < 3 . 1 RC 1 

0 

714 7 

XM IN 

= All 4.IRCI 

0 

7 148 

XM AX 

= 1 ( 5 , I KC > 

0 

7149 

YM A X 

= V. 1 ( 6 . 1 RC 1 

c 

7150 
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onn orin n n 


c 

c 

c 

c 

c 

c 


34 1 

c 

c 

c 


342 

C 


c 


22 

C 

c 

300 


LCC A J E PROPER STARTING K GOT • 

IF { IStNlM . NE « 1) GO TL 3 a1 

ROCT Ij AN OPCN LOUP ZERO • 

SR = KhN(JJ) 

SI = R i N( J J) 

GO TC J<4 2 
COM i NuE 

ROCT A POLE. 

SK - HKO ( J J ) 

SI = Hlo ( J J) 

COM I NUE 

CALL HLCCUS ( XV 1 , XV2 . SCL .SR I .NP. NQ, THETA? * 

XM1 N # X M A X • Y MAX .ALOC) 

IF (LFTAPfc.NL .L 7TRK) GO TO *2 
k« l TE<N0I12. 100 ) IFST.K SAVE 

fcft I TE tNOTl 2* iOi ) (jAVLU( 1 ) • SA V CP ( I ) .SAVED! I ) » 3 A V EA ( i) 
\S(l ITEINCT. 10 a) 

*RITE(NGT. 102) TI TlE.LPNAML< I OP) , IFST 
IF ST = IFST+1 
COM INUE 

IF (KPLUT .EO. 1) CALL RLPLUT (TITLE. ISNIV). i C T C • IKC) 
COM I NOE 


I = 1 .KSAVE ) 


GO T C SCO 
40 C CONTINUE 

'T 

LINEARIZED TIME RESPONSE SECT I UN 

READ (N0T2) ( ( W l ( I , J ) , 1= i .KP ) • J= I , KR ) 

RE ilk INC NOT 2 
CALL L T R ESP 
RETURN 

500 CONT 1NUE 


RETURN 

c 

9999 HRIU (NCT.I999) NLRROR 

1999 FORMAT ( 1H 1 • // l 0 X • 44Hc fiK CR cNCGUNTEREO IN U Vc R L A f l 4 . 0 ) • NERROR = 
♦ 13./ 10X . I EHPkUuRAM STOPPED.) 

ST CP 
C 

END 


C 7151 
0 7152 
0 7153 
C 7154 
0 7155 
C 7156 
0 7157 
0 7158 
0 7 159 
0 7160 
0 7161 
0 7162 
C 7163 
0 7164 
0 7165 
0 7166 
0 7167 
C 7168 
0 7169 
0 7170 
C 7171 
C 7 172 
0 7 173 
C 7174 
0 7175 
0 7176 
0 7 177 
0 7178 
0 7179 
C 7180 
0 7181 
C 7 182 
0 7183 
0 7184 
C 7185 
0 7 186 
0 7187 
0 7188 
0 7189 
0 7190 
0 7191 
0 7192 
0 7193 
0 7194 
0 7195 
0 7196 
C 7197 
0 7198 
0 7199 
0 7200 
0 7201 
0 7202 
C 7203 
0 7204 
0 7205 
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c 


SUURCUflNt A 51 MLR IA,U.IV,KH) 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


IMPLICIT REAL*8( A-H. 0-Z ) 


DEBUG t* 65 


LMlSl MU U ON 00/04/7 5 

Ste POUT I Nd CSlAiJLlSHcb TRANSFORMED PAkTIAL OzVIVhTIVcL MATRIX 
cY PERFORMING A SIMILARITY T R A N SPUR MAT i ON 10 
EXCHANGE PLANT STaTL VARIABLES .Y, h'uT SlNSuR SIGNALS. XSS 
AND CONTROL iTsTeM VARIABLES .DELTA. ruR TUHuUE 
VARIABLES .b. 

THE VAR IA JLL SEDUENCl IS ReCkuLRt D FROM Y • DE_ T h . < 5 5 . a 

TO Y .XSS , UiLl A ,b 

SUBROUTINE AKuOMcM u f sew i p T l vj ns 

A = iNPol MATRIX Oh PAKI1AL DERIVATIVES. COORDINATE ORDER 

IS XSS. 13. Siz-E IS (NJG-NX).NX. 

6 = OUTPUT TRANSFORMED AND FEGR CGREO PARTIAL. uckIVATIVE 

MATRIX. ORDER IS Y . XSS . DEL T A . B . SIZE IS NX, NX. 

IV = INPUT INTGbre VhURK VECTOR. SIZE MUST BE AT LEAST NX. 

KR = INPUT ROW DIMENSION SIZE CF A AND D I in CAllINO PROGRAM. 

C l ME N 5 I C N A(KP.l), b ( KR , I) , I V ( 1 ) 

CCMMCN /LDSi ZE / 

2 NX, NY. NDLTA, NXSS, NBTO, NJU, N Y , N 02 

COMMON / SPlL IF/ 

* EL T AH { o , 6 ) * bc.T ArlD(o, o), AMO { ?. • 5 ) , Mh iJ.i.JO) » to ( 3 , 3 , 3 3 ) , 

* CH < L , JS ) . US ( 0 . S 0 ) • i MO i 3 * 5 ) , N MOV, ( 6 . j / , 1 5 f jMa ( i D ) . 

* MJ . Ml ,N sP T * NCI* ML • NJuL 1 A* I TC°&L(^* 6), lKO'_X( b ) , l HO AT A ( 7 • 6), 

* LJCll 14 J ,LLNOl 14) , NO . NUE T A * NL AM . NE 0 

CGMMCiN /TAPE NO/ 

A NUUi NVT^t NU 1 3 

CL YMC N / VE L T UR/ 

E Y < LsC ) . YD < 2b 3 ) 

Common /vinjuv 

* iNjfcr»(<ioO) 

CAT A NUT/O/ 

LGCICAL DEBUG, LLQu 

CCMMCN /LOcli UG/ UctJUoi UOl 

EOlI VAlCNCE ( L cOU , OE dUO 4 £ B ) ) 


SET UP C. LUftcU PART UF -A- REQUIRED TO GOT* IN -T-. 


NR - NJU - NX 
NC = N JO 
*C ~ i 4 + KR >/S 
IF (L ECU) WRl TEINCT . 10 JO I 
IOC0 FORMAT <* SUBROUTINE A Si MLR •> 

IF ( . MJI . LEGO ) GO lu 50 

v\R ire (nct ,iooi) 

100 l FORM/ I (• INPUT .YA f fc I a CLlFFICIcNTS FUR LINEARIZED slGNAL ECUATIGN 
*S • ) 

CALL ML 5( A, NR .NX.KR ) 

SC CO NT INUE 

C ThE CSi- CF KC PcKMITS The U SPACE TC BE BlTIEk UTILIZED 

C VIA exit ND IN G THE PERMISSAULE NC. OF AUXILl ary equations. 

c 


0 

7206 

c 

7207 

c 

7208 

0 

7209 

0 

7210 

c 

721 1 

0 

7212 

0 

7213 

0 

72 14 

0 

7215 

c 

7216 

0 

7217 

0 

7218 

c 

72 19 

0 

7220 

0 

7221 

0 

7222 

0 

7223 

0 

7224 

c 

7225 

0 

7226 

c 

7227 

0 

7228 

0 

7229 

c 

7230 

0 

7231 

c 

7232 

c 

72 33 

0 

7234 

1 6 

7235 

l 7 

7236 

i e 

7237 

1 9 

7238 

c 

7239 

0 

7240 

0 

724 l 

430 

7242 

0 

7243 

2 l 

7244 

0 

7245 

0 

7246 

c 

7247 

0 

7248 

0 

7249 

c 

72S0 

0 

7251 

c 

7252 

0 

7253 

0 

7254 

0 

7256 

0 

7256 

0 

7257 

0 

7258 

0 

7259 

0 

7260 

0 

726 1 

0 

7262 

0 

7263 

0 

7264 

c 

7265 
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n r> 


CALL 2eRC [diK^i KR »KR) 

C SET LP a SPACt FOP ice KUW DIMENSION WITH AjOMlNIEu A. 

c 

CO I C I = l . NR 
L = I+NX 
DO 1 C J = 1 , NX 

c 

I Jc - I + KC*( J- l ) 

J2 = ( I J2-1 l/KHH 

12 = l J2-KRM J2-I > 

C 

E ( 12 , J2 ) = A(I.J) 

C 

IF (I . NE . J ) GC ID 10 
C 

I JL2 = 1 tKCA (L- 1 I 

JL2 = ( I JL2- 1 )/KR+l 

IL2 = I JL2-KRW < JL2- 1 ) 

C 

61 IL 2 • JL 2) = -1.00 
C 

1C CONTINUE 
C 

C 16 6 ARRAY B NOW CONTAINS CQD'ATIGN I 11—27 VJ_ 1 

c establish search limit for subroutine findt 
C 

NS = NX 

CALL FINUT ( B.NR . NC . NS ,A .NRET , KC.KR) 

EXIT FINDT WITH THE SIMILARITY TRANSFORMATION MATRIX R 
OF cCLATlON 111-23 VOL 1. STORED IN A ARRAY 
CALL WRITE { A.NRET.NRET.4H-T- ,KR» 

c 

C A = -T- 
C 

C FORM -AM- = rtlNVI A I 
C 

C READ PARTIAL DERIVATIVE MATRIX H 

READ (NLT2I ( (B( I ■ J I ■ 1 — 1 , K H ) , J— l , KR) 

C PL T SIMILARITY TR ANSF ORMAT l CN MATRIX R ON NOTE AFTER H 

WRITE (NUT2) I(AIl.J), 1= 1 ,KR » . J= l . KK I 
REWIND NLT 2 

C INVERT -T- USING GAUSSI I TFiE SIMILARITY TRANSFORMATION MATRIX R> 
CALL GAUSSI ( A ,B . NRE T , KR ) 

C B = TdNVI 

C TRANSFORM STATE VECTOR FUR POSSIBLE USE IN LlNEARIEEu RESPONSE. 

K = C 

CO IS 1 = 1, NE Q 

IF ( INOLP (II .EQ. Cl ) GO TO Is 
K = K+ 1 

Y(K> = YII ) 

IS CONTINUE 

c find z vectors in equation ui -23 vol 1 

CALL MULTB I B , Y , NRET , NRE T , I ,KR , KR ) 

CALL WRITE < Y, 1 .NRCT.4H Y* ,1) 

C READ PARTIAL DcKlVllIVE MATRIX H 

RE AO (NOTE) l ( A( I . J) . 1 = 1 .KR ) , J = I ,KR) 

C FCflM R**(-1)*H 

CALL MULTA ( B, A. NX, NX, NX ,KR ,KR ) 

C 8= T(INV) * -A- 
C READ R 


0 7266 
0 7267 
0 726B 
0 7269 
0 7270 
0 7271 
0 7272 
0 7273 
0 727a 
0 7275 
0 7276 
0 7277 
0 72 78 
0 7279 
0 7280 
0 7281 
0 7282 
0 7283 
0 7284 
0 7285 
0 7286 
0 7287 
0 7288 
0 7289 
0 7290 
0 7291 
0 7292 
0 7293 
0 7294 
0 7295 
0 7296 
0 729 7 
0 7298 
0 7299 
0 7300 
0 7301 
0 7302 
0 7303 
0 7304 
0 7305 
O 7306 
0 7307 
C 7308 
0 7309 
0 7310 
0 731 1 
C 7312 
0 73 13 
0 7314 
0 7315 
0 7316 
0 7317 
0 7318 
0 7319 
0 7320 
C 7321 
0 7322 
0 7323 
0 7324 
0 7325 
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c 


c 

c 

c 

c 

c 

c 

c 


READ (NUT2) ( ( A( I , J) , I =1 .KR) , J=l ,KR> 
REMIND NLT2 

fiCffrt R**(-1)*H*K EU UA T 1 0 N I l 1 — 24 PUT 
CALL yuLTb ( UiA.NXiNX.NA.KK.K^ ) 

IF ( .NCT -LLOU ) 60 TO IdO 
WRITE (NCT.lOOu) 

1006 FORMAT (* k* *< - l ) *n*tt f-iAlKU IS *> 

CALL #*< I TES (A,NX*NX,KK) 
l 50 COM iNUfc 
B = -A *- 


RECRJfcR 

N V 2 
NC2 


FROM Y. 0 CL 1 A.XSS.b 
TO Y iXSbtUtLl A , 8 
= NX - NO L T A - NX 5 S 
= NOL T A - NOT Q 


UU 2 C l = 1 • NX 
2 C l V ( I ) •- I 

CO JC I — l.NxSS 
L - NY2 ♦ 1 

K = L + ND2 
JO IV (K ) = L 

IF (NC2.EC.0) 'JO TO 4 1 
CO 4 C 1 = 1. NO 2 


RESULT ^ 


K = NY 2 ♦ 1 
L = ^ Y; ♦ NXbS ♦ I 
40 IV (K ) = L 
4 l CUNT I NvJH 

CALL ZLHC ( 0 . NX. NX. K«) 

CALL Kt.VAJL) ( I .00 .A, 1 V . i V ,b .NX .Nx .NX .NX .KtNKKJ 
IF ( • NUT • LEOiU ) bu Tb loJ 
WRITE (NCI. 1007 ) 

1007 FORMAT (• KtiLkUCRC^ MATRIX IS •) 

CALL Wk * 1 ES( L 3 .NX .NX. KM ) 

160 CONI I NUt* 


C 


RETURN 


ENC 


IN A ARRAY 


0 7326 
C 732 7 
0 7328 
0 7329 
0 7330 
0 7331 
0 7332 
0 7333 
C 7334 
0 7335 
C 7336 
0 7337 
0 7338 
C 7339 
0 7340 
0 734 1 
0 7342 
0 7343 
0 7344 
C 7345 
C 7346 
0 7347 
C 7348 
0 7349 
0 7350 
0 7351 
0 7352 
0 7353 
0 7354 
0 7355 
C 7356 
0 7357 
0 7358 
0 7359 
0 7360 
0 7361 
C 7362 
0 7363 


C 

C 

c 

c 


c 


SUERCUllNt PINuT ( C • NCN • NX • N^> . T . NkE T .KC . Kf ) 0 

OLbUG #66 0 

IMPLICIT RLAL*3( A-n, J- <L) 0 

0 

LATEST MUJ ON 09/04/75 C 

0 

CIVENS1CN CIXC.I). KKT.n 0 

C I-ME NS! ON lVtC(207) . JVtC(207> 448 

0 

CC MM C N /LGSIZE/ 0 

2 NNX, NY. NULTA, NXSS. N81Q. NJO, V Y 2 • ND2 0 

COMMON /SPECIF/ 0 

* OETAHto. 6 ) . db T AH L) ( 6 • o).AM0(2. 5 ) . Rfi ( J.J.301 .kS(3.3.30) • 16 

* JH( 3.35 ) • JSC 3.30) . I MU < 3. S ) ..NMOtt ( 6 • i> ) . I r T 3 MW ( l 5 J • 17 

* Ml.NH.NSPT .NOF MC. NUcLT A. I TC'P0L(2. 6).1RGF!_X( 6).IHGATA(7. 6). 18 

* *_UCC( 1 4 ) ,L£NU( 1 4 1 ,NU. NOE T A . NL AM ,NEQ 19 


7304 

7365 

7366 

7367 

7368 

7369 

7370 

7371 

7372 

7373 

7374 

7375 

7376 

7377 

7378 

7379 
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COMMCN /LJJV / 


9 1 V ( 2b 0 ) . JV (250) 

COMMON /VINUtP/ 

* 1N0EP(250> 

LOGICAL DEBUG. LEClu 
COMMCN /LDEBUG/ DtBOG( 120) 

EQUIVALENCE (L£QU,DEDUG(66) ) 

C 

CATA EPS . NGT / 1.0-15, 6 / 

1001 FORMAT {/// 5X. 36HSU6R0U Tl NE F l NO TERMINATED, SING. AT 15) 

1002 FORMAT (///l X. 

* S5HTHE TRANSFORMED STATE VECTOR CORRELATION ARRAy FOLLOWS. /IX. 
» A 3H ELEMENT S REFER TO ORIGINAL STATE V AR IA JLES . , / 1 X . 1 1 5 ( 1 H- ) ) 

2001 FORMAT ( //// 1X..4 7HIHE FOLLOWING INTEGER ARRAy IINliEP) PRESCRIBES 
♦S4FIN0EPENDENT VARIABLES (1). AND DEPENDENT VARIABLES (0). /IX. 

* 1 15 < 1H- )) 

2010 FORMAT I//1X44HTHE STATE VECTOR LENGTH ARRAV I.EnO) FOLLOWS . 

* / IX , 1 1 S< 1H- ) ) 

2011 FORMAT (//1X46HTHE STATE VECTOR LOCATICN ARRAT (LOCu) FOLLOWS. 

* /IX , 115C 1H-) ) 

C 

IF ( . NOT .LEOLi ) GO TO 120 
WRITEINLI . 1003) 

1002 FORMAT (• SUBROUTINE FINDT INPUT MATRIX •) 

CALL WRITES (C .NCN.NX . KC ) 

120 CONT INUE 

CO 5 1=1 .NX 

5 JVEC(I) = 1 
C 

C FCR PROCEDURE SEE VGL l.PAGE 63 * I LL USI R AT I V = EXAMPLE* 

CO 1C L=l.NCN 
JBIG = l 

A = CABSICIL . 1) ) 

C FIND PIVOT ELEMENT FUR RCW L 

CO IE J = 2 • NS 
AT = O AUS< C( L, J ) I 
IF (AT .LT . A) uO TO lb 
A = A T 
JO IG = • J 
IS CONTINUE 

C PIVOT ELcMENT Fur KUw E IS (L.JlSIG) 

IVEC(E) = -JBIG 

JVEC ( Ju IG) = 0 

IF (A . G T . EPS) OG 10 20 

WRITE (NET. 1001) L 

ST CP 

20 CONTINJc 

CL JO I G •= C (L . JD1 G ) 

CO 17 J = 1 , NX 

17 C(L.j) = C( L . J ) /CL Jb IG 
CO 2 E 1=1, NGN 
F = C ( I , JO IG ) 

IF (1 . uC . L ) GO TL 2 0 

CO 3 C J = UNA 

jo c ( i , j ) = c ( i , j > - r * c ( l , j > 

25 CONTINUE 
10 CONT INUE 

C L C #VE H CASE D SUB iJ MAT n I A CN PAGE 64 ruJNJ 

IF ( . Null .L lUU ) oU lu IJO 
«R ITtK.U. 10 04 I 


0 7380 
420 7381 
C 7382 
2 l 7383 
0 7384 
0 7385 
0 7386 
0 7387 
0 7388 
0 7389 
0 7390 
0 7 391 
0 7392 
0 7393 
0 7394 
0 7395 
0 7396 
0 7397 
0 7398 
0 7399 
C 7400 
0 740 1 
0 7402 
0 7403 
0 7404 
0 7405 
0 7406 
0 7407 
0 7408 
0 7409 
0 7410 
C 7411 
0 7412 
0 7413 
0 7414 
0 7415 
0 74 16 
0 741 7 
C 7418 
0 74 19 
0 7420 
0 742 1 
0 7422 
0 7423 
0 7424 
0 7425 
0 7426 
0 7427 
0 7428 

C 7429 
C 7430 
0 7431 
0 7432 
C 7433 
0 7434 
C 7435 
0 7436 
C 7437 
0 7438 
0 7439 


B-132 



l 

OC'i 

H.hMM (• V^iU.xHLt. t.\UlAN.,L MATRIX I 

3 * ) 


c 

74 4 0 



CALL AkllLbtCiNLKif.XiKU 



c 

74 4 1 


1 JC 

COM i NUt 



o 

7442 

c 





c 

7443 



NVAL - 0 



0 

7444 



i;u 4 c i ~ lma 



c 

7445 



IF < JVc c C ( > • Lti • 0) wU II **o 



0 

7446 



NVAL = NVAL k l 



0 

744 7 



JVhC(l) - fsJVAL 



0 

74 48 


•i u 

CCNT I Nut 



0 

7449 

c 





c 

74 50 

c 


CCNGIF'JCl NKtl a NkcI 5 l 14 I L A.i I T V 

TRAN S r O k M A T i 

. UN MA Tft I X 

0 

7451 

c 


StH LXAMPLE: HA.jL 04 



0 

7 4 52 



NR F T - NX - i\CN 



0 

7453 



CALL Zx.RC (T,NKc1»N»<lI'.K7 ) 



c 

7454 



CALL Kt.VAuu I I 1 UO 1 L 1 IV LC • J V uL , T » MC N ♦ 

NX * Nile f • Ni* 'z. 1 

r • k l • k. r > 

0 

74 55 

c 





o 

74 56 



CO 5 C 1=1* MX 



c 

7457 



IF ( w ’ V i : C ( i ) * * ■)) 3 ».* T L zjC* 



0 

7 4 58 



NR = JVcCi 1) 



c 

7459 



T ( I • NR ) = 1.00 



c 

7 460 


« a 

ca NT I nl E 



c 

74 6 1 

c 





c 

7462 



IF ( . N L t . LLOU ) GC I L. UO 



0 

7 4 63 



v.R ITE( NuT , 10 05) 



c 

7464 

l 

r o - 

FORMAT (• SIMILAR! 1Y T-MNSI LhMAIICN 

MATRIX io ' , 

) 

c 

7465 



CALL Wt< I Tt£5( T • Nk t T « NK L T , K 1 ) 



c 

7466 


1 4 c 

CO NT I Not 



o 

7467 

c 





0 

7468 



NALX - NX jo 4- NUTG 



0 

7469 



NJV = /kC 4- f.AUX 



0 

74 70 

c 





0 

747 1 

c 


TFfc Fi.Ll.jwl N'j 5 fc L I i U '■ 4 I UL N'T IF 1 1 3 Y* 

VAPlAjuCi. 


0 

7472 

c 





0 

7473 



K = C 



0 

7474 



DO 6 C 1=1,NjV 



c 

74 75 



IF ( INDLF(l) .LO* 0) 1U CO 



0 

7476 



K = K + 1 



0 

74 7 7 



IV ( K ) - 1 



0 

7478 


60 

CUNT INUt 



r 

7479 

c 





0 

7480 



*= c 



0 

7481 



C(I 7 C 1 = 1, NX 



0 

7482 



IF (jVLC(I) • E U • J) vj U 1 C 7 0 



0 

7483 



1<-Sf l 



0 

7404 



JV(K ) = IV ( t ) 



0 

7485 


7 C 

CUNT INUc 



c 

7486 

c 





c 

7487 



NZ = NY^ 4- Nt>2 ♦ ;xXi>J ♦ NUl Q 



0 

7488 

c 





c 

7469 



on 9 c i = i , nz 



c 

7490 


SO 

l V ( I ) = JVC l ) 



0 

749 l 

c 





0 

7492 



CO ICO I = l , NX5S 



0 

7493 



L=NY < ♦ t 



0 

7 49 4 



K=L* N02 



0 

7495 


1 oc 

IV (L ) = JVC K ) 



c 

7496 

c 





0 

7497 



IF ( N C 2 . C G . 0 ) GO TO 111 



0 

7498 



CO 110 I = i ,UU2 



0 

7499 
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fionnnnnnnnononnn ft ft n r, ft 


k - r•Y^ * i 
L = K F NXSS 
l l 0 IV IL ) = JV (K ) 

1 1 1 COM I NOt: 

CALL PAGEMD 
LELO = 2*NB F 2 
NECP = NED F NAUX 
HR I 16 ( NCT .2 001 ) 

CALL Wins ( indep. i . neop, i ; 
HR IT E ( NCT ,20 10 I 
CALL UK 1TIS ILENU ,1 .LELO.ll 
HR ITE C NCT .2011) 

CALL HRITIS (LOCO iI.lELU.I) 
HRITE (NCT, 1002) 

CALL WRITIS (IV.l.NZ.l) 


RETURN 

END 


0 7500 
0 750 1 
0 7502 
0 7503 
0 7 50 4 
C 7505 
C 7506 
0 7507 
C 7508 
0 7509 
0 7510 
C 7511 
0 7512 
C 7513 
0 7514 
0 7515 
0 7516 
0 7517 
0 7518 
0 7519 


SUeRCLT INE TFTYPE (A .2 ,B ,NA ,NZ , 1 T Y PE . J C OL , NUKP , <dK?,KA,KZ) 

DEBUG tt 67 

IMPLICIT REAL*8( A-H, 0-2) 

CDMMCN /LOSI ZE/ 

2 NX, NY. NDLTA. NXSS, NO. N J 0 . 4 Y 2 , N02 

LOGICAL CEfaUG.LEQU 
CO MM C N /LOEBUG/ OtDUGl 120) 

EQUIVALENCE (LEQU.UEUUGI 67 ) ) 

CATA NUT/67 

DIMENSION A(KA,|>, z(ICZ.l). 8(1), KOKP(l) 

SUBROUTINE ARGUMENT DESCRIPTIONS 

A = INPUT PARTIAL DERIVATIVE MATRIX 

Z = OUTPUT REDUCE D PARTIAL DERIVATIVE MA1R1X. (NZ.NZ) 

B = OUTPUT VECTOR OF LUtEF, FOR DESIRED TF INPUT. (NZ.l) 

NA = INPUT SIZE OF A. 

NZ - OUTPUT SI ZE OF Z 

ITYF6 = INPUT =1 FURHAHO PATH TF XSSI I >/ T T l J ) 

2 FEEDBACK TF BII)/XSS(J) 

3 OPEN LOOP TF BIIl/RTIJ) 

4 OPEN LOOP TF XSS I I 1/R S 1 J 1 

5 CLOSED LOOP TF XSS(I)/RTIJ) 

6 CLOSED LOOP TF XSSI I >7451 J) 

7 PARTIAL OPEN LOOP Bll )/Rt l Jt 

C 8 SPECIAL CASE SEE BELOW 

C 

C NOTE — A MINOS SloN ON I TYPE INDICATES 

C NEGATIVE FEEDBACK FOR NUMERATOR 

C AUGMENTATION SELECTION OF PROPER 3. 

C 


0 7520 
0 7521 
0 7522 
0 7523 
C 7524 
C 7525 
0 7526 
0 7527 
0 7528 
0 7529 
0 7530 
0 7531 
0 7532 
0 7533 
0 7534 
0 7535 
0 7536 
C 7537 
C 7538 
0 7539 
0 7540 
C 7541 
0 7542 
0 7543 
0 7544 
0 7545 
0 7546 
0 754 7 
0 7548 
0 7549 
0 7550 
0 7551 
0 7552 
0 7553 
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nnnnr)Pnnnnnr»onnnr»rin 


JCGL = INPUT COL LOCATION IN A OF DESIREO INPJT(J). LOCAL 
FCR SENSOR SIGNALS 

0 < JCOL < NASS+1 
FCR TCRUUE SIGNALS 

0 < JCOL < NO* l 

NOKP = INPUT NO. OF d*S I (J RETAIN ITYP£=7 

K6KP - INPUT 10 VECIUR NOTING WHICH B*S TO KEtP (LOCAL) 

KA = INPUT ROW DIMENSION OF A IN C ALL I NG PRJGKAM 

KZ = INPUT ROW DIMENSION OF Z IN CALLING PROGRAM 

ESTABLISH LEADING ELL LUCAICRS FOR EACH PARTITION OF A 
ASSUMED ORDER IS Y , X:> S. DEL T A « B 

LY = LEADING ELEMENT FOR STATE VARIABLES 
L> -= LEADING ELEMENT FOR SENSOR SIGNALS 
Lu = LlAUING ELEMENT t UR CONTROL STATE VARIABLES 
LE = LEADING ELEMENT FUR TORQUE SIGNAL^ 

XSN = *-1.-1. POSITIVE. NLGITIVE FEEDBACK 


C 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


LY = I 

LX = L Y + NY 2 
LD = LX * NX SS 
LB = Lj * NO 2 

>SN = 1 s igni 1 , I type) 

IT YPE - I Al.i S ( I TYPc) 

NCRROK — 1 

IF (ITrPE .LT. 1 .OR. ITYPL .GT. B) GO TJ 9** 

NE R R OK = 2 

IF ( v'CUL • L T • 0 .OR. j COL .GT. N A ) GO T ^ vVv 
CO TC ( L *2 . J # 4 • s . o, 7 . 3 ) . I TYPE 
l CON T 1 i\^E 

I TYPc = I 

TYPE I r Li R tv AND H A T H IRAN cR FUNCTION r Jl< J l A N T WITH N L 
FEEDBACK, EJUAIIL.S 111-49, VOL I 

FERN 2 * A 1 1 • A 1 2 
A2 l . A22 

;j s A 1 4 ( JCLL ) * Ac N 
A«£4 ( JCOL ) * XSN 

NZ = NY2 *■ NXSS 

KCCl ~ ABSOLUTE LL.CA1 ION JF TORQUE SICAl 
X C CL = Lfc-l+JCOL 
CO IC i = > * NZ 
fc ( I ) = A ( I • K CCL ) * A SN 

CO l c J = 1 . NZ 
10 Z( 1 . J ) = A ( I * J ) 

IF ( • h 0 I .LcOU ) RETURN 
WRITE (NCT.IOCO) IIYPE 
•WRITE (NCT.lOOl) 

CALL V.K I 1ES( Z.NZ ,NZ. KZ) 
wR I I E ( \CT # 1 002) 

CALL V;R 1 TBs < U , 1 , N*. . 1 ) 

RL ruTN 

c CENT INUE 


0 7554 
0 7555 
0 7556 
0 7557 
0 7558 
0 7559 
0 7560 
0 7561 
0 7562 
0 7563 
0 7564 
0 7565 
0 7566 
0 7567 
0 7568 
0 7569 
C 7570 
0 7571 
C 7 572 
C 7573 
0 7574 
0 7575 
0 7576 
0 7577 
0 7578 
0 7579 
0 7580 
0 7581 
0 7582 
C 7583 
C 7584 
C 7585 
0 7586 
0 7587 
C 7588 
0 7589 
0 7590 
0 7591 
0 7592 
0 7593 
0 7594 
0 7595 
C 7596 
0 7597 
0 7598 
0 7599 
C 7600 
0 760 l 
C 7602 
0 7603 
0 7604 
C 7605 
0 760 6 
0 7607 
C 7608 
0 7609 
C 7610 
0 761 1 
0 7612 
0 7613 
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c 


1 TYPE - 2 

0 

7614 

c 


type 2 feeddck path hisj for the controller only. the transfer 

0 

7615 

c 


FUNCTION RELATES CONTROL SYSTEM OUTPUT Tu SENSOR SIGNAL 

0 

7616 

c 


INPUT EQUATION 111-53. VOL 1 

0 

7617 

c 



c 

7618 

c 


FCRX Z = AJ3.A34 

0 

7619 

c 


Aa3iAA4 

0 

7620 

c 



c 

762 1 

c 


a = A32IJC0L) 

0 

7622 

c 


A»2( JCOL ) 

0 

7623 

c 



0 

7624 



N Z = NO 2 *■ N B 

0 

7625 

c 


K CGl - ABSOLUTE LQCAUUN OF SENSOR SIGNAL 

0 

7626 



KCCL = LX- IF JCOL 

0 

7627 



CALL ZERO (Z.NZ.NZ.KZ) 

0 

7628 



CO 2 C I = WNZ 

0 

7629 



IRA = l 4 N Y 2 + NXSS 

0 

7630 



Eli) ■= A ( IRA .KCCL ) 

0 

7631 



CO 2 C J=1.NZ 

c 

7632 



JCA = J ♦ NY 2 ♦ NXSS 

0 

7633 



Z< I . J ) = All RA, J C A) 

0 

7634 


2 C 

CONT INUE 

0 

7635 



IF ( . ROT .LEQU ) RETURN 

0 

7636 



WRITE (NCT.IOOO) ITYPE 

0 

7637 



WRITE l NOT . 1001) 

c 

7638 



CALL *R I TES ( Z.NZ .NZ.KZ I 

0 

7639 



WRITE (NCT.1002) 

0 

7640 



CALL WklTES(Q.l.NZ.l) 

0 

7641 



RETURN 

0 

7642 

c 



0 

7643 


3 

CONT INUE 

0 

7644 

c 


ITYPE = 3 

0 

7645 

c 


type 2 classical open loop transfer function relates control 

0 

7646 

c 


system output tu external plant input, euuaticn i 11-55 

0 

7647 

c 



0 

7648 

c 


FCRl» Z = A11.A12.AI3, 0 

c 

7649 

c 


A21.A22.A23. 0 

0 

7650 

c 


A J 1 * A J 2 t AB J • A J 4 

0 

7651 

c 


A A 1 . A42 «A^3t A44 

c 

7652 

c 



0 

7653 

c 


D = Al 4( JCOL)*X5N 

0 

7654 

c 


A24( JCOL)*XSN 

0 

7655 

c 


0 

0 

7656 

c 


0 

0 

7657 

c 



0 

7658 



NZ = NY 2 * NXSS + ND2 4- NB 

0 

7659 

c 


KCCL = AbSGLUTE LOCATION OF TCRCUE SIGNAL 

0 

7660 



KCGL = LE-1FJCUL 

0 

7661 



CALL ZERO (Z.NZ.NZ.KZ) 

0 

7662 



V - NY2 4 NXSS 

0 

7663 



UO 25 I-1#NZ 

0 

7664 



E(I) = A (l .KCGL.) *XSN 

0 

7665 



CC 2£ J=1.NZ 

0 

7666 


25 

Zl I . J ) s A < l ■ J ) 

0 

7667 



CO 2 e 1 = I . M 

0 

7668 



DO zt j=Lb.NZ 

0 

7669 


26 

zi i , j ) = o.uo 

0 

7670 



CO 30 I=LU.NZ 

0 

767 1 


30 

ELI) = O.UO 

0 

7672 



IF ( . NOT .LEOU > RETURN 

0 

7673 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

L 

c 

c 

c 

c. 

c 

c 

c 

c 

c 

c 

c 


WRITE (NCI, 1 000) l TYPE 0 7674 

write (NCr.iooi) 07675 

CALC ti* l l£5 ( Z » NZ ,N/l # K.Z ) 0 7676 

WHITE (NOT, 1002) 0 7677 

(ALL Art l TcS( B, I • N2. i ) 0 7678 

RETURN C 7679 

0 7680 

A COM I NJc 0 7681 

ITYPc = 4 0 7682 

T YPi; A OPEN LUUP TRANSFER FUNCTION. RC^AIcS PLAN! SLNSUR SIGNAL 0 7683 
OUTPUT IU CONI RULLtR NC 1 SE INPUT, cJuATION 111-57 0 7684 

0 7685 

FCPN Z - Al l , A l 2 , A l 3 . A 1 4 0 7686 

A3 l , A22 ,A2 J, A2 4 07687 

AS 1 , 0 trtjji AOA 0 7608 

A4 l , 0 • A 43 , A 4 4 0 7689 

C 7690 

6*0 0 7691 

0 0 7692 

A J 2 ( JCOL ) 0 7693 

A4 2 < JCUL ) C 7694 


0 7695 
0 7696 
0 7697 
0 7698 
0 7699 
0 7700 
0 7 70 1 
0 7702 
0 7703 
0 7704 
C 7705 
0 7706 
C 7707 
0 7708 
0 7709 
0 7710 
0 771 1 
0 7712 
0 7713 
0 7714 
0 7715 
0 7716 
0 7717 


5 CONTINUE 0 7718 

I T YPi_ = d 0 7719 

TYPC 5 1KAN:>FLR FUNCllCis THAT R LL AT LS i»2N:>Urt SIGNAL CUT-PUT 0 7 720 

TU EXTERNALLY APPLIES PLANT INPjI^ ai Irl IhL CONTROL 0 7721 

'jY^TtM lNTIUCLY ACTIVE, LOCATION U*-d9 0 7722 


0 7723 
0 7724 
0 7725 
0 7726 
0 772 7 
0 7 728 


J * Al 4( JC0L)*X5N 0 7729 

*24 ( JCOL i * ajn 0 7730 

0 0 7731 

0 0 7732 

NZ = NY 2 >■ NXSS ♦- Nl>2 ♦ No 0 7 7 S3 


FCrtN Z = Ali,Ai2,*iP,Al4 
A2 l , A 2 2 • j i A<_4 
A J l % A 3 2 , A J j , A J *♦ 
A4t * A42 , A 4 S , A4 4 


NZ — NY 2 4- NXSS 4- NJ2 4- NtJ 

K C CL * AuSOLuTt LOwAI ION OF SENS OH SIGNAL 
KCCL = LX- 1 4- JCOL 
CALL Zr-FC (Z,NZ,NZ,KZ> 

N' = NY2 4- NXSS 
CO JE l=l,NZ 
E ( I ) = A ( [ , k COL ) 

CO SE J=l,NZ 

35 7 . ( l , - ) = A(1 ■ J ) 

CO 3C i=LO,NZ 
CO 3 d J = L X , M 

36 Z ( I , J ) - 0 .DO 

CO AC l = l,M 

4 0 E ( I ) = C*JU 

IF ( • N 0 J • LE QU ) rtt TUkN 
'ak { T £ ( NO f, l 0 50) ITYPb 
Art I T E ( NCI , 1 00 1 ) 

CALL Wrt 1-Th5( Z.NZ KZ ) 

WRITE i NCT , 1 002 ) 

CALL 1 1LS( 8, l , NZ, l ) 

RETURN 
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r>nr\rinnn r^nnonnnnnnnn 


C KCUL = ABSLSLUTc LUC AT i ON OF TORQUE SIGNAL 

KC CL = LE-U- JCUL 
CALL ZERC (Z.NZ.NZ.KZ) 

00 4 £ I - X , NZ 
E(I) - A ( I ,KCCL ) *XSN 
CO 4E 3=1, NZ 
4£ Z(I.J) = A{ I . J ) 

QO 5C X = L0 » NZ 
SC b( I ) = 0 .0 0 

IF ( . IsCT .LEUU > RETURN 
WRITE (NOT. I 000) itype 
WRITE ( NOT , X 00 I ) 

CALL Hit ITESXZ.NZ tiwiKZJ 
WHITE (NOT. X 002) 

CALL »H I TEST a. X .NZ. I ) 

RE Tu RN 
C 

t COAT INUE 

C ITYPE = o 

C TTPii 6 CLOSED LOOP TRANSFER FUNCTION Ru^ATES PLANT SENSOR 

C SIGNAL OUTPUT TU SENSOR SIGNAL NOISE INPUT ALL CONTROL 

c SYSTEM LOOPS ACTIVE, EQUATION 111-61 

FCRA Z - Al I , A 1 2 . Al 3. A 1 4 
A2 1 , A22 , A2 3 • A 2 4 
A31.A32.A33.A34 
A4 l , A42 « A 4 3 , A44 

d = 0 

0 

A3 2 ( JCOL ) 

A42( JCOL) 

NZ = NY 2 F NXSS F Nu2 F Nb 

KCCL = AOSOLUTE LOCATION OF SENSOR SIGNAL 
KCCL - LX- IF JCOL 
CALL ZEKC (Z.NZ.NZ.KZ) 

W = NY2 F NXSS 
CO 5 E l — 1 , NZ 
E ( I ) = A ( I . KCOL ) 

CO 5 E 3=1, NZ 
SS 2(1. J) = A(l,J| 

CO 6C l = 1 , M 

eo e(i) = o .oo 

IF ( .RUT .LEQU ) RETURN 
WRITE (NCT.IOOO) HYPE 
WRITE (NOT, 1001) 

CALL WR ITESI Z.NZ .NZ.KZ ) 

WRITE (NCT.1002) 

CALL WH I TES( 8, l . NZ, 1 ) 

RETURN 


7 CONT INUE 

ITYPE = 7 

TYPE 7 QUASI OPEN LOOP TRANSFER FUNCTION RELATES CONTROL SYSTEM 
OUTPUTS UUE TO PLANT VARIABLE INPUTS WITH THE OPTION TO 


0 7734 
0 773S 
0 7 736 
0 7737 
0 7/36 
0 7 739 
0 7740 
0 7741 
0 7742 
0 7 7 4 3 
0 7744 
C 7 7 4 S 
0 7746 
0 7747 
0 7748 
0 7749 
0 7750 
0 7751 
0 7752 
0 7753 
0 7754 
0 7 755 
0 7756 
0 7757 
0 7758 
C 7759 
0 7760 
0 7761 
0 7762 
0 7763 
0 7764 
0 7765 
0 7766 
0 7767 
0 7768 
0 7769 
0 7770 
0 7771 
0 7772 
0 7773 
0 7774 
C 7775 
0 7776 
0 7777 
0 7778 
0 7779 
0 7780 
0 7781 
0 7782 
0 7783 
0 7784 
0 7785 
0 7786 
0 7787 
0 7788 
0 7789 
0 7790 


OPEN SOME CONTROLLER OUTPUT CHANNlLS. MAX NUMBER OF 0 7791 

FEEDBACK SIGNALS IS 3. SEE PAGE 77. VOL 1 0 7792 

C N0KP = NUMOER OF FEEOBACK SIGNALS 0 7793 
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n n 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

V- 

c 

c 

c 


KUKP(l) = LOCAL 

L OCAT ION 

OF lilliNAL 

ru feedback 

0 

7794 







0 

7795 

FCRF Z = A 1 1 »A 12 tAl 3i ( A 14 ) 






0 

7796 

A2 1 , A22.A23. ( A24 ) 






0 

7797 

AJ 1 , A32.A 33. A3 A 






0 

7798 

A 4 1 • A4 2 iA<* 3 ♦ A*4 






0 

7799 







c 

7 QC 0 

3 - A1 4 ( JCOL ) *X3K 






0 

700 1 

A2 4 ( JCOL ) *XSN 






0 

7802 

0 






0 

7803 

0 






0 

7804 







0 

7805 

XZ = N Y 2 *• NXS3 + ND2 + Nb 






c 

7806 

K C Cl = AOSGLUTe LOCATION 

UF 

TOROUE 

5IG.ML 



0 

7807 

KCGL = LU-ITJLJL 






0 

7808 

CALL ZLKC (Z.NZ.NZ.KZ) 






0 

7809 

N = + NX SS 






0 

7810 

M = iV + N V* 






0 

781 1 

do c e i = i , m 






0 

7812 

till = A ( I ,lCCLL > « XSN 






0 

7813 

CO 6 2 J = l . Ml 






0 

7814 

Z(t.J) = A [ I ■ J) 






0 

7815 

CO 6 2 J = UNbKP 






0 

7816 

L CCL = AU SOL OTb LOCATION 

UF 

T OR CUE 

S I 0.4 A L 

T 3 

F Ec;0L3 ACK 

0 

7817 

0 < KIJKP(J) < NO-fi 






0 

78 18 

LC CL = LL- l fKQKP( J) 






0 

7819 

Yll.LCOL* = A ( I , LCUL i 






0 

7820 

COM iNUfc 






0 

7821 

CO 7 C I = LU i N z! 






0 

7822 

i ( l 1 = J .DO 






0 

7823 

CO / C J = 1 . t*Z 






0 

7e24 

Z(l.J) = A( I . J) 






0 

7 825 

CO NT I NJt 






c 

7826 

If- ( «fuT • Ll (JU ) RET UkN 






0 

7827 

WRITE ( IS L T » 1 JCiU ) I I YHl 






0 

7828 

ttIMTE ( NlI , l 301 > 






c 

7829 

CALL »k 1 Tti, C Z *N2 iNl, KZ ) 






0 

7830 

■AR ire ( NET , 1002) 






0 

7831 

CALL A,* 1 liz S( 0. 1 «N2« 1 ) 






0 

7832 

ft T 






0 

7033 







0 

7834 







0 

7035 

CUNT lfs-JE 






c 

7836 

lAUSOl'YPE) = 0 

- 

— 




0 

7337 

T fc CLUSLU LOOP !»<A.SituK 

HJNCI 1 C N T a l 

Z 'J 

ANY SYSTEM STATE 

0 

7038 

variable ( jcll nl r 

L CCAL > OU T D U1 1 u 

Any aYt»! r.M STATE 

0 

7839 

VARIABLE *'*01 5t INPUT 





0 

7840 

i TYPE - 6 rCLUdA 

CK LOOP 

CUT 



r 

704 1 

l r vpti = -a CLobt.0 

LOOP 




0 

7842 







0 

7343 

f*Cf M F ( j r* i fYPc = ”6 






0 

7344 







0 

7845 

All • A l 2 • • • • • A 1 J • 

• AIN 

- 4 1 J 



0 

7346 

A 2 1 • A22 * • • « *A 2 J • « • • 

• A 2N 

- A 2 J 



0 

7847 

m • • 


. 

• 



0 

7348 

• • • 


• 

• 



0 

7849 

• • « 


• 

• 



0 

r 850 


. A JN 13 

= J 



0 

7351 

• • • 


• 

• 



0 

7852 

• • • 


. 

• 



0 

7853 
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c 

• • 

• • 

• 

0 

7854 

c 

A N 1 « AN 2 • • • 

. , ANN 

-ANJ 

0 

7855 

c 




0 

7856 

c 

aheriI : 



0 

7857 

c 

J = JCOL 



0 

7858 

c 

N = 



0 

7859 

c 

tLLML.NTS UF 

2 ECLATED TO 

A MATRIX 

0 

7860 

c 

cLLMLKTS Uh 

U EQUATED TO 

NEGATIVE of COLUMN JCOL 

0 

7 861 

c 


OF A WITH HOW JCOL JF B ScT EOUAL TO ZERO 

0 

7862 

c 




0 

7863 

c 

FIRM FCR I Type = 

8 


0 

786 A 

c 




0 

7865 

c 

All . A i 2 « • • 

• • 0 •••••AIN 

-A I J 

0 

78 66 

c 

A 2 1 * A22 * • • 

. . 0 A 2N 

- A 2 J 

0 

7867 

c 

• • 

• • 

• 

0 

7868 

c 

• • 

• • 

• 

0 

7869 

c 

• *. 

• • 

• 

0 

7870 

c 

1 = A J 1 * A J 2 ... 

. i A JJ ,. . . . A JN 

8 = 0 

0 

7871 

c 

• • 

• • 


0 

7872 

c 

• • 

• • 

• 

0 

7873 

c 

• • 

• « 

• 

0 

7874 

c 

AM • AN2 *•• 

•• 0 •••••ANN 

- ANJ 

0 

7875 

c 




0 

7876 

c 

where: 



0 

7877 

c 

J = JCOL 



0 

7878 

c 

z 

II 

z 



0 

7879 

c 

ELEMENTS OF 

2 EQUATED TC 

A MATRIX, CU.UMN JCOL RESET 

0 

7380 

c 


TO ZERO. (JCOL, JCOL) cLLMENT OF Z 

0 

7881 

c 


rttSET AG A l N 

TO A(JCOl.JCUL) 

0 

7882 

c 

ELEMENTS OF 

ti SAME AS IN 

I TYPE = - J 

0 

7383 

c 




0 

7e84 

ccc 

FCR I1YPE = 8, LRY<2 

. ICYC) IS GLOBAL REFERENCE INPul STATE OF Y* . 

c 

7885 

ccc 


((WHOSE FEEDBACK LBuP IS CUT)). 

0 

7886 

ccc 

LR Y ( 3 

.ICYC) IS GLOBAL OUTPUT STATE OF Y* 

0 

7887 

c 




0 

7888 

ccc 

FCR ITYPE = -8, ERY(2,ICYL> AND LRY13.1CYO ARE THE SAME 

0 

7ee9 

ccc 

( AS 

ITYPE = 0), eUT THIS IS A COMPLETELY CLOSED 

0 

7890 

ccc 

LOOP 

transfer function. 

0 

7891 

c 




0 

7892 


NZ = NY2 *■ NXSS + Nu2 F NB 


0 

7893 


DC 7E I = 1,NZ 



0 

7894 


E< I ) = -A( l , JCCL ) 



0 

7895 


CO 75 J- 1 i N2 



0 

7896 

75 

Z(l,J) = A ( l # J ) 



0 

7697 


IF ( >SN .LT. 0.00) 

GG ru 77 


c 

7898 


00 7 t l -= 1 ♦ N2 



0 

7899 

76 

ZCI.JCOL) = 0.00 



0 

7900 

77 

Z( JCCL, JCOL) = -B(JCUL) 


0 

7901 


E(JCCL) = 0.00 



0 

7902 


IF ( . FCT .LeUU ) RETURN 


0 

7903 


WRITE IN CT ,10 00) ITYPE 


c 

7904 


WRITE ( NET ,1001) 



0 

7905 


CALL WKlTtS(Z,NZ.NZ 

. K2) 


0 

7906 


WRITE I N CT . 1 002) 



0 

7907 


CALL WR I T2SI B, 1 ,N2. 

l ) 


0 

7908 


RETURN 



0 

7909 

C 




0 

79 10 

C 




0 

79 i l 

999 

CO NT INlifc 



0 

7912 


WRITE (6.2001) NtKKLsH 


0 

79 1 3 
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c 0 7914 

1 00 C FUPM^r (• 0U TJlUiU T i f.u IHYPl, TRANSFER MJNU Ion IYPc', 13) 0 7915 

1001 PCRM/T (' niL CFlAkAC TER I 61 IC MArPIX IS •) 0 7916 

loo? FORMAT (• HIE CCKKc^jfMNO I NO INPUT CULF F ICltLNfa AKt • ) 0 79 17 

200 1 f'JP.'l 7 T ( 1H1 , jX,/;UMPKU^RmK SlOPPED IN SUnHjjI'l'it 1>1 Y?E. NERKLR = 0 7918 

4 . I j ) 0 7919 

SI CP 0 7920 

£NO 0 7921 


SUhPCUl INL NUMS { A ,D * ti .k Ik , R1 l .P2R *P2l . PTJ_ , 

4 O A I N • l FLG »NM » N 2 R C • IY . NA, KA J 

C 

C OEBUG06E 

l»vfL 1CI 1 UtAL*a( 

C 

c L M .3T MLO CN 9v/04//5 

C 

C SL6PCUTI.nL UcTERMlNES NJMtS) 

C I !• M 1 1» T hC NUMt^A V Lh uF TRANSFER FUNCTION f UP THROUGH 

C C7LLG Fh’OM UYN 54 0 

C CALLS CF PACKAGE 
C 

CCVMCN /UkATiC/ 

4 IFL l • lFL2.URtffcC< l 50 ) 

LOGICAL CuOuG.LEQU 
CC.VMCN /L JuloG/ OtoUut UO) 

£CL 1 \ AL tNCL <L.EGU#UccJUG( Co ) ) 

C 

Cl Mt NblCJN A( KA • 1 ) «L( 1 1 • i< Ik ( 1 ) « K 1 1 ( 1 > ,M2R< l > »k^I ( 1 ) 

Cl MEFS LCN u< KA, l 1 
C 

C SUBROUTINE ARvj^Mf- NT DESCRIPTIONS 

C 

C A = INPUT TRAi'or OWMLU PAR I I AL OERIVATIY.L MAI k I A • NA,NA 

C 13 = INPUT COEFP. OF INPUT IF FOR 0 ( OUT > / 0 ( l N J • NA, l 

C P 1R - OUTPUT REAL KGUTS UF FIRST TERM IN NJNE«* J U^ . NA- l 

C kll = OUTPUT IMAGINARY RCoTS OF FIRST TERM IN NJMc.RmTUR. 

c R 2 R = output kFal kuuts lf ;>eccnd term in numerator. na-i 

C. k£l = lYAoiNAkY kuUTS OF SlCONO TERM IN NUMERATOR. 

C FOR 1 N V/t : .k SE lHIFI. 

C P T CL = INPul TOLERANCE TU RLMCME THE P(I) = 0 <OuT3 

C GAIN = OUTPUT GAIN OF NUMckATUR. 

C NN = UU TOUT NUMbck UF NuMc-kATCR TERMS. ul TH;k l u k 2. 

C IY = INPUT COL LuCATluN uF DESIRED Q ( CUT I — Arf sULU I E— — 

C KA = INPUT ROW O i MLiM 01 LiN S17E OF A IN CAlL lNo PRUokAM. 

L IFLG - F L Au TO 5 c: T rO« clKO GAIN. 

C = J 2t£Ru GAIN Jt I lCT . 

C =1 vjAIN NUT 2l«0. 

C 

CON = - C SGkT ( 3 « U 0 ) 

C 

IFL l = l 
IFL 2 = 0 
IFLG = l 
C 


0 7922 
0 7923 
0 7924 
0 7925 
C 7926 
0 7927 
0 7928 
0 7929 
0 7930 
Q 7931 
0 7932 
0 7933 
C 7934 
0 7935 
100 7936 
0 7937 
0 7938 
0 7939 
0 7940 
0 794 1 
O 7942 
C 7943 
0 7944 
0 7945 
0 7946 
0 7947 
0 7948 
C 7949 
0 7950 
0 7951 
0 7952 
0 7953 
C 7954 
0 7955 
0 7956 
C 7957 
0 7958 
C 7959 
0 7960 
0 7961 
0 7962 
0 7963 
0 7964 
0 7965 
0 7966 
0 79 6 7 
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n n n r n o n n n n n 


C FORM A L G- j 'cNTlJ A MAlklX 

C HfcPL AC6 C CL IY OF A aIJH CGL »\A oF A ANJ 

C FUI t INTO COL NA OF A 

c 

CC l C l = 1 • NA 
A ( I* I Y ) -= A ( I * N A ) 

10 M I.NA) = -U < I ) 

C I NT ER CHANGc ROW I Y OF A aITM r<U h NA CF A 

CO If J - U N A 
z = n l Y , J ) 

A ( I Y . J ) = A ( NA » J ) 

I £ A(NA ,J) = Z 

C CETAIN PIVOTAL ELt ANL) CK FLK ZERO 
l s / ( NA *NA) 

IF ( 2 *EC. 0*U0) Gu TU bO 
CAIN = - l 
NN = 1 

CO 2C 3 = I > NA 

2C A ( N 4 * J ) = A ( NA ♦ J ) / Z 

N A 2 = NA-1 
CC JC l - l * NA 2 
OO 3 C J=1*NA 

30 A l I * J ) = A { 1 » J ) - A ( J , NA ) * A ( NA * J ) 

CALL rtrk 1 TE ( AiNA t NA« 4 HANUMiKA ) 

C GET R COT S OF AUG Me N TED A MATRIX IF ALL PIVJT ELEMENTS NGN-ZERO 

CALL URORVR ( A • N A2 .R l R *k 1 l * KA ) 

NZRO = NA2 
GO T C 10 0 

C CCVt HERE IF PIVOT tLLMLNT ZERO* SEE bOT X JM PAGE 7 l . VOL I 

£0 CONTINUE 
C 

NN - l 
N A 2 = N A— 1 

FORM CA - I* CON) 

CO 5f l = UNA 2 
SS A( I i I ) = A ( I , l ) - CON 

CALL GAUSSI TO GET (A - I*CCN>**C-ll RclJRM IT IN 0 ARRAY 
CALL C AG SSI <A*0*NA*KA) 

IF ( IFL2 .EQ* 0) GO 10 67 
IF L2 = 0 

IFLG - 0 

ZERO GAIN ENCGUNTLKEu IN GAUSSl* 

RE TURN 
b 7 CONT INUE 

FCRM PRODUCT DEFINED BY EQUATIGN II 1-41 
C NOTE THE I TILDA MATRIX HAS ZERO IN NA * NA POSITION 

CO 5 5 I = U NA 
59 G ( l » NA I = 0*00 
C 

C FIND RUCTS OF EQUATION 111-42 

IF ( L ECU ) CALL WR I Tt ( D . NA .NA ,6H -D- * K A ) 

CALL CRDRVR (D * N A • R2 K • R2 l * K A ) 


0 7968 
0 7969 
0 7970 
0 7971 
0 7972 
0 7973 
0 7974 
0 7975 
0 7976 
0 7977 
0 7978 
0 79 79 
0 7980 
0 7981 
C 7982 
0 798 3 
C 7984 
0 7985 
0 7986 
C 7987 
0 7988 
0 7989 
C 7990 
0 7991 
0 7992 
C 7993 
0 7994 
0 7995 
0 7996 
0 7997 
0 7998 
0 7999 
0 8000 
0 8001 
C 8002 
0 8003 
0 8004 
0 8005 
0 8006 
C 8007 
0 8006 
0 8009 
0 80 10 
0 801 1 
0 8012 
0 8013 
0 80 14 
0 80 15 
0 8016 
0 8017 
0 8018 
0 8019 
0 8020 
0 8021 
0 8022 
0 8023 
0 8024 
0 8C25 
0 8026 
0 8027 
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no r r. nor n r r 


RE MO VE THE P(I) = 0. ROUTS. 


CALL SIFT <R2R *NA*PTOL ) 

CALL SIFT (R21 *-NA,PTUL > 

K=C 

CO 6 C I = l . NA 

IF (RJK(I) .t'O. O.UO .AND. 

♦ F2l(I) .EG. 0.00) GO TO 60 

K=K+ I 

R1R< K ) = R2R ( I ) 

R1 It K ) - R2I ( I ) 

60 CONTINUE 


GET NOMLK A T UP v>AlN St L LOUATION 111-48 

N2RU - NUMtih'R uF NON-ZERO ROOTS IN NUMS.*<AIJ* cUuATION 
N Z R C = K 
CC 7 C l = I ♦ N A 

IF (I . GT . NZKU) x,u 1 0 7 1 
IF (Fll(i) .EG. O.UO) GO TO 65 

CRVEC(l) = DRVfcC ( I ) *DSUR T(R IR( I ) ** 2 + »liU)02) 

CO TC 7 0 

65 CRVEC(i) = U«VeC( I ) *R 1 RI I ) 

7 C CONTINUE 

FCRM PRODUCT DEFINED LY uUUATION [11-46 TO JdfAlN 
NUMERATOR GAIN 
71 CAIN- CfiVb C ( l ) 

CO 6F 1=2* NA 
50 CAIN = G A1 N*ORVEC ( l ) 

IF <(MJD< (NA-NZRU) .*,) .tU. 1) GAIN = -GAIN 


C 

C 


C 


l oc 


REMOVE T Ft SHIFT VALUE 1C Lb TAIN TRUE ROOTS. 

SCI) *= 1.0/Pli) ♦ CUN S AND P UJMPLiX Ur COURSE 


CO a C i = 1 , NZ RQ 
FMGD = fi 2 *■ Kll (I 

R1R(I) •= RlR(l)/RtfOU + CON 
R 1 I ( I > = -RI It I ) /RrtbD 


CALL bill 
CO NT 1 NJt 
IF U.t JJ ) 
IF (LEC'J ) 
IF ( L t v.U ) 
Rt TUPN 


lo l URVCC * l » NA »bhJK AT 1C . I > 

CALL aKi TtlrUK* 1 ,NJtO,6H — R l R — 
CALL a‘ R I Il(Ki 1 • 1* NZR U • 6H — R l l — 
CALL WR l let oA I n . 1 • 1 . oF GAIN *1 


FNC 


1 ) 
l) 


C 8028 
0 8029 
0 8030 
O 8031 
0 8032 
0 8033 
0 8034 
0 8035 
0 8036 
0 8037 
C 8038 
0 8039 
Q 8040 
0 804 l 
0 8042 
C 8043 
0 0044 
0 8045 
0 8046 
0 8047 
0 0048 
C 8049 
0 8050 
C 8051 
C 8052 
0 8053 
0 8054 
0 0055 
0 8056 
0 8057 
0 8058 
0 8059 
0 8060 
0 8061 
0 8062 
0 0063 
0 8064 
0 8065 
0 8066 
0 8067 
0 8068 
0 0069 
0 0070 
0 00 71 
0 8072 
0 80/3 


C 

c 

c 

c 

c 


CJCRCUIiNu T FPL Y ( A , U * u • A . N. S . L ) 
I M R L I C I T R c A L <•' 8 ( A — H • U — Z ) 


DEBUG f* 69 


C l ME NS l CN All), dll) 

SuOFCUlU.t CUN VEk 1 5 I'nANoI <_R FUNCMUN POl. t NUM 1 ;*JAL 

c XPRL o S I <j 9 5 lu FIRST OKOtW CANONICAL jTaI b 


0 d074 
0 8075 
0 8076 
0 8077 
0 8078 
0 8079 
0 8000 
0 8081 
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C SP AC E f URH A NO NET URNS THE TRAN SF U -i ML O OUTPUT 0 8082 

C VARIABLE, X. 0 8083 

C 0 8084 

C 0 8085 

C || 0 8086 

C U | | X 0 8087 

C >| TF(S> I > C 8088 

C II 0 8089 

C || 0 8090 

C 0 6091 

C 0 8092 

C 0 8093 

C 6(1) 1- 6l^)*U F 6(3)*S»*2 + ... +■ J l KS) *5# * ( KS- l ) C 8094 

C T F ( 5 ) = 0 8095 

C A ( 1 ) *■ „(2)*S f A(3)*S**2 F ... F A ( NS ) *S»* ( NS- 1 ) 0 8096 

C 0 8097 

C WHERE KS.LE.NS 0 8098 

C 0 8099 

C C 8100 

C SUBROUTINE ARGUMENT DESCRlPTluNS 0 8101 

C 0 8102 

C A - INPUT VECTOR OF DENOMINATOR POL Y NOM I NAw C 8103 

C COEFFICIENI S — ASCENDING ORDER. 0 8104 

C d = INPUT VECTuk Or NUMERATOR PCLYNOMINAL C 8105 

c Coefficients — ascenoing order. o eio6 

C U - INPUT ST ATi_ VARIAELE TO QE CPERATEJ ON BY the 0 8107 

C POLYNCMi NAL TRANSFER FUNCTION. C 8108 

C X ■■= OUTPUT VARIAELE RESULTING FRCM THE TUANsrtR 0 8109 

C FUNCTION OPERATING CN U. 0 8110 

C NS = INPUT SI 2 E OF A AND B. 0 8111 

CL = INPUT LOCATION (IN STATE VECTOR) 0- THE 0 8112 

C LEADING ELEMENT OF THE NS-l STATE VARIABLES 0 8113 

C ESTABLISHED FROM THE PCLYNCMI NALS . 0 8114 

C 08115 

C FC« THEORY SEE VOL l.PAGE 78 C 8116 

C 08117 

COMMON /VECTOR/ 0 8118 

E Y (250), YO (250) 430 8119 

CATA NIT/ 6 / 0 8120 

C 08121 

C NORMAL] 2E A AND B COEFFICIENTS TC COEFFICIENT OF C 8122 

C HIGHEST DERIVATIVE IN DENOMINATOR. A(NS). 0 8123 

C 0 8124 

AN = A ( NS ) 0 8125 

IF (AN .EO. 0.D0) uO TO 999 0 8126 

C C 8127 

00 l C 1=1. NS C 8128 

A( I) = A(I ) / AN 0 8129 

10 E( I) = Ell) / AN 0 8130 

C 0 8131 

BN - E ( NS ) 08132 

C 0 8133 

C FORM ST A TC VECTOR T 1 MC DERIVATIVES AND PUT INTO TOUT 0 8134 

C BEGINNING WITH LOCATION L IN YOOT. 0 8 1 3S 

C 0 8136 

C CARRY OUT MATRIX OPERATIONS CALLED FOR GY EQUATION 11-69 C 8137 

C 0 8136 

CO 2 C 1=2. NS 0 8139 

C 0 8140 

„ = NS— I +1 08141 
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n - L I — 2 

IF (I .cC. .NS) GO 1U 2D 


20 YO t K ) 


-A(J)*Y(L) f Y(K+l) f (fi( J)-A( 


1 .3 0 l 


YO(K) = -A(J)*Y(L> Ij( J)-A( J)*f3N)Mj 

* - N ( i_ } ► f jN*U 

fi£ 1 >J K N 

CALL PaGlHO 

73* I T E (MT ,1001 ) 

FCPMM ( ///• 10X • 3j».CU_FF iLltNT CF HIGHEST » 

* / • 10X . J2nJL1l VAF I Vt OF OCNCM I NAI J k cANNJT 

* /*IOXil7r1cU tOl/AL To /Ef<0 * • 

* //, IOX, bFOPPFO.) 

s rep 

6N0 


0 3142 
C 3143 
8144 
8 145 
8 140 
8147 
3 1 48 
8149 
8 1 50 
8 151 
8152 
81 53 
8 1 54 
8155 
0 8 156 
0 8157 
0 0158 
0 8 159 
C 8160 


c 



DEBUG # 70 

0 

8 162 



1MPL 

I C l I A-H, U-Z 1 

0 

a 1 63 

c 




0 

8164 

c 

5 L Fi PnoT 

IN.- KzCuIVCS OK ROOT OUTPUT CF THE FOR*. 

0 

01 65 

c 



krt< 1 > .R II l ) , I = l . M 

0 

8166 

c 



AN.; PuACES kt.AL RUu T S (INCLUDING 1MTU 

c 

8 167 

c 



VAIRlX RLkl (SIZE MG ■ THEN PLACCa TH; 

0 

8168 

c 



COMPLEX PAIRS (Alii *J e < 1 > , INTO 

c 

8 169 

c 



MATRIX CMPK-- COMPLEX PAIR ORDER I'j 

c 

8170 

c 



CMPKt I ) = A ( I > 

0 

8171 

c 



3MPR( I FI I - 8(1) 

0 

8 172 

c 



SAVES ONLY RzaL Af.U POSITIVE I MAG PARTS IN LMPR. 

0 

3173 

c 



S I Z<t OF CMPK IS d * KC . 

0 

8174 

c 




0 

8 I 75 

c 



SUBROUTINE ARGUMENT OESCR I PT1U.NS 

0 

81 76 

c 




0 

8177 

c 

nF 


= INPUT ARRAY UF kt_ AL PARTS. SIZE Is N 

0 

8 l 78 

c 

u i 


= INPUT ARRAY oF IMAGINARY PARTS. SIZE IS N. 

0 

8179 

c 

N 


= INPUT Slit UP HR ANU Rl. NUMtiER OF UR kOOTS. 

0 

8180 

c 

KP 


= OUTPUT SIZE ur RLkI. NUMEER CF REAL HuJTt , 

0 

8181 

c 



I I NCLUOING ZEROS). 

c 

8182 

c 

KC 


= NUMBER C.F COMPLEX PAIRS. 

0 

8183 

c. 

K Z 


- ULTPUT NUMBER Up ZERUS. 

0 

8184 

c 




0 

8 l 85 

c 

H LPT 

= UuTPUT REAL ROOT ARRAY. SIZE KR . 

0 

8 106 

c 

C VPP 

= UuTPUT COMPLEX PAIR ARRAY. SIZE 2*XC. 

0 

8 187 



CIKdASiLN rvP( 1 ) ,TUU ) ,KLPT( 1 ) . CVPK < 1 ) 

0 

8188 



KH = 

c 

c 

8189 



KC = 

0 

0 

8190 



KZ = 

c 

c 

8191 

c 




0 

8192 



CU l C l - 1 ♦ N 

0 

6 193 




IF (KKl) •LQ. J.UO) Lb TO 5 

0 

8 1 94 




IF (KI(l) .LT. 0 .l» 0) GL TO 10 

0 

8195 
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ni^nnnnr! r> nor", nnno 


KC = KCH 
L = 2*K C 
CMPH (L-l ) = HR ( l J 

C.MPR IL ) = Rllll 
GO TC 10 
S COM INUE 

KR = KR+i 
FLRTIK.K) = RRI1I 

IF (RPill .EO. 0.D0) KZ = KZM 
I 0 COM INUE 
C 

RETURN 

ENC 


0 3196 
0 8197 
0 3196 
0 3199 
0 3200 
C 8201 
0 8202 
0 8203 
C 8204 
0 8203 
C 8206 
0 8207 
0 3208 


SUBRCOIINE R MV id R O (UR, NR) 0 8209 

C DEBUG # 71 C 6210 

IMPLICIT Rt--AL«at A— H. Cl-M 0 821 1 

C 0 82 l 2 

C SCOFCLTINL REMOVES REAL ZEROS FROM REAL ROOT ARRAY. C 8213 

0 8214 

SUBROUTINE ARGUMENT DESCRIPTIONS 0 8215 

0 8216 

RF - lNFUT/OUTPur ARRAY CONTAINING ALL RcAL ROOTS. 0 8217 

NR = INPUT/QUTPUT NUMoER OF REAL ROOTS. 0 8218 

C 8219 

ClMENotCN RR ( 1 > 0 8220 

0 8221 

K=C C 8222 

CO 1C 1=1. NR 0 8223 

IF CFR(I) .EQ. O.ou) GO TO 10 0 8224 

K = KH 0 8225 

RR (K ) = RRU ) 0 8226 

1 0 CON T INUE 0 6227 

NR = K 0 8228 

RETURN 0 8229 

END 0 8230 


EUeRCJTINE SIFT (A.N.TOL) 0 8231 

DEBUG #72 0 8232 

IMPLICIT WEAL*8< A-H. U- 2 ) 0 8233 

CINEFSICN All) 0 8234 

C 8235 

SUBFOUT INc. SEARCHES ARRAY, A, FOR SMALL VALUci Or A AND SETS 0 8236 

THESE SMAlL VALUES TO 0.0. 0 6237 

0 8238 

SUBROUTINE ARGUMENT DESCRIPTIONS 0 8239 

0 8240 

A = INPUT, OUTPUT VECTOR ARRAY TO BE SCAVNEO FOR SMALL VALUES. 0 8241 

C N = INPUT SIZE OF A. 0 8242 

C TOL = INPUT TOLERANCE. IF (All) .LT. TOl. All) = 0.0 0 8243 
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c 

CO 1C l = l.N 

IF (CAcJSIMl )) .LI. TCL ) All) = 3.00 
1 0 CONT INOE 
C 

RETURN 

END 


0 8244 
0 8245 
0 8246 
0 8247 
C 8248 
0 8249 
0 8250 


SUERCuTINE SFRE02 (NN-i .1 CN .NOR , I CO ,GAl N. 

1 FURN.F BNC.FER .FeOC . 

2 F Ml N, FMA A. T I TLE ) 

E OEBUG « 7 3 

C 

IMPLICIT KEAC*3 (A-Pl.U-2) 

R'eAL*4 SAVED. SAVEP. SAVED. 5 A V E A 
PE AL A 4 FMIN , FMAX . TITLE 
C 

C SUBPLOT I N E DETERMINES b-PLANE F HEOUENC V RESPONSE 

c using variable incrementing techniques. 
c 

C M.ECUENCV RESHUNSE SAVCu IN COMMON BLOCK /PSTJPF/ 

c 

c SUBROUTINE ARGUMENT DESCRIPTIONS 

C 

C NNP = INFUT NUMERATOR R..AL ROOT CUCNT. 

C I CN = INFUT NUMERAIOR CUMPLEG PAIR ROOT CJjNT. 

C NCR = INPUT DENOMINATOR REAL RCCT COUNT. 

C ICC = INPUT OLNUMINATUR COMPLES PAIR ROOT COUNT. 

C GAIN = INPUT CODE GAIN. 

C FERN - INPUT NUMERATOR Re AL HUCIT3 (INCLUDING iirlOG) . 

C FfiNC = INPUT NUMERATOR COMPLEX PAIRS. 

C PcR = INPUT DENOMINATOR REAL RGCT5 (1NCL0O1NU 2ERUS). 

C F EOC - INPUT DENOMINATOR COMPLEX PAIRS. 

C TITLE = INPUT uG CHARACTER ALPHANUMERIC TITLE. 

C 

CCRPLEX»Io PRUU . F UeN , f num 

DIMF.NSlLN FuRN (1) . rBNC (1) . F3R (1) . ruJC (I) . 

1 TITLE!!) . Lu(20 7) . TA0G(2C) . TAJuP(Ji). 

2 1 a U2 ( 30 ) .TAbuMul) . PWCUI I ) . 

3 FNUMI100). F UE M 100) 

commcn /ps tuff/ 

» SAVEU(SOO). SAVEP(SOO). SAVED(jUU). S A V E A ( b 00 > . KSAVE 

CCVMCN /KjSI it/ 

1 KR « KaI. KKX. < V 1 , KV2. KVx 

CCMMC.N / LV l / 

C VI l 1 D 0 ) . V (10 0). V 3 llO'J) 

COMMCN /LDEUuo/ OLeU-jIUJ) 

LOGICAL CCbO G . LEQ'U 

EOC I VALeNCe (LEUU.ueuUGI 73 ) ) 

c 

c 

CAT A K„D/297/ 

CATA K UjAVe/'JGO/ 

CATA NUI/ Ci / 

C TALC - CROSS CONSTANT TAuLL 


0 8251 
0 8252 
0 8253 
0 8254 
0 8255 
0 8256 
0 8257 
0 8258 
0 8259 
0 8260 
0 8261 
0 8262 
0 8263 
0 8264 
0 8265 
0 8266 
0 8267 
0 8268 
C 8269 
0 8270 
0 82 71 
0 8272 
0 8273 
0 8274 
0 8275 
0 6276 
0 0277 
0 0278 
0 8279 
462 8280 
0 828 l 
4 fc 4 8282 
0 8283 
447 6284 
0 8285 
0 8286 
C 8267 
426 3288 
0 02e9 
0 6290 
0 8291 
0 8292 
0 8293 
466 3294 
468 8295 
0 0296 
C 8297 
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u u 


c 


c 


c 


c 

c 

c 


c 


c 


c 

c 


c 

c 

c 

c 


c 

c 

c 


c 


c 

c 


C A 7 A XT AEG.KTABUP .NTA60N/1 8*3 l .29/ 


CATA TAdLP / 


l 

0 . cCOOODO • 

0. /OOOOuO, 

0. 7500000 • 

0 • 83 3 0 0 3 3 * 

J .6400000 « 

2 

C. 880 JO 00 • 

0.9o00GO0« 

0. 92000D0. 

0.940003 J . 

0.9600000* 

3 

C .9650000* 

0. *70 JUDO . 

0. 9 750000 » 

0 • 960 0033 • 

3.9840000. 

4 

J. 5880000* 

0. 99 00000 . 

0. 9920000 • 

0 . 99 4 J 0 J 0 • 

0.9960000 • 

5 

C. 95oOQ DO • 

0 • 9986000 . 

0.9955000* 

0 .99 9 7 53 3 • 

0 • 59 99 ODO • 

6 

0 .5999^00. 

0.599940C* 

0. 9999600. 

0 .9999633 • 

0 .9999900* 

7 

1 . OCOOOO/ 






CATA T AUG / 

1 .0300. 

1 . 

1 0 DO • 

1 . 2500 . 

i . 40D3 . 

1 • 6 JDO . 

l .8000 

1 

2.00DO* 

2 . 

2u DO • 

2 • 5000 . 

2. 8000 . 

J. 2300 . 

3 .8000 

2 

4 . bODu . 

5. 

cl) LU • 

6 . 2 00 0 . 

7. 0000. 

7.3000, 

6 .9000 


3 0*0000. 0.G0D0/ 


TAUUF LCADING LP TC THE DAMPED NATURAL F * faDU LNC I E S • 


VMAX = C.DG 
FOPHI = C . 00 
Wl = C.00 


KWCT - 0 
KOPH = 0 
KPKIM - 1 
KSAVE = 0 


NR N - NNR 
NCN = iCN 
NHD = NOR 
NCD = ICO 
FK - GAIN 


CO 110 1 = 1 • K T ABO N 

J - KTABCP-1 

110 TABDM I ) = 1 •DO/TAtiUPl J) 

TAOJN LEADING AWAY FROM DAMPED NATjRAL FREQUENCIES 

LNLTK LINE COUNTER 

120 LNCTR = 50 
JX =13 

NULL WO 

CO 125 1= 1 . KWO 

125 WD( I ) = C.00 

130 CONTINUE 

DO 14 0 I - l .KR 
FNUM(I) •= (0.00*0. DO) 

FDEN(i) = (O.DO.O.UO) 

140 CO NT INUE 


FMIN = LOWER LIMIT. 

SAVE IT AND DESTROY SAVLO IF NEEJiO 
SAVLC = CBLE(FMlN) 

COMPUTE NUMERATOR DAMPED NATURAL FkEOJEnCIES. 


C 8298 
0 8299 
0 8300 
0 8301 
0 8302 
0 8303 
0 8304 
0 8305 
0 8306 
C 8307 
0 8308 
C 8309 
0 8310 
0 8311 
0 8312 
0 8313 
0 8314 
C 8315 
0 8316 
0 83 17 
0 8318 
0 8319 
0 8320 
0 8321 
0 8322 
0 8323 
0 8324 
0 8325 
0 8326 
0 8327 
0 8328 
0 8329 
0 8330 
0 8331 
0 8332 
0 8333 
0 8334 
0 8335 
0 8336 
0 8337 
0 8338 
0 8339 
0 8340 
0 8341 
0 8342 
0 8343 
0 8344 
0 8345 
0 8346 
0 8347 
0 8348 
0 8 349 
0 8350 
0 8351 
0 8352 
0 8353 
0 8354 
0 8355 
0 8356 
0 8357 
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c 


i)EL.. It fHtn-JtNCltS HHICh ARE HIOhLY DAMPED 

0 

8350 

c 


iHc*ar.u*2,or.i.ji skip asscciaied b gjg*cy 

0 

8359 

c 



0 

8360 



I = c 

c 

8361 



IF ( HN ) 1220. 18J. IjO 

0 

0 362 


1 50 

A T L T A — NC N * 2 

0 

8363 



CO 17 0 J = l , MIUTN , 2 

0 

8364 



adle - FEr.c(j) * 1 -unci jui 

c 

3365 



BAKER = F.,i.<c ( J+ l 1 * iljv.-km.J0 - fSNCl 

c 

3366 



TgJ'P = (HAKtk)«*2 - IAJLE)**2 

0 

8367 



If ( 1 lMH ) 17 0, 1 7l» . loO 

0 

8360 


1 GC 

I =14-1 

0 

8369 



-a 0 ( l ) = B A K L *« 

0 

8370 


1 7 0 

COAT 1 NOE 

0 

8371 

c 



0 

8372 

c 


COMPUTE Ur.NCM l Ai ATCR DAMPED NATURA. E.4 :uOlNC 1 tS. 

0 

8373 

c 



0 

3374 


l ttC 

IB (BCD) 1240. 220. l'JO 

c 

8375 


100 

AT C r C = AC D A 2 

0 

8376 

c 



0 

8377 



CC 2 10 J = l ,N ri.lTD ,2 

r 

0370 



ABLE J FHut ( J ) « EoOCl JH) 

0 

3379 



BAKER = FLDC ( J4-.1 ) » u-jukTIl.tlJ - B fciOC ( J ) «.= 2 1 

0 

8380 



TEMP = 1-.1AKLK1AA2 - (AtiLwl*»2 

0 

8381 



IF ( T GMP 1 2 1 J . 2 10. t JO 

0 

8332 


20 C 

I = It! 

c 

0383 



AU < I ) = EakCB 

0 

8384 


2 10 

COAT I AUE 

0 

8385 


220 

KCCOAT = 1 

c 

8386 

c 



0 

8387 

c 


ThcHL AHt. KCOJNl B Pc OUEnC I ES . 

c 

8388 

c 


sub r them in increasing magnitude. 

0 

0389 

c 



0 

8390 



IB (KOUAT - 1) 240, JSO. 2s0 

0 

839 1 


24 0 

J= l 

0 

8392 



GO TC J 7 C 

0 

8393 


25 0 

DO 270 J=1 .kCGUNT 

0 

8394 



CU 2 7 0 l = J , K.CCUNT 

0 

8395 



IF Uj (J) .LE. WJUII GO TL 270 

0 

8396 



TEMP - ViD(j) 

0 

8397 



AO ( J > = AU< l ) 

0 

8398 



AO ( I > = T eMP 

0 

3399 


H 7 C 

COAT 1 AUL 

c 

8400 

c 



0 

840 1 

c 


GOBI CGMFLLTL < 

0 

8402 

c 


Cl-icCK F Oh b JJAl bBeuuCNCI ES. 

c 

8403 

c 


IF SO. Ec i M 1 NATL ONE. 

0 

8404 

c 



c 

8405 


2HC 

I = l 

c 

8406 



J = 2 

0 

8407 

c 



0 

8408 


290 

IF (KOI 11 - AO(J)) GOO, jeO, 3 40 

0 

8409 


3 0 0 

1 = IB l 

0 

8410 



_ = j 4 1 

0 

84 1 1 


3 1 0 

IF (KCGCM - J) JOO. OOO, 2S0 

0 

84 12 


32 C 

DO 320 K=j,KCCJNT 

0 

34 l 3 



AO ( (t- 1 » = uOlKI 

c 

84 14 


33 0 

COAT I A UE 

0 

84 15 



»CIKC CUA 1 ) = 0 .DO 

0 

84 1 6 



KCFUAT = KCU UN T - l 

c 

84 1 7 
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cc rc j io 

3 4 0 CALL rAijcHO 

WRITE UCT.lJlJ) 

l "j l J RJI'M A I ( // 1 U X . 23H1HL ibKl kCUTlNl! FAILED / 

1 10 X . I oHPKUotfAM SlUPPtO. ) 

ST LP 

3SC CONT I NUc 

IF (1. LOU) CALL *«KI ThCtaJ . 1 .KCuJNT ,6H WO .1) 

C 

C 

c 

360 I = 1 

u - I 

IF ( 1 ) .uT. O.JC) 00 TO 430 

3 7 C V* = TAij'O(J) * 5AVLC 

IF C W .0 1. DULL ( FMAX ) ) uC To 4 00 
IF (KTAgO .GT. J) uO TO 4 1 C 
SAVLC - SAVLC * 10.00 
J = 1 

K.K = l 
CO TC 8«*0 
C 

C THt SHOW IS JVcR • 

C UcTOUT. 

C 

4 0 C KK = 6 

GO TC 1490 
4 l C J = J + l 
KK = 1 

GO r C 3 4 0 

c 

C fc, 14 T k V POIN1 FLk LOOPING CN FRFQULNCY IhCWcMLNTING# 

c 

4 2 C GCNTlNot 

GO TC (370, 400 , OJO • clG, 660 , 1490), KK 

430 IF (VtCll) .OT. 5AVLU) GO TO 430 
1=14-1 
GO TC 430 

4 5 0 IF ( T AU G ( J ) * S A VLQ - TAdJPI 1 )*WD( I) ) 460. 4*0, 490 

4 6 0 W •= 1 AUG ( J )* bAVLO 

IF (KTAUG .OT. J) vjG TO 480 
SAVLO = SAVLO * 10.00 

J = l 
KK = 2 

GO TC 330 
480 J = JM 
KK = 2 
CO TC 830 
490 J = l 

50 C IF ( J - KTAUUP) 520, 510, b30 

SIC Vk = TADOFIJ) * WO(l) 

KPRIM - 2 
J = JM 
KK = 3 
GO TC 830 

520 W = T A 3 UP ( J ) * WD(I> 

J = J 4 l 
KK = 3 

GO TC d 3 C 

530 IF (WC<l+l> .GT. 0*00) GU TC 850 


0 0418 
0 0419 
0 8420 
0 8421 
0 8422 
0 8423 
0 3424 
0 8425 
0 8426 
0 8427 
0 8428 
0 8429 
0 8430 
0 8431 
0 8432 
0 8433 
0 8434 
0 8435 
0 8436 
0 8437 
0 8430 
0 8439 
0 8440 
0 8441 
C 84 4 2 
0 8443 
0 8444 
0 8445 
0 8446 
0 8447 
0 8448 
0 8449 
0 8450 
0 8451 
0 8452 
0 8453 
0 8454 
0 8455 
0 8456 
0 8457 
0 8458 
0 8459 
0 8460 
0 8461 
C 3462 
0 8463 
0 8464 
0 8465 
0 8466 
0 8467 
0 8468 
0 8469 
0 8470 
0 8471 
0 8472 
0 8473 
0 8474 
0 8475 
C 8476 
0 8477 
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9 


0 

8478 


THE LAST FKcUUtNCY IS 

I . 


0 

8479 


MAKE U1 A UUMMY. 



0 

8480 





0 

8481 


*0 ( I ♦ 1 I = KM AX * TAou.NtK TAbUN) 



0 

8482 

55 C 

IF ( TAciLPt JX )*WU( IF 1 ) - toO(I)> 

560. 640. 660 


0 

8483 

560 

J = JX 



0 

8484 

570 

IF ( TAdUF( J) «‘«D( 1*11 - toJ(D) 

530. 590. oJJ 


0 

84 85 

560 

J = J + 1 



0 

3486 


C-C T C 5 7 C 



0 

8487 

590 

J = J+ l 



0 

8488 

60 C 

I = I ♦ 1 



0 

8489 

6 l 0 

IF ( (J-KTAOJP) .t'O. 0) KPKiNT 

= a 


0 

8490 


IF ( j «G I* KTAOuP) oU TO OjO 



0 

8491 

6 2 0 

W = TAlJUFC J J *fcD< I ) 



0 

8492 


J = Jfl 



0 

8493 


KK - 4 



0 

8494 


00 TC 630 



0 

8495 

630 

J - l 



c 

8496 


GO T t 5 J C 



0 

8497 

6 4 C 

J = JX + l 



0 

8498 


GO T C o 0 0 



0 

8499 

65 C 

J = I 



0 

0500 

660 

IF (J .GT. KTAOON) GL TU o90 



0 

8501 


IF ( 1A.jJN( J) *1>0( i ) - I ALIPI J< 1 MDl If 1 1 1 680, / 4 J. 730 


0 

8502 

6 0 C 

to = 1 A J L) N ( J) * *D<1) 



0 

8503 


J = J ♦ 1 



0 

8504 


KK - 5 



0 

8505 


CO T C J 3 C 



c 

8506 

6 VC 

IF ( TAdL-Pl n *»D< 1 +U - IA85M* rAB 0 K>*wJ( I> > /jj, /oo. 

760 

0 

3507 

70 0 

J = 1 



0 

8508 

r i o 

IF ( TAliUPt J) ! + l) - T AukNI K T AtO N) * aD l 1 ) ) / 2 J , 730. 

7 50 

0 

8509 

72 0 

J = J + i 



0 

3510 


GO T C / 1 C 



0 

8511 

730 

I = 1 + 1 



0 

8512 


GO r C 6 1 C 



0 

8513 

74 0 

V - 1 



0 

8514 


GO T C 6 0 C 



0 

8515 

7 00 

J - J x 



c 

8516 


GO T C oCC 



o 

8517 

7 60 

IF ( 1A.JOMKT AUON ) l ) - IAJG 

( K r A 20 ) *SAVL j ) 7 70 . 34 J. 

620 

0 

8518 

7 7 0 

J - 1 



0 

8519 

7 6 C 

IF ( 1 AtluM KI AfiUN ) ( i > - I AcJO 

( J ) 4 SAVlU ) 7^0. /OO. 600 


0 

8520 

7 7 G 

I = 1*1 



0 

8521 


GO T C ‘♦SO 



c 

8522 

•HOC 

J - J ♦ i 



0 

8523 


GO TC 7 c C 



0 

8524 

6 l C 

» A VL C = SAVLU * 10.00 



0 

8525 


J - l 



c 

8526 


I = 1*1 



0 

8527 


go r c *♦ 6 c 



c 

3528 

6 2 0 

SA VL C - SAVLCJ * 10.OG 



c 

8529 


GO rc 7 6 C 



0 

8530 

6 JO 

IF (to .GT. H MAX) uu T*J 14-^0 



0 

853 1 


IF ( L too ) will TC (NOT. i 03) V* ,..U( l 

) . 5 A VL U . i .0* CK»JX.K**LI 


0 

3532 

l 0 0 

F 0 PM AT (• V# s'.Llu.d,' ViUI I i = 

' . t 1 5 . S . ' SA«/LO s*. cl d.8 

. • I = • . I 3. 

0 

8533 

* 

* J = • . 1 3 . • KK ~ • * l J » * 

JX = • . 1 3 . • =M j) 


0 

8534 

6 '* C 

Jl = 1 



0 

8535 

65C 

IF ( > 1210. 010. oljO 



c 

3536 





0 

8537 
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c 

EVALUATE NUMEKAIOK kLAl HOOTS 



0 

8538 

c 




0 

8539 

36 0 

CO 9 C 0 11=1. NHN 



0 

8540 


IF ( FEkNU I ) • t£Q • C. • DO ) 00 TO 380 



0 

8541 

•5 7 C 

rNUM(Jl) - JCMPLX< 1 • DO •Ft-HNi l I 1 ) 



0 

8542 


00 TC 890 



0 

8543 

03C 

FNUW( Jt ) = UCMPLXl 0 .00 . * ) 



0 

8544 

39C 

Jl = J 1 *■ i 



0 

8545 

9 0 C 

COM INUt 



0 

8546 

9 l 0 

IF (NCN) 1 22 0 • 940. 920 



0 

8547 

C 




0 

8540 

c 

EVALUATE NUMthATGk COMPLEX PAIHS 


0 

6549 

920 

00 920 11 = 1«NTUTn«2 



0 

8550 

C 




0 

8551 

c 

HEAL PART 



c 

8552 

c 

1 MAG 1 N AH Y PART 



0 

8553 

c 




0 

8554 


FNUM(Jl) = JCMPtXU.UO - b**2./ (FUNC( 

114-1) ) ** 2 

• 

0 

8555 

1 <<d.L>0« FONC(ll)»W)/ FBNCIIUDJ 


0 

8556 


J 1 = J l 4- 1 



0 

8557 

93C 

CCNT INUC 



0 

8558 

C 




0 

8559 

c 

HtPEA T TriL Ab CVE PROCEDURE F‘JR JlNjMI iMAIUk 

0 

8560 

c 




0 

056 L 

94 0 

ji = i 



c 

8562 

950 

IF (NFij) L^jOi 1 0 l (j t * Cj 0 



0 

8563 

9 6 C 

UQ 1 COO 11 = 1 .NFIO 



0 

8564 


IF (FoKlIll.cQ. 0.001 CJ TO OaO 



0 

8565 


FDcN(Jl) = OCMF>LX( l .00 . Faff (IllTto) 



c 

8566 


GO TC V<.0 



0 

8567 

9 3 C 

FOtMJl) = D CMPL X ( 0 . 00 . to ) 



0 

0568 

99 C 

J 1 = J 1 + 1 



o 

3569 

1000 

COM INUti 



0 

8570 

l 0 i 0 

IF UCJI 12<f0, 10*0. 1020 



0 

857 1 

t 020 

00 1CJ0 11 = 1.MCT0.2 



0 

8572 


AL PH A = 1.00 - to**c / (F £la>C( 1 1 FI ) ) **a 



0 

0573 


atiA = 2.00 * Fbjc (iii * to / Frtoc 111*11 


c 

8574 


IF (ALPHA .LT. l«U-20 .AND. 6E T A ,00. 

0.l)J) b£ I 

A - l . 0D~ 10 

0 

8575 


FUON(Jl) = UCMPLX( ALPHA, UEI A) 



0 

8576 


Jl - J 1 + l 



0 

0577 

1030 

COM IN Jh 



0 

8578 

c 




0 

8579 

c 

tVuLUATE F ( G 1 tilth CCMPLtX AR I Tn.touT 1 C. 

ROOT 1 NE • 

0 

0580 

c 




0 

850 1 

1 04C 

KN = NRNfNCN 



0 

0502 


KD = NkJ+NCO 



0 

0583 


FRCD ( 1 ) * OCMPLXU.JO.U.uv)) 



0 

8584 


IF ( KN .LE. 0) 00 TO 1090 



0 

8505 


IF ( KC • LE. 0) GO ID 1130 



0 

8506 


IF ( KN .GE.KO) GO TO 111C 



0 

3587 

c 




0 

8588 

c 

FACTORS In JuNLMINAfCH EXCEED 

THOSE l ^ 

NUMERATOR . 

0 

8589 

c 




0 

8590 


CO l CQO 11—1 • KN 



0 

859 l 


F«CD(l) = FNUM(ll) * PkUD( 1 ) /FDEN( I 1 ) 



0 

8592 

1 030 

CUNT INUt 



0 

0593 

109 0 

K = KN-f l 



c 

8594 


CO l l 00 11 -K ,KD 



0 

0595 


PR CD (11 = PkOD(l)/K>L.MUn 



0 

8596 

1100 

CONTI NUE 



0 

3597 
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CO re l l to 

0 

8598 

c 


c 

8599 

c 

P AC THUS It. NUMcRATOR £XCFT:U I HOSc IN 0 - N JM i N A T OR . 

0 

3600 

c 


0 

860 l 

I 11 0 

CU 1 1 2 J I 1 -l .KO 

0 

8o02 


FRCull) = ( NJMC I 1 >«Pk.jo{ 1 1/fJCM I l ) 

0 

3603 

1 120 

COM I N*Jc 

0 

8604 


IF (KN • Lif • KD) Go TO 1 l bu 

c 

36 05 

1 1 JC 

K = KiJM 

0 

8606 


OU l l m3 I l -K % KN 

0 

8607 


PHCO t l ) - PK OD ( l ) n- NOM (11) 

0 

8603 

1140 

CC N r 1NUL 

0 

8 609 

1 150 

FfiCO(l) = PKOD(l) V OCwHLaOK, j.UO) 

0 

3610 

c 


0 

86 1 1 

t 

c VALUATION Ur' F(b) IS NCW CXMPUl-t 

0 

86 l 2 

c 

NORMAL CLMPoTbD FORM -- F‘(JW) = AuPHA + ut T A • 

0 

36 13 

c 

ALPHA = RLAL PART, 

0 

3614 

c 

BlTA = IMAGINARY HART# 

0 

8615 

c 


c 

8616 

c 

CARTESIAN r* UK M (X.Y) 

0 

361 7 


ALPHA = ORLAL ( PR DU ( 1 ) ) 

0 

8618 


bL T A - C 1 MAO (PR(u( l ) ) 

0 

86 19 

c 


0 

3020 

c 

IN POLAR FORM -- F ( J.V > = (AW, PHI I# 

0 

862 l 

c 

AR I S AWL l TOJL 

c 

8622 

c 

PHI IS PHASE ANGLE 

0 

8o23 

c 


0 

3624 

c 

POLAR FORM 

r. 

3625 


MED = (ALf'HA**2 ¥ dU A)*2I 

0 

8626 


Afi - C SJKT (RED ) 

0 

3627 


PHI = o.co 

0 

3628 


IP ( .Nfc. 0.J0 1 Phi - UA 1 AN 2 ( f?cT A . ALPHA) 

0 

3o29 

c 

OCNVfeHT Pt » 1 FkUM R al) IANS TO OcGHiia# 

c 

3630 


CP HI = PFl * 67.29t6v0 

0 

8631 


IF (CPrtl .IT. 0.00) uPHl = DPMI * .160. DO 

0 

0632 

c 


0 

3633 

c 

PRINT FREOUdNuY RESPONSE DATA 

0 

8634 

c 


0 

8635 

c 


0 

8636 

c 

ScT OUTPUT PARAMLIERS 

0 

8637 

c 

CONVERT Ah TO LUG OAoE 10 AND DEClacLi. 

c 

3638 

c 


0 

8639 

12 50 

IF (AR • Nc. . 0.00) 6<J TvJ 1070 

0 

8640 


CELL = -20.00 

c 

864 l 


CO TC 12E0 

0 

3642 

12 70 

FELL = DL(JGIAR) 

0 

8643 

1230 

CDELL = 5ELL « 8. 6cS5i>69o lOO . 

0 

8644 


FHI = uPFl / 57#2GboL>0 

0 

3645 


V* 1 = h / 6#2S3l8bJuO 

0 

8646 

C 


0 

8647 

i 289 

IF (LNCTP - 60). UtO. 12S0, 1290 

c 

8648 

1 290 

CALI. PACEHD 

0 

8649 


ViRITE (inCT.166) ( 1 1 ILc ( l J) . 1 3 = I ,20 ) 

0 

8650 

1 58 

FORMAT ( /. 10 X20A4 ,/) 

0 

8651 


Vik 1 T t (NLT.169) 

0 

8652 

1 5 9 

FORMAT ( IH 0 # 2GX # 9 9hF kc U/ k AD / Sc C FREO/rickT t REAL 

I 0 

3653 

IVAO AMP UtCIBELS RAO Odo /) 

0 

8654 


LNCTR = 1 

0 

3655 


IF ( k Pn l NT .EQ. 1) oo TO 1010 

0 

8656 


KPS [NT = 1 

0 

8657 
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ViRlTE ( N L T , l 62 0 ) lAiMli ALPHA *oE TA.AR.DbLLL.PHI » JPHl 
16 20 fUKrt^T ( 17H ******* *-Jl6.6.Dl4.6'DlS.o«.jl4.6.Jl6.6.Fl0.3 t 

1 T9,4.FIG*4.9H 

G(J TC 13 30 

13 10 WRITE (NLT.162) W , V;l • ALPHA . be F A , AR .UBELL *P8 1 • 3?H l 
16 2 F U R.M A T ( 9X • D 24 .6,0i<t«o,Ulo.6»D l4.6.Dlo»6.rl0.3.F9. : *.h 10*4) 

GO TC 1370 

1 320 IF (KPRlNT *CO« 1) GU TO 1360 

v.R I T & ( NCT * i o2 0 ) Vv . h l . AePri A . U£ T A * AP .OtiELL.PHl • jr 3 H| 

KP RIM = 1 
l 3 3 C K w C T = 1 

IF ( V» D ( K WC 1 + 1 ) .Lc.O.DC) oO TO 1370 
FAT = Vi 2 (KwCT) / wu(KWCHl) 

JX = 2 

IF (FAT .Lh « 0.4200) o(J TO 137 0 
C GET MIuPUINT LOCATION bLT*£CN RcSONANCti POINTS 

FAT = ( i .4-RA T ) /2 .00 
CO 134? KKK= 3 • 30 
> = FAT - T A tJUP ( KKKJ 
IF (X .LL .O.UDO) GO 10 1370 
JX = KKK 
l 340 COM INUtl 

GO TC t 360 

1 35 C VnRITE (NCT, 162) W , * l , A lR HA , GE T A , AR , 0 BE LL ,P 4 1 . JPril 
136 0 LNCTR = LNCTR ♦ l 
1 37 0 COM i N'J E 
C 


C SAVE DATA TC PLOT 

C 

KSAVE = KSAVE 4- 1 

SAVEC(KSAVt) = W 
SAVEC (KSAVE) •= UOLLL 
S A V E F (KSAVt ) = DPhi 

SAVE A (KSAVc) = AR 
C 

c 

14 6 0 CO N T l N J E 
C 

C CONTINUE F REOvJcNC Y JwtLP UNTIL L I M I Tj ARE dXriAuSTED. 

C 

IF { V* 1 .l_T. O H L E (FMAXl .AND. KSAVE • LT • KJSAVd) oU TO 420 


fchnal termination logic, 
c 

149 0 CCNT INUfc 
C 

KSAVE - KSAVE-l 
C 

Ft TUFN 

C ERROR EXITS 

C 

1220 CALL PAGEHD 

fcR I Tfc ( NOT • 1 35) NHN 
GO TC 1490 
C 

1 2 2 C CALL PAGEHD 

fcR ITE ( NCT .137) NCN 
GO TC 1490 
C 

1 22 C CALL PAGEHD 


0 6658 
0 8659 
0 8660 
0 3661 
0 6662 
0 8663 
0 8664 
0 8665 
0 8666 
0 8667 
C 0668 
0 8669 
0 8670 
0 86 7 1 
0 8672 
C 8673 
0 8674 
0 8675 
0 8676 
0 8677 
0 8678 
0 8679 
C 8680 
0 8681 
0 8682 
C 8683 
0 8684 
0 8685 
0 8686 
0 8687 
0 8688 
C 36 89 
0 8690 
0 8691 
0 3692 
0 8693 
0 8694 
0 3695 
0 8696 
C 8o9 7 
C 8698 
0 8699 
0 8700 
0 8701 
0 8702 
0 8703 
0 8704 
0 8705 
C 8706 
0 8707 
0 8708 
0 8709 
C 8710 
0 871 1 
0 8712 
C 0713 
0 8714 
0 8715 
0 8716 
0 8717 
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>Rire (NCT.IJ9J NKU 
CO TC 1490 


ERROR hXX 1 FUKMATS 


1240 CALL PAoCHD 


ST CP 
END 


0 8710 
0 8719 
0 0720 
0 0721 
0 0722 
0 8723 



i r c 

( NCI ,14 1). 

NCu 








0 

1)724 

1 3b 

f 0 PM A T 

( 5 4 HO A r A 

FOR 

NkN 

1 5 

INCORRECT 

I N 

SJjHUJ I i NL 

bF RE 02 ■ 

NR N = • 

0 

8725 


1 

lb ) 









0 

8726 

137 

FORM AT 

( 54MU A f A 

F L*K 

NC N 

15 

INCCRRECT 

I N 

SUURU J r I Nc 

bFkE02. 

NC N = * 

0 

8727 


1 

16 ) 









0 

8728 

1 39 

FORMAT 

( S4H0 AT A 

FUR 

NKU 

IS 

INCORRECT 

l N 

SUuRUoT 1 Nt 

6F K£02. 

NR U •= , 

0 

8729 


1 

16) 









0 

8/30 

l 4 I 

FORMA T 

( = 4HU A r A 

F Ok 

NCU 

i o 

I NC GRRECT 

I N 

3u okUJT INc 

bl ME 02 . 

NCU = • 

0 

8731 


l 

la ) 









0 

8732 


C 0733 
C 8 73 A 
0 0735 
0 0730 


C'UeWCuTlfsh K LOCUS l PP« .0 UR , 5CL . SR , S I *NP *NJ . THE 1 AO • 
1 AMIN, XMAXtYMAX.ALOC ) 


IMPLICIT K t_AL*0 ( A — H. ) 

REAL*6 K 

KhAL<4 XSAVL* Y S A Vi_ • ^AVLU# 5AVEP« SAVED* iAVcA 


DLbUO * 74 


( C i v P L L’ X * 1 o S.Pi 
INTEGcR CUT 
REAL iNGL.ul GN 
LOGICAL SfAkT 


U . SO. CNN, UCMPL X 


0737 

8730 

0739 

0740 
874 1 
0742 
67 4 3 
0744 

8745 

8746 

0747 

0748 


c 

SULk C 

C 1 1 NL 

utTERMlNE5 HOLT LUC I FUR A SIN^ul -TUjI. 



0 

8750 

c 






0 

0751 

c 


— 

jUdkoUT i NE XK ouMlM UESCRI PT 1 uNd — — — — — 



0 

8752 

c 






0 

0 7 53 

c 

PPR = 

I NPU 1 

NUMcMA 1 Ut; HLiLYMJMINAL CCtFF 1 C 1 c. M I b . 



c 

3754 

c 

OGR = 

INPUT 

ULNOMINAIJR. PUL YNOM INAL CULFFl L l E V l 5 . 



0 

8755 

c 


NL TL . 

• •• ALL PULY CLLFFIClhNTS ARE 1(4 Ai»CcNUlNG 

CHOLR 

• 

c 

8756 

c 

5 CL = 

I NPU T 

SCALE FACT L*k# NORMALLY = l. 



0 

8757 

c 

jK = 

L NPu f 

REAL PrtkT OF STARTING ROUT. 



0 

8758 

c 

•:» i = 

* npu r 

1 MAG PAM I Ul- STARTING rout . 



0 

8759 

c 

NP - 

i npu r 

S l CL or PPM* 



0 

6760 

c 

NC = 

i npu r 

S I Ct. Of GOk. 



0 

8761 

c 

X M N = 

i KrU r 

MINIMUM AUMlS^lULc REAL ROOT vALUi. 



0 

8762 

c 

X )V. AX = 

i npu r 

MAXIMUM ,WMl jjUiLL REAL MOOT VALUc. 



0 

8763 

c 

Y .V A X = 

1 NPul 

MAXIMUM A^NU 5i> l ULti I MAG ROUT VALv>;. 



0 

3764 

c 

ALUC = 

1 NPU T 

MHASE CUi.lKUL MAMAMETEr- 



0 

8765 

c 



ALUC =■ H tldO UCCf-iFES PMAau (MUjITIVE 

GAIN 

K ) 

c 

8766 

c 



ALUC = -1 0 OtGMEEb r>8A_,i_ (ACvATlVE 

GA I N 

K) 

c 

0767 

c 






0 

8768 


Cl MLr 

j I L N 1 ' 

pm i ) . ouk 1 1 > 



c 

8769 


L I ML 

oILN P 

ARC 1 03) . :)AK< l JO ) 



45 2 

0 7 70 


C l YE •*' 

5 1 C (S X5 AVt ( 5oO) • Y bA VE 1 ZiOO ) 



454 

077 l 


B-l 55 



CCMMCN /F^rUFF/ 

♦ SAVEu(bOO) ♦ SAVEP ( 500 ) . SAVElMjOO) i ;jAVEA<500), KSAVE 

CCMMCN / L V l / 

C Vi < 1 U 0 > » V2 <1001, V3 <1001 

EQL l V ALLNCE ( VI ( i ) .PAP 1 1 ) ) * { V2 ( l ) * GAR( 1 ) > 

EQL I V ALElsCE ( SAvtUl i ) . XjAVt ( 1 ) ) * ( SA VEP ( l ) • YSA v c ( 1) ) 


LATA 


GUT , 

b « 


KUSAVE 
5 0 0 


t ♦ 4 \ 

A ioO 


JliG LOCUS AND -l FUR A J DEG LOCUS • 


C 

c 
c 
c 

KSAVE = 

C*** 4 * 4 **< 

C ALCC SHCLLU bt FOR 

C + + + * 4 > 

F l = 3 • i -4 lS926S3Sd9/9jD0 
ATK = 18 J .CO/P l 
£ 444 + 44 + > 

C FIND SCALE FACTOR (SLL) IF NUT SPECIFIED. 

C IF Thu I NP U1 T tIO SLL IS PbSiTIVE, THAT VALSE *ILL Lie U SC O TO 

C SCALE ThE rue POLYNOMIALS. IF THE SOL IS NlUATivc. a scale 

C FACTCR U ILL Lie ESTIMATED FROM TFE SIZE OF THE LQEFFlLlENTS OF 

C THE POLYNOMIALS GY A LLAST SQUARES METHOD. 

IF (StL. GT.O. DO)GU 1U 10J 
CALL FIT (NP • PPM , SlUPlP ) 

CALL h l T ( NO . QOR. SLLPLU ) 

SC L =s (np*slopef+nc*slupeci / < ISF + NO) ) 


C ** 4 4 4 44+4 4 + 4 4444444 
C a RITE HEADINGS 

C + + + + + 

100 CONTINUE 
NP l = NP- 1 
NU l = NO- i 
CALL FAGEHD 
WR I TE (OUT. 3d ) 

3 fc FGFM/I ( • 1 P ( s ) 
aR l TE ( GUT , AO > 
VvRITE(uLT, 39 ) 
39 FGRM fi T l • CO ( d ) 

I T E (GUT • 40 ) 
AC FORMAT ( 5 X.U 2 


t 444 + 4 4 < 


i 4 + 44 * 444444 * 444 * 4444444444444 * 


= ' ) 

ppk( n , ihhku + d 


I . I - I . N P 1 ) 


-= ■ ) 

OOP C 1 ) • l 1 + 1 ) . I . I =1 .NOl ) 

I J, 7x\ 3 ( l X , • ♦( • ,D22 . 1 5, • *S** • , l * , • 1 - 
4 ( 1 X i 1 ♦ ( ' .022.15, ' *S** ' • i 2 . ' ) - 


) / i 
) > 


VtR I TE (Qcl* 10 l ) SCL 
101 FORM / I < • CSCALt FA^IGW = ' . 013 . 6 ) 
fcPITCICUTt 10 ) SR , SI 

10 FORM A T( •CSTAKTl NO PUlNiT - (*,FI 9 »lli 
WRITc (OlT i lb ) XMlN.XMAX. V MAX. WAX 
IS FORMAT ( ' CbCAN LIMITS! * . 013 . 0 . ' < X < 

* 01 « • * < Y < • ,Ul 3 . G) 

IF ( AL CC ) lo, 16.17 
It ID E G = 0 
GO T C 1 a 
l 7 IDEG = 1 dJ 
IF WHITE (ULT. 19) IDEg 

19 FGRMITC «C* »* 3 *« 1 J, ' uE^ktc LUCLSM 
NLINE = 0 


1 ( 


,D 13 . u/ • 


1 6 . i 1 i 


1 2X , 


0 

0 

447 

0 

426 

C 

0 

0 

0 

456 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

c 

0 

0 

c 

0 

0 

c 

0 

0 

0 

0 

c 

c 

0 

c 

c 

0 

0 

c 

0 

c 

0 

0 

0 

0 

0 

c 

0 

0 

c 

0 

0 

0 

0 

c 

0 

c 

0 

0 


8772 

8773 

8774 

8775 
8 7 76 
8777 

8776 

8779 

8780 

8781 

8782 

8783 

8784 

8785 

8786 

8787 

8788 

8789 

8790 
3791 

8792 

8793 

8794 

8795 

8796 

8797 

8798 

8799 
8600 
88 0 1 
8002 

8803 

8804 

8805 
380 6 
8807 
8600 
8609 
8810 
081 1 
08 12 
88 1 3 
88 14 
8615 
88 1 6 

8817 

8818 
88 19 
3820 
882 l 
8822 
8023 
8824 
8325 

3826 

3827 
0828 
8029 

8830 

8831 
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CALL PA*. Li ID 
VkR I (t (OlTi 20 ) 

2C f GRM AT < //l JX .'GAIN' • J3X . •KUCTS • . 43X . HiRROr* • // ) 

C SCALE r.UUUOMS BY IlTII^ 1, ( NE H ) = SCL * 5 (ULD ) 

C * $ $ ♦ , «‘ * A * * * * /*#*$*❖**♦**$*** »V*****« $ 4 $ * $**444*4*4*4 * **$$$* 444 * 4 * 444 * 4*4 
C 

C PAR MILL HUI.D THE SCALCo VLkSlCN OF PPR 

AHP = C A. IS (PPR ( NP > ) 

CO 12 0 l = I • .N P l 
AHPP -PP W ( I )/ ADP 
NP I = hP- l 
CO 1)0 J= l »n PI 
110 ADPP - AJPP/SCL 
l 2 C PA nil) .- A6PP* ALOC 

PAR < kP ) -CbUN( l .UJiPP.1 (NP) ) *ALCC 

C 

C JAR UU H UL C) THE oCALtU VLRSICN OF OOP 

/HC = C.\JS(UUH ( NO ) > 

CO l AO l = l .NOl 
A W 0 G - O J *< ( 1 )/ ABO 
NO I = NC- I 
CO l 2 0 J = I *NOI 
1 '3 0 AHCQsAJOO/bCL 
l AO OAk ( l ) = At-OU 

CAP( NO) =lSIuN( l • JO.uOK (NOi ) 


VK = AE C/ACP 

C VK^RUlU U f THE: MAGNITUDE. (JK THE LEADING C J ar F I C l cN TS 

NO NP = N J - NP 
CO 1 EC I = i iNCNP 
1^0 VK=VK*:>CL 
C VK=S CAi.EC RATIO 

C 4 * 4 4 4 4*4* **4*4*4 *****4*44 44*4**444*4444 *444444444****44**4*4444*444* 4 * 4 

C IN IT I AL I Zt V ALLIES 

C*4***4 4 1 s*'i'44< !, *4**** , *'* 1 ***4*444*4*44444**4*444**********4**4**4:44***444**4 
NPTL CC-0 
S T AR T = . TRUE. 

SC; -OCVPLX( SR /SCL . Si /SCL ) 

PM I N N = l . C - 5 
KM IN sRM I NN/SCL 
PM AX = 1 . U l/SCL 
PD =HN IN* l.Ol 
*U = R N 1 1\ 

0 T m = 1 ♦ J — c 


CT»'EU=4G.J0 

C THHTAO IS PASSED INTO Trit SUBRGLTINE FROM THE MaIN PROGRAM AND 

L HOLDS THE ANGLE- (IN DEGREES ) AT WHICH ALL jEArtCr1u=> ARC BEGUN. 

I HE T a 1 = THE T A 0 


THN A > = J /0. DO HTHUTA1 
THET A2- JtOO. 

C TPEIAE is used in thl 

C VALUE lb ARBITRARY, 

c *■* * t *"♦ * 4*4*=; 

C START SEARCH 


ADJUST SEARCH RADIUS SECTION. 


ITS INITIAL 


C * * t * * 
1 9 0 


C 

c 


4# ***♦$ *44**44 *4 444444*44*4444 4*44***4444* 

THE T A = T H E T A 1 /ATk 

S = SO 4 DC .VPL X( Rd*UCUS( I HE T A) • KU * C S l N ( THETA) ) 
S IS rile Pol NT ID lL examined 
NO* EVALUATE PCS) AND CIS) 


0 8832 
C 8833 
0 8834 
0 0835 
0 0836 
0 8837 
0 8838 
0 8039 
0 8840 
0 884 l 
0 8842 
0 8843 
0 0044 
0 0845 
0 8846 
0 8847 
0 6848 
0 8849 
0 8850 
0 8851 
C 6852 
0 8853 
0 8854 
0 8855 
0 3856 
0 0857 
C 8858 
0 0859 
0 8860 
0 8861 
0 8862 
0 8863 
0 8064 
0 8065 
0 8866 
0 8067 
0 8868 
C 8869 
0 8870 
0 8871 
0 8872 
0 8873 
0 8874 
0 3875 
0 8076 
0 8877 
0 8878 
0 8879 
0 3880 
0 0081 
0 8882 
0 8083 
0 3084 
0 8885 
0 8886 
0 8087 
0 8388 
C 8889 
0 8890 
0 8891 
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F = PAK iNP ) 

C - C A h I Nu ) 

CO 2 CO 1=1 iNPl 
i'GO R=P*£+PAR(NP-I ) 

CC aio 1=1,NU1 
2 19 C=C*£* OARING- I > 

C FIND PHASE ANGLE OF Mli)/ol£) 

Ap =DRLAL (P ) 

EP -O I MA5(i> ) 

CO =OREAl (u ) 

CO = D MrtolU > 

THN= EP*CC-AP *DG 
THCe Ap (■CCPLtP wDG 

C ARCTANv IFN/THD ) =PHASL ANGLE OF P(S)/Q(S) 

C CHECK FC £t.L IF Thi i New PhagE ANoLE HAS GKUggeJ T He 180 OEG LINE* 

C FOR turn SPllU AND ACCURACY, THIS CHECK IS Pt-i -CjKMfc J BY EXAMINING 

C THE SIGNS OF T HiN a NO I .-ID RA 1 ME R T MAN !V Y Ug I MG Trie" AkCFAN FUNCTION. 

ISNNE.V=5IGN( 1.1, SNGLI THN) ) 

IF ( S T AR T >GU TO 2 80 

IF ( T F J • Gc. o. jO . OR. I .jNNlw • EG . I SNOLO ) GO Tu 261 
CTFe TA=-CTHc TA 
CO TC Adi 
280 ST AR I -.FALSE . 

26 1 I SNOLO- I SNNEw 

IF" ( DADS ISTHl TA) ,LT .DIM ) GO tu 210 

IF ( TFLT A l.GT .THMAX) GO TO GUO 

IF (O THt; T A ,LT .39.00) u I He TA= D T FI E T A/ 2 . 00 

THETA 1 = THETA J+DTHlI A 

GO TC ISO 

C 4 * A******** a A4**W4***4A*w,|t*W*#V***i>***V4#<<** If *WW**#W*AWA#*AW*** F*M***« 


C ENO £ e a R CM 

CHn*Htm*****t***********v*fm»*H*******»****<n«*****»*t********** 
C T Vs 0 ReuULTS UF THc SEARCH ARE PCSSIBLE. IF NO ROOT LOCUS POINT 

C HAS FCUNC. THE CCMPuToK GCL S TC STATEMENT 300. IF A ROUT LOCUS 

C POINT AS FU uNO , 1 1 ic CUN PU T OR GCES TC STATE Fie r f 010. 

CH'FHRHHFVFVHHHPTVHPPfsHUttvmHSHSVUmHVAHHUHFFH 
C NO HC GT Vs AS FOUND. 

CHHHMHFvAHAAfAFFtHFFFHHVltFFFiAFsFFHiHVFFAFFHFFtAFHF********* 


200 K 0 - R C / I .50 0 

ANSI F C - ICO. 4 700 
THE T A l = TFt TA2 

s = so 

IF (RC. GT.RMl MGO TO JdO 
IF ( NR rcdC.EU .0 )G0 TO J0< 

WR l TE I UG T . GO l > R.MINN 

TOi formaK'OThe last point printed is within sf/.j,' of a root.') 

RE TURN 

3Qa HWITE(JU,3u51 RM1NN 

305 FORMAT! ' CT He INITIAL POINT IS NOT WITHIN «.F7.S,' uf THE LOCUS.') 
RETURN 


CHAHIM*' 


E AHFVA'H 


C A ROCT LCCuS PU INI HAS FCUNU. 

C EXAMINE SMUGTHNESS JF ROCT LOCUS CURVE, Set IF TMls POINT w ILL Be 

C LSeU . if THE CJRVe BENDS TOO SHARPLY. POINT « I LL NUT BE ACCEPTEO, 

C THE PROGRAM WILL SIART AT THE OLD SC. SHRINK THe SEARCH RADIUS RD. 

c and look fur a closer point which is more in _ine with the curve. 


C ** * * * HAtH'l 


3 1 C CONTINUE 

C FIND ACUTE ANGLE UcTwEEN THETA1 AND T HE T A2 I Tri'JiF) 

THOIF 1— D Ao S 1 THETAl-TrlETAi) 


0 3892 
0 3893 
0 8894 
0 8895 
0 8896 
0 8897 
0 8098 
0 8899 
0 0900 
0 8901 
0 8902 
0 8903 
0 8904 
0 8905 
0 8906 
0 890 7 
0 8908 
C 8909 
0 3910 
0 09 11 
0 89 12 
0 8913 
C 8914 
0 8915 
0 8916 
0 89 17 
0 89 1 8 
0 89 19 
0 8920 
0 892 1 
0 8922 
0 8923 
0 8924 
0 0925 
0 8926 
0 8927 
C 8928 
0 8929 
0 8930 
C 8931 
0 8932 
0 0933 
C 8934 
C 8935 
0 8936 
0 8937 
0 8938 
0 8939 
0 39 40 
0 8941 
0 8942 
0 8943 
0 8944 
0 8945 
C 8946 
0 8947 
0 8948 
0 0949 
C 8950 
0 0951 
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n n n n 


c 

c 


THOtF^OMINK THDIF 1 , 30 0 • u 0- THO l F l ) 

ADJUST SEARCH KAJIoS IF THD IF IS LESS THAN lu 3c(i OR 
GREATER THAN 30 Oto 
IANG = THD IF / l 5 • DO 
IF(IANG-l) 320,340,330 

GO HERE IF T HD IF .LT . 15. DEG 

J 2 0 RD = l o J0#RU 

ANGl NC- I36.o900 
IF(RC,Lt.PMAX)GO TO 345 
KO=R N AX 

GO HE Hi* IF 15. .GL. I HD IF . LT. 30. DEG 
340 ANGl NC= 120.D0 

C THIS STATEMENT IS RE AC HE 0 ONLY IF THE ROOI LDCjS POINT IS ACCEPTED 

345 GO N T IN JL 

NR TLCC=NHTLCC+1 
CQCP=CDAES(Q )/CDAbS(H) 

K = VH *C0CF* AL CC 
X=CREAl ( S) *SCL 
Y = C l N AG< S) + SCL 

yy=o absi v> 

C K = OPEN LOOP GAIN 

C X = REAL COORDINATE OF ROOT ASSOCIATED wlTH K 

C Y = 1 NAG I NARY COORDINATE CF ROOT ASSOCIATED WITH K 

£R F = C +p * CO CP 

IF (DAfcJoC THN/ THi) ) . Lt. . 2 • D— 5 > GO TO 271 
ANGL-ATR#OA T AN 2 ( THN, f HD > 

V.RlTE(uuT,2/0) ANGL 

270 FORMAT ( • MINIMUM VALUE LiF DTHETA REACHED, PRESENT VALUE OF THET A I 
* S • * F 15.9) 

2 7 1 NL I N E = NLINE 4- 1 

IF (NLINE .LT. 50) GO TO 314 
NLINE •= | 

CALL FAGEHO 
VkRITE (OUT ,20) 

314 NR I T £ {uuT ,50 )K,X»Y»LKR 
y SAVE IKSAVE) = Y 
XSAV t ( K SAVE ) = X 

50 FORMAT ( S(oX»G18.9)J 

IF ( (X .LT. XMIN .Ok. X .01. XMAX .UR. YY . GT . f MAX) 

4 .‘JR. I K SAVE . G E . K.USAVE)) RETURN 

KSAVE = KSAVE 4- I 
CO TC 350 
C 

C GO HERE IF I HD I F . ot • 30. DEG 

33 0 CO NT INJc 

IF ( NR FLLC.LQ . 1 ) GO I l» j 40 

IF (RC.Le.RMIN)GO TO 340 

RD-RC/ 1 . 5UC 

ANG INC- l OS/ • 4 7i) 0 

THE T A-i-s-T-Fb T A 2 

s= su 

It**#*.*********^# ************ * ♦ *********** ******* ********* * * ♦ 

C PREPARE ID LLCK FOR NlAI POINT CN ROUT LOCJb 

C IN IS JLCTIUN IS REACHED ONLY IF A RCCT LCX. JS PuiNT * A S FOUND. 

C * * $ * * ♦ * ********************** ♦ * * * * * ************** f f *4* 

55 J THE T/2= TReTA 1 
SO = S 


0 8952 
0 8953 
C 8954 
0 8955 
0 8956 
0 8957 
0 8958 
0 8959 
0 8960 
0 8961 
0 8962 
0 8963 
0 8964 
0 8965 
0 8966 
0 8967 
0 8968 
0 8969 
0 8970 
0 8971 
0 8972 
0 8973 
0 8974 
0 8975 
0 8976 
0 0977 
0 8978 
0 8979 
0 8980 
0 8981 
0 8982 
0 8983 
0 8984 
C 8985 
0 8986 
0 8987 
0 8988 
0 8989 
C 8990 
0 8991 
0 8992 
0 8993 
0 8994 
0 8995 
0 8996 
0 8997 
0 8998 
C 0999 
0 9000 
0 9001 
C 9002 
O 9003 
0 9 0 04 
0 9005 
0 9006 
C 9C07 
C 9008 
0 9009 
C 90 10 
0 90 l l 
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1 H E T fi 1- T hE T A2— ANG I NC 
IHMAX - TFETA2FANGINC 
CTPE T A = 4 .D 1 
ST AR T = . TRUE. 

CC TC 190 
END 


0 9012 
0 9013 
0 90 14 
0 9015 
0 9016 
C 90 17 


I 


SUCRCUllNt h l 1 ( N . AKR AY , SLGPt ) 

PE AL *8 Y .SUM Y . SUM l V , OLUli 10 . SLOPE . ARRAY ( 1 00 ) 

M— C 

ISLM =0 
ISCSLM-O 
SUMY =0 .00 
SUM! Y — 0 .00 
00 4 I = 1 ,N 
IE (AfPAYO )) 1.4.2 
t Y=0LC0l 0( -ARRAY! 1) ) 

GG TC 3 

2 Y=CLCG 1 0 (ARR AY( 1 ] ) 

3 psMf 1 
1?.UM=1 5UM*l 
ISC5LM= 1 SUSUMEI * 1 
SUMY = 50MY + Y 

SOY I > = 9 U M 1 Y T I *Y 

4 continue 

SLOPE* l M* SUM I Y- l S um* gU M Y )/( M* l SO SUM- l SUM* l ioM) 

PETUPN 

END 


0 90 18 

DEBUG * 75 0 9019 

0 9020 
0 9021 
0 9022 
0 9023 
0 9024 
0 9025 
0 9026 
0 9027 
0 9028 
0 9029 
C 9030 
C 9031 
C 9032 
0 9033 
0 9034 
C 9035 
0 9036 
C 9037 
C 90 38 
O 9039 
0 9040 


FUNCTION U l M AG ( Y ) 

C 

COMPLEX* 16 Y 
COMPLEX SY 
S Y = Y 

CIMAC = DULL lAlMAGlSYJ) 

PETUPN 

END 


0 904 1 

DEBUG * 76 0 9042 

0 9043 
0 9044 
0 9045 
0 9046 
C 9047 
C 9048 


FUNCTION JREAL (Y) 

COMPLEX* lt> Y 
COMPLEX SY 
S Y — Y 


0 9049 

DEBUG # 77 0 9050 

0 9051 
0 9052 
C 9053 
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a r. 


CH L A L 
M5 TURN 
INC 


CbLL (WtAUSY) ) 


0 9054 
0 9055 
0 9056 


suercu r i Nu canccr ik) 

C 0t BUG * 7a 

IMPLICIT PcAL08( A -h. 0- Z I 

<: THIS ROUTINE CANCELS GUT THe ^LKU, real* and Thit CUMPLcX routs that ar 
C CCMMCN TC 1HL NUMERATOR ANt) Od NuM I N A TOR OF THl. TRANSFER FUNCTION P. 

C 

C R(l) = NlMrltR UF RcAL kuLTb IN THE NUMERATOR 

c. M ? ) = nimulR uf complex pairs in the NUM-run^ 

C M2) = NUMBER UF ILK u ROUTS IN THE NUMCRATuR 

C R(4> = NUMBER OF REAL kUCTS IN THE DENOMINATOR 

C K ( 5 ) = NUMBER OF COMPLEX PAIRS IN THE DENOMINATOR 

C Me) = NUMBER OF ^t_KU kOUTs IN THE OtNCMlNATok 

C K ( 7 ) - GAIN 

C M £> •••H(I > = NUMEkATUk HEAL RCCTS ARRAY 

C Ml*l)...k(J> = NUMEkATUk* CUMPLEX PAIRS ARRAY 

C M J+ 1 > • • .R(K.) = OE NO Mi NAT OH KL AL ROOTS ARRAY 

M K + 1 •• .ML) = U L NUM 1 N A T UK COMPLEX PAIRS ARkAY 

ClMEhSiCN kin 
NR=R ( 1 > ♦ .0 00 100 
NCP = K<2U.0OOlDO 
VP=R (A ) ♦ -000 100 
,VCF=K ( j ) + 0 uOO IO0 
KK=74NK + Wf2»(NCP + MCP) 

N = 7 + NR 

IF ( ( t R.EC. 0) .CR • ( Vk.EU • 0 ) ) GU TC loO 
J sg+NUf2 *NLP 
J- 1 + MR 
NN = 0 

CO MO i=d,N 
11=1 -NN 
UO ICO J J= J , K 
J J J= J J 

IF (O AcS ( M l I )/k( J JJ) -4 «O0) .LT • l .00-7 ) GO f J 11 j I 

IOC CONTINUE 
GO TC UC 

110 CO 1 C'O i. = 11 • KX 

IF < L • G E • ( J Jj- 1 J ) Gu 10 120 

ML) = k < L M ) 

GO T C l J C 
120 ML)=R(L+2> 

130 CONTINUE 
KK=KK-2 
J= J- 1 
K-= K-c 
NN = NM- 1 

IF ( ( NN .EC. NR >,.UR . ( NN.EQ.MR) ) GO TO ISO 
140 CONTINUE 

ISC M 1 ) -=kl 1) -OF LU AT ( NN) 

M 4 ) = R ( 4 )-Jf- LUAT(NN) 

NK=NK-NN 


C 9057 
0 9056 
0 9059 
0 9060 
C 9061 
0 9062 
0 9063 
0 9064 
0 9065 
0 9066 
0 9067 
0 9068 
C 9069 
0 90 70 
0 9071 
0 9072 
0 9073 
C 9074 
0 90 75 
0 90 76 
0 9077 
0 9078 
0 9079 
C 9080 
0 9081 
0 9082 
0 9083 
0 9084 
0 9085 
C 9086 
0 9087 
0 9088 
0 9089 
0 9090 
0 9091 
0 9092 
0 9093 
0 9094 
0 9095 
C 9096 
0 9097 
0 9098 
0 9099 
0 9.100 
C 9101 
0 9102 
0 9103 
0 9104 
0 9105 
C 9106 
0 9107 
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NR=MR-NN 

16C IF ( ( NCP.L'U.O > .'JR.(MCP.tO.O) > GG TO 230 
NNN - € ♦ NR 
NcNN^'l+k^NCP 
j =: N F 1 ♦ M R 
K = J- 1 *2*f'CP 
N N = 0 

00 2 10 l -NNN • N . 2 

1 1 = l - 2* NN 

CO 1 7 C J J= J. K.2 
- J J= J J 

IF ( ( P ( 1 () .Eu .M J J J) >..ANO.(K ( I I M ) .EU.R ( JJJ + U ) ) GU Tu 180 

1 7 C CONT INufc 

co rc 210 

1 8 0 CO 2 CO L=I l . KK 

IF (L .Gt. ( J JJ-2) ) GO TU ISO 
R( L ) =R( L+2 ) 

GO rc 200 

1V0 fia)aR(t*4) 

200 CCM INU£ 

KK=KK-4 
J= J- 2 
K = K- 4 
NN=NN + i 

IF (( NN.tG. NLP) «ORtlNNt LO.hCP) > GO 10 220 
2 l 0 COM I N JE 
220 R( 2) =Rl 2 )-UFLUAT<NN> 

K( 5 > -R( 5 )-0F LCiAl ( NN J 
230 # = 0M I M(R(J).K<6>) 

R< 2 ) = Rl 2 )- A 
M 6) -RC 6 )- X 
&E TURN 
END 


0 9108 
0 9109 
0 9110 
C 9111 
0 9112 
0 9113 
0 9114 
0 9115 
0 9116 
C 9 117 
0 9 118 
0 9 119 
0 9120 
0 9 121 
0 9 122 
0 9123 
0 9124 
0 9125 
0 9126 
C 9127 
C 9128 
0 9129 
C 9 130 
0 9131 
0 9132 
0 9133 
0 9134 
0 9135 
0 9136 
C 9137 
0 9138 
0 9139 
0 9140 


SOtiKC'jTlNL FORMS ( KR . KC . kLRi. CMPR • FER. FUL) 

C DG BUG ft 79 

implicit real*8( a-h. o-z ) 

CFOKMB FACtfGREO FUR M T l ML CONSTANTS. OAMP lNs» ANJ FREQUENCY 

C CALLING SEQUENCE FUR SUBROUTINE F CRM ii IS AS F UL _ J W S 
C CALL FCFMd ( KR • KC. KLRT. CMPR. F ER • F9C ) 

C KR — COUNT OF REAL ROOTS. MAY GR MAY NOT I.nCLJuG ZlRUS. 

C KC -- CUCNI UF THE CUMPLtA PAIRS GF ROOTS. 

C RLR1 -- oTURAGE dLuCK CCNTAING ALL REAL RjuTS. 

C CKP8 STORAGE DLUCK CONTAIN 1 NG CCMPLEX ^AlRS UF RUOTS 

C FBC -- FORM B COMPLEX PAIR BLCCK (OUTPUT F R J M ROUTINE) 

C F £ R FORM B REAL ROOT BLOCK (CUTPUT = K OM KuUHNt ) 

C 

Cl ME N SIGN KLRT ( 1 ) .CMPR ( 1 ) . F OK ( D.FRCU ) 

C 

IF ( KR) 140. 140. 100 
ICO CO 120 L = 1 . KR 

IF (FLKT(L)) 120. 110. 120 
1 1 0 F BR ( L ) = 0.0 

GO TC 130 

12C FBR(L) = -1.00/ RLRT(L) 


0 9141 
0 9142 
0 9143 
0 9144 
0 9145 
0 9146 
0 9 147 
0 9148 
0 9 1 49 
C 9150 
0 9151 
0 9 152 
0 9153 
C 9 154 
0 9 155 
0 9156 
0 9157 
0 9158 
0 9159 
0 9160 
0 9161 
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1 20 COM INUE 0 9162 

1 40 IF* (KCI 170. 170. ISO 0 9163 

l SC KK -= i* KC 0 9164 

00 l to L = 2 .KK , 2 0 9165 

FBC(L) = OSQKT (CMPk( L- 1 ) **2 ♦- CMPR(L)**2> 0 9166 

160 FUC(L-l) = -CMPRCL-l )/Fucl L ) 0 9167 

1 7 C RETUFN C 9166 

END 0 9169 


SUER CUT 1 M_ OFORM8(KK ,NC. KLkl .CMPH . F 6R . F 0C , >C MP R • Sr . AC C D . GB ) 

C 

C DEBUG U 60 

IMPLICIT k EAL*8( A-n, 0-Z ) 

COFGRMB FACTORED FlRM TIME CONSTANTS. DAMPING AND FkEGUENCY 

Cl MENS 1 CN RLRT ( U .CMPk ( l ) ,f BR( l ) . F BC { l ) • SC MPk ( 1 ) 

Cl MEN Si ON GD ( 2 ) 

LOGIC AL CLBUG.LEQU 

CC MM C N /LULbUC/ DLoUG(120> 

EQUIVALENCE (LEQU.utbJGl 60)) 

C KR - NUMBER OF kEAL AND ZERO ROOTS IN RLkT 

C K C = NUMBER OF COMPLEX PAIRS IN CMPR 

C KK - 2*KC 

C RLRJ ■= Rc AL AND ZERO ROUT ARRAY 

C CVPk - CUMPLtX PAIR ARRAY 

C SF = 1. 0 

C AC Co - GAIN FOR NUMERATOR 

C AC CO = 1.0 FOR DENOMINATOR 

GO (l ) = A C CD 
LZ~ 0 

SC 1= U;jJ/bF 
IF(KR)14C. 140. 100 

100 CO 1-0 L = i . K R 

IF (RLkl (L) ) l 20 • l 10. I 2 0 
110 FUR< L) - C .DO 
C CCOiM ZLkORUUTi* 

LZ =LZ+ l 
GO r C 12 0 

C F ck = 1 IMc CONSTANTS ASSOCIATED WITH REAL R'JJTS 

120 FPR { L ) -- l.DU/( WLRT(L) *SCI ) 

c c c m p u iE product uk rcal ruots 

CB ( 1 )=-Gfc( l ) *RLRT (L ) 

1 20 CON r INuii 
140 IF (KC ) l 70. 170. ISO 

C CVCLL through A*_L COMPLEX pairs 

ISO KK~-2*KC 

CO ICO L -tl *KK»2 

C CCNIINUL GET T I NO PRODUCT OF ALL ROUTS 

' GO (l )-^u ( l >•* (CMPK CL- l ) #*2+LMPM CL 2 ) 

SCMPfi (L- l ) = CMPR ( L-l > *SC1 

C FfcC(L) = 1 kEOUCNCY AdSuCIAIcO WITH COMPLEX ^>Alk 

c FcC(l-i) = damping zt_ ta associated with cuplcx phik 

C FCh «*1 l 

C S**2 4* 2 *ZL 1 A* LMcoA4j ♦ OMEGA* *2 - 0 

C FEC(L) - OMEGA 

C F t % CC L - 1 ) = ZE TA 


0 9 170 
0 9171 
0 9172 
0 9173 
0 9174 
0 9175 
0 9176 
0 9177 
0 91 78 
0 9179 
C 9180 
0 9181 
0 9162 
0 9163 
0 9184 
0 9185 
0 9186 
0 9187 
0 9188 
0 9189 
0 9190 
0 9191 
0 9192 
0 9193 
0 9 194 
0 9195 
0 9 196 
0 9197 
0 9198 
0 9199 
C 9200 
0 9201 
C 9202 
C 9203 
C 9204 
0 9205 
C 9206 
0 9207 
0 9208 
C 9209 
0.9210 
0 92 1 1 
0 9212 
0 9213 
0 92 14 
0 9215 


B-l 63 



r> n n o n n n 


FBC(L)=OSURT (aCMPRCL-l ) * *2 ♦ I C MPR ( L > *SC I > ** 2 1 
160 FUC(L-1I= -5CMPR<L-1 l/FBCILl 

C RETURN *ITH PRODUCT Of ALL NCN-ZERO ROUTS IN GUI 1 ) AND GB(2> 

170 CB(2»=GE<1) 

IF ( L 2 .£0. 0) GO TO loO 

GO ( 2 )=G0 (2 1*SF**LZ 
180 COM INUE 

IF ( . MJT .LEQU > RETURN 

CALL WR 1 Tl 1KLRT • 1 , KR ,6H RLK T . 1) 

CALL vWI I TE (CMPR , 1 ,KK . oH CMPR .1) 

CALL HR 1 TE (F BR • 1 • KR , o H FUR , 1 ) 

CALL wRITtCFBC .1.KK.6H FdC .1) 

CALL HHIT£(ACCD| l. 1,6 H ACU) .11 
call »RIIE( GO • 1 , 2.6H GB .1) 

WE TURN 
£NC 


0 9216 
0 9217 
0 92 18 
0 9219 
0 9220 
0 9221 
0 9222 
0 9223 
C 9224 
0 9225 
0 9226 
0 9227 
0 9228 
0 9229 
0 9230 
0 9231 


SUBROUTINE RTGP ( R 1 S , P OL Y . T EMP . KPL V ) 

C DEBUG * 81 

IMPLICIT R£AL*a< A-it.O-Z) 

CRTuP TRANSFER FUNCTION RuOl S TO TRANSFER FURCTIUN POLYNOMIALS 

C 

C SUBROUTINE RTGP, ROOTS CONVERTED TO POLYNOMIAL 

C 

C R T S ( 1) = number Of REAL ROOTS IN THE NOMEkATOR 

C RTSI2) = NUMBER OF COMPLEX PAIRS IN THE NUMEKAIUR 

C RTS(:-) = NUMBER OF ZERO ROOTS IN THE NUMERATOR 

C RTS<4) = NUMBER OF RcAL ROOTS IN THE DENOMINATOR 

C RTS(S) = NUMBER OF COMPLEX PAIRS IN THE DENOMINATOR 

HTSC6) = NUMBER OF eERU ROOTS IN THE DENOMINATOR 

R T S < 7 ) = GAI N FACTOR 

rt si £ ) . . ,rts ( I ) - Numerator real roots array 

RT S( I + l 1 .. .R TS( J I = NUMERATOR COMPLEX ROOT:. array 

KTS(JU)...HTS(K) = UtNOMlNATOR REAL RCOTa ARRAY 

--- RTS( K H ) . . .R rsi L) = udNUMINATOR COMPLEX RJJTs ARRAY 
ROLY(l) = degree of the ndmerator 

C FOLYI2) = DEGREE Of THC OCNGMl NATOR 

C ROLY ( J T . .. POLY < I ) = ALL COEFFICIENTS OF NUMERATOk for ascending po 

C FULY (If L 1...PCLY (J) = All COEFFICIENTS OF DCNDiMl NAI OR FOR ASCENDIN 

C CF s 

C TEMP = TEMPORARY SlURAGE 

C NCC - NuMEER OF CUMPLEX PAIRS IN DENOMINATOR 

C NCN = NUMBER CF COMPEL X PAIRS IN NUMERATOR 

C NDEN - 10TAL NOMOER OF DENOMINATOR ROOTS II RTS ARRAY 

C NNUM = TOTAL NUMBER OF NUMERATOR ROOTS IN RTS ARRAY 

C NRD - NUMBER CF REAL kOUTS IN TFE OENCMINATOR 

C NRN i NOM.L'ER CF RcAL ROGIS IN THE NUMERATOR 

C NZC = NUMBER OF ZERO ROOTS IN THE CEN’OMINATUR 

C NZN = NUMBER OF ZERO ROUTS IN THE NUMERATOR 

C KPL Y = DIMENSION SIZE Or POEY IN CALLING PROGRAM. 

C 

DIMENSION RT S< 1 ) .POLY ( 1) . TEMP ( 1) 

KTAPE = 6 

NRN = R T S ( II f J. 1 DU 
NCN=RTS(2) f 0 . IDO 


C 9232 
0 9233 
0 9234 
0 9235 
0 9236 
C 9237 
0 9238 
0 9239 
0 9240 
C 9241 
C 9242 
0 9243 
0 9244 
C 9245 
0 9246 
0 9247 
0 9248 
0 9249 
0 9250 
0 9251 
0 9252 
C 9253 
0 9254 
0 9255 
C 9256 
0 9257 
0 9258 
0 92 59 
0 9260 
0 926 1 
0 9262 
0 9263 
0 9264 
0 9265 
0 9266 
0 9267 
0 9268 
0 9269 
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N/.N-h 15 ( 2) 4 0. I U0 


0 

9270 


NPD-F I ( 4 > 4 0.1U0 


c 

9271 


,\CC = G ( 5 > 4- 0. 1L>0 


0 

9272 


N2C=MI..(fc) * 0.1 oo 


0 

9273 


00 ICO 1 = l • kpl y 


0 

9274 


£ C L Y { i ) =C.JO 


0 

9 275 

1 00 

IL .vp ( i j =0. 00 


0 

9270 




c 

9277 


NMUM = 2 * NCN 4 fiKN V NtN 


0 

9278 


NtftN = 2 t NCO 4 f'-K J 4 N2u 


0 

9279 


POLY < 1 ) sNWUM 


c 

9280 


FCL.Y { * ) sNJciN 


0 

928 1 




G 

9282 


KP = C 


c 

9283 


POLY ( .> ) = i .oo 


c 

9284 


IP ( M*N > ulOi 110# 130 


c 

9285 

1 l c 

IP ( M.N > 5 10. 120* 190 


0 

92 86 


AT OK 15 OA1N TfcWM UNLY 


0 

9287 

1 2 0 

KP = N/N 4- J 


c 

9288 


PC)LY(J) = 0.00 


0 

9289 


POLY (KP 1 = U TS( 7) 


0 

92 9 0 


KP = KP 4 l 


c 

929 1 


GO rc 29C 


0 

9292 


NUMERATOR kLAL ROOTS 


c 

9293 

1 30 

10 VP (2) = RTS(B> 


0 

9294 


POLY (4) s TEMP (2) 


0 

9295 


IP (NKN-l) 1 dO • IbOi 140 


0 

9296 

140 

CO 170 K = 2. NRN 


0 

9297 


on l e 0 K l = 1 . K 


0 

9298 

1 'i. 0 

TOP (KIM) = RTSCk + 7) * POLY (Klf2) 4 

POlT (< l 43) 

0 

9299 


CO ltO K2 = 1 . K 


0 

9300 

1 60 

POLY (K2*3J = TEMP < K2+ l ) 


0 

930 l 

i 7C 

COM IMJei 


0 

9302 




0 

9303 

i ac 

IP (NCN) 310. 250. 190 


c 

9304 




0 

9305 


INCLUUL 1 HE NOMtRAlCH COMPLEX PLOTS 

0 

9306 

l 6 0 

K.NK = NWIS 


c 

93 0 7 


KC = NhN fd 


0 

9308 


KC.V - 2 4 NCN 4 KC - L 


0 

9309 


CO 240 L = KC. KC M * c 


0 

9310 


Th'Vi = i. .D04IHS(L )/kT5(L4i ) 


0 

93 1 l 


TCN2 = 1 .uo/ PT S ( L 4 1 ) ** 2 


0 

9312 


LL = c-6 


0 

93 l 3 


CO 2 i 0 L 2 = 1 . LL 


0 

93 14 


IE M3 = 0.00 


c 

9315 


IF (U-l ) 210. 210. 200 


0 

9316 

200 

IEMJ = TEM2 4 POLY ( L2 4 1 ) 


0 

9317 

2 l 0 

TE MP < L2 4 I ) - POLY (4.24 j) 4 TOM 1 * POLY 

(Litil * IL.M3 

0 

9310 

220 

CUNT iNUfc 


0 

9319 


KNP - KNP 4 2 


0 

9320 


CO 2 20 L 2 = 1 . KNk 


0 

9321 

23 0 

POLY ( L 2 43 ) = TtMP ( L3 M ) 


0- 

9322 

240 

CCNT INUL 


0 

9323 




0 

9324 


cNTtR ij A IN FACTOR. 2c PC PLOTS. Rf:STO«c COEFFICIENTS 

0 

9325 

250 

KP - NZN 4 4 


0 

9326 


K5 = c * NCN 4 NRN 


0 

9327 


DC 2 L 0 J = 1 » KS. 1 


0 

9328 


POLY (KP) = TEMP ( J 4 1 ) * KTS (?) 


0 

9329 


B-165 



U O 


2bO 

kp = :<p+i 



0 

9330 


FULY (NZNF3) = l.uof «Jj (7) 



c 

9331 


If- (KZN) 290. 290, 2 70 



0 

9332 

2/0 

DC) 2 £ 0 J = 1, N 2 N . 1 



0 

9333 

2 ao 

PULY (JfJ - O.UO 



0 

9334 





0 

9335 


PROCESS UENCMlNAlCR MOLTS, 

KP I S LOC* T 1 UN 

FCM STORING FIRST 

0 

9336 


JcNCM IN ATOP CutEFlCItM 



0 

9337 





0 

9 338 

2'jQ 

POLY (KP) = 1.00 



0 

9339 


if ( nfo ) oio, joo , J40 



c 

9340 

300 

IF ( ^CJ ) 5 10, 3 10, 400 



0 

934 1 


DENOMINATOR KcAL PULI 6 (KP 

IS LOCATION FJ.4 

FIRST ROOT I 

0 

9342 

3 1 C 

IF (KZu) -,10. 'jOO, 320 



0 

9343 

320 

KRIP = KF ^ N2D 



0 

9344 


CO 330 IE = KP , KP IP 



c 

9345 


FOLY < IS > =0.00 



0 

9346 

330 

CLNT I NOt 



0 

9347 


FOLY(KPIP) = 1,00 



c 

9348 


GG TC jOC 



0 

9349 

34 0 

KP = 2YNCN F NRN F 6 



0 

9350 


FOLY (KP F 1 ) = RTS ( KP) 



0 

9351 


T E iYP ( 2 ) - KTS(KR) 



0 

9352 


IF (HKj-l) 390. 390. 330 



0 

9353 

3 3 0 

CO 360 K=2.NRD 



c 

9354 


NCI = KRFK-l 



c 

9355 


oo 3eo k i = i ,k 



0 

9356 


NC2 = KpfKl-l 



c 

9357 

3 60 

TCMP(KIFI) = RTS( NCI )*POlY( NC2 > 

4 PGLYINCJ41) 


0 

9358 


CO 370 Ki = l.K 



0 

9359 


NC 3 = KPFK2 



0 

936 C 

370 

FCLYINC3) = TEMP(KDFl) 



0 

9361 

330 

CO N T I NUt 



c 

9362 





0 

9363 

30 0 

IF ( K Co ) 6 10, 460, 400 



c 

9364 





0 

9365 


PROCESS denominator complex 

ROOTS 


0 

9366 

400 

KOR = inRO 



0 

9367 


KC = 2*NCN f NRN F NRD Fo 



0 

9368 


KCM = 2* NCU F KC-l 



r 

9369 


CO 4 £ 0 L = KC. KCM. 2 



0 

9370 


TEM1 = 2 .004HTS( L )/K T S (LFl) 



c 

937 1 


TE M2 = 1 .U0/RTS( Lf 1 ) *«2 



0 

9372 


LL= L- ( 2*NCNFNRNFu> 



c 

9373 


CO 4 3 0 L 2 = l . LL 



c 

9374 


NCS = KPFL2- l 



0 

9375 


TEM3 = 0.00 



0 

9376 


IF ( L 2- l ) 42 0. 420. 4 1 0 



0 

9377 

4 10 

TEM3 ■= TEM2 * PC LY INC6-1) 



0 

9378 

42 0 

TEMP ( L 2 F 1 ) = POLY (NCSFl) F T EM 1 * POLY (NCs) 

4 TEM 3 

0 

9379 

430 

CONT 1NUE 



c 

9380 


KOR = KOR 4 2 



0 

9381 


CO 4 40 L 3 = If KOH 



c 

9362 


NCt = KP4L3 



0 

9383 

44 0 

ROLY ( NC6) = TEMP (L3+1) 



c 

9384 

450 

COM INUE 



c 

9385 





0 

9386 

460 

KO = KP 4 N20 4 l 



c 

9387 


KS = 2 * NCj 4 NHL) 



c 

9388 


CO 4 7 C M = It K5* 1 



0 

9389 
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FOLY < K «_J > = TEMP i K+l) 

4 7 0 KD = KJ*1 

KD = KP + NZU- l 

POLY ( K 0 ♦ l ) = POLY UP) 

IF (NZD) oOO « 500* 4d0 

48 0 CO 4S0 J = K P » KD* 1 
490 FCLY (JJ = 0.D0 
C 

500 RETURN 

C ERROR COMMENT ANU RETURN TO MAIN PROGRAM 

510 WRITE ( K TAPE • 1002 ) 

1 C020FUKMA r (coHl A NEGATIVE COUNT OF ROOTS WAS cNCUUNltWtD 
ILYNCMAL C OULU NOT DL OBTAINED.) 

RE TURN 
ENC 


0 9390 
0 9 39 1 
0 9392 
0 9393 
0 9394 
0 9395 
0 9396 
0 9397 
0 9398 
0 9399 
0 9400 
RTOP. PO 0 9401 
0 9402 
C 9403 
0 9404 


SUtPCUf INL T Rhii { ND • Fc X • KK * KC iKZ*FOR*FBC»Jj i Zj V * K5 1 Zl ) 

C 

C DEBUG ft 82 

IMPLICIT Rt_AL*3< A-h. U- ) 

CTWFG TRANSFER INPUT KELTS FOR^fl AND FORME 

t. ND IF INPUT (0) *l_ HAVE NUMERATOR, IF I NP j T (1) A Ut NOMINA TOR 

C RX -- If NT Ike BLOCK (CCuNT j.uA I N,ROCTS) 

c k p -- Running count of accumulated reals for any given case 

C KC — SAME AS AUUVL bu T FOR COMPLEX 

C KZ LUuNT OF *CCJMUlATEO ZEROS FOR An f GIVEN CAoE 

C FuR FORM (6) REAL STORAGE BLOCK 

C FUC -- FORM (b) COMPLEX STORAGE BLOCK 

C u G — KUNNINu GAIN TthM 

C ZUV IF* OUTPUT uTriER THAN ZERO, AUSFiZETA) EXCEEDED ( 1) 

C KSlZE — u i M t N S 1 u N E D SIZC OF F L3R AN J F L> C « 

C IT IS ASSUMED THAI THL COUNT FOR THE ACCUMUL4I lJ ROUTS WILL BE ZEROED 
C. COT AT 1 he. BEGINNING OF EACH CASE* 

C ANOTHER TASK IN THE (MAIN) PkuGRAM IS CHECKING 1 Hl (ZLlA) FLAG. 


0 9405 
C 9406 
0 9407 
0 9408 
0 9409 
C 94 10 
0 941 1 
C 9412 
C 94 13 
0 94 14 
C 9415 
0 9416 
0 94 1 7 
0 94 18 
0 94 19 
0 9420 
0 9421 
0 9422 


01 ME K 

SlLN RX ( 1 ) ,PbM 1 ) *FbC( l ) 

0 

9423 

IF C 0 

G icO« 0 • DO ) ReTJRN 

c 

9424 

IF ( NO. GT .0) GO TO 9C 

0 

9425 

IF ( P X ( 7 ) .EO. 0,00) uL To ZOO 

0 

9426 

GG = G 0 X ( 7 ) 

c 

9427 

KK X 1 

= HMIM- 0. IDO 

0 

9428 

KRX2 

= RX( 2) ♦ 0. lUO 

0 

9429 

KHX3 

- kX( J) ♦ 0.1D0 

c 

9430 

K R X 4 

= R X ( 4 ) F 0.1 DO 

0 

9431 

Kit Xb 

- R X ( S ) ♦ 0.1 DO 

c 

9432 

KH X6 

- RM o) ♦ 0. IDO 

0 

9433 

IF (>UJ IJJ. 100. 110 

0 

94 34 

J = 7 


0 

9435 

JCR = 

KR X l 

0 

9436 

JCC = 

2 ♦ KR X 2 

0 

9437 

-C l = 

KKX3 

c 

9438 

co r c 

1 2 C 

0 

9439 

J - 7 

+ KH X I * 2 * \RX2 

0 

9440 

JCR = 

KRX4 

c 

944 1 

JCC = 

Z4KHXS 

0 

9442 

JC z = 

KHXo 

c 

9443 
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l 20 

IF ( OCR ) 150. 150. I pO 

0 

9444 

1 30 

CO 140 M = 1 . JCR 

0 

9445 


KR = Kk+1 

c 

9446 


L = J ♦ M 

0 

9447 


F0R (KK) = kX (L ) 

0 

9446 

1 4G 

CUNT 1NJE 

c 

9449 

1 50 

IF ( OCC ) 190.190. loO 

0 

9450 

1 60 

CO l € 0 M = 2.JCC.2 

0 

945 l 


KC = KCM 

0 

9452 


KK = 2 * K C 

0 

9453 


L -• J+ JCRfM 

0 

9454 


FGC( KK- 1 ) = KX(L-l) 

0 

9455 


f-dC(KK) = RX ( L ) 

0 

9456 


IF ( CABS (RAl L-i ) >- 1.J0) 160. 180. 1 70 

0 

9457 

l 70 

20V = l .00 

0 

9458 

l SO 

COM 1 NUc 

c 

9459 

190 

KZ = KZ+JCZ 

c 

9460 


FETUFN 

0 

9461 

200 

G G = 0 • U 0 

0 

9462 


KR = 0 

0 

9463 


KC = 0 

0 

9464 


O 

ii 

N 

c 

9465 


CO 2 10 1=1 * KSIZE 

0 

9466 


FRK( I ) - 0 .1)0 

0 

9467 

2 1 0 

FbC ( I ) = 0 .00 

0 

9468 


fe ruFN 

0 

9469 


END 

0 

9470 





^UGRCUIINE T TFF { NR . NC iNZ .KR , KC • KZ . G .WN . CN . Rci . wD . R • NS l Z E ) 


0 

9471 

C 





0 

9472 

C 



DEBUG M 

83 

0 

9473 




IMPLICIT REAE*0( A-h. C-Z) 


0 

9474 

C 





0 

9475 

C 

-- 

- 

NR = NUM bt£k UP REAL kOCT S IN T PE NUMERATOR 


c 

94 7b 

c 

-- 

- 

NC = NUMBER UF CUMPLtX PAIRS IN THE NUMERATOR 


0 

9477 

c 

-- 

- 

NZ = NJMEER UF ZEKU ROOTS IN THE NUMERATOR 


0 

9478 

c 

-- 

- 

KR = NUMBER OF REAL RUUTS IN THE DENOMINATOR 


0 

9479 

c 

— 

- 

KC = NUMBER UF COMPLEX PAIRS IN THE DCNC.MInAUR 


c 

9400 

c 


- 

KZ = NUMBER UF ZEku kUGT S IN I HE DENOMINATOR 


c 

9481 

c 


- 

G = C-AIN 


c 

9482 

c 

— 

- 

FN ■= NUMLk A I Uk REAL kouT ARRAY 


0 

9483 

c 

— 

- 

CN = NUMERATOR COMPLEX PAIRS ARRAY 


0 

9404 

c 

-- 

- 

fiU = DENOMINATOR *i_AL KOCT ARRAY 


c 

9485 

c 

— 

- 

CD - CtNU-UNATOk COMPLEX PAIRS ARRAY 


c 

9486 

c 

— 

- 

R - ARRAY CONTAINING NUMbLk UF ROUTS AND RJUT ARRAYS. 


0 

9407 

c 

-KSI7E- = DIMENSIONED SIZE OF k IN CALLING PRJJWAM. 


c 

9488 

c. 





0 

9489 




Cl N'ENSICN RN < 1 ) . CN ( l ) • RD (1 ) . C D ( l ) • R ( l ) 


c 

9490 




LOGICAL CtBUG.LEOU 


0 

9491 




C A I A NUT/6/ 


0 

9492 




COMMCN /LOLLJUC/ JtbuO( Uu) 


c 

9493 




EQUIVALENCE (LEOU.uEbUut 65)) 


0 

9494 




IF (C.lC.O.DO) GO 10 60 


0 

9495 




R< l ) =NR 


0 

9496 




R ( 2 ) = NC 


c 

9 49 7 
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S ( ’ > -He 
J- ( 4 ) — K.I i 
P C t > 

< 6 > = * 2 
M ? ) = G 
L - 7 + f'P 

If ( M< . b C « O . DC ) GO TO 20 

oo i c t =a.i_ 

1C P(l>-PN(l-7) 

2 0 N'-L ► l 

L = L + c *< N ic 

IF(NC.Lc.O) 00 TO ■■* 0 

CO 3C I - I'' • L 

JslOH 

3 0 h ( 1 ) = C:J { J ) 

/jO N = lH r 

L=L «-KR 

1 K ( ^ P • L c *0 ) GO TO c-0 

00 6 C ! = N • L 
J= I - N ♦ 1 

5 C M ! ) = RO ( J) 

6 0 IF ( ICC «Lc «0 ) GO TO 100 

N = L + l 
L=L+*+Kt 
CU 7 C l=N*L 

j = I — N + l 

7 0 F < t ) = C > ( J ) 

co re loo 

6 0 CO 9 C I - l IKS l ZD 
90 fi( I ) =0« JUO 
IOC CC»\ T l NUc 

1 F { • N C f • LtL OU ) WlTUkN 
VM I T E ( fi C T • 1 j O 0 ) 

100C FORMAT (• SUHROUTtN&i T TEE RUUTS ARRAY IS 
CALL rt^l1c£S(H*l*KSi<:E*l> 

Rr. I U S N 
END 


0 9493 
0 9499 
C 9500 
C 9501 
0 9502 
C 9503 
0 9504 
0 9505 
C 9606 
0 9507 
0 9508 
C 9509 
0 95 10 
C 9511 
C 9512 
0 9513 
0 9514 
0 9515 
C 9516 
C 9517 
0 9513 
0 9519 
C 9520 
0 9521 
0 9522 
C 9523 
C 9524 
0 9525 
0 9526 
0 9527 
C 9528 
0 9529 
0 9530 
0 9531 
C 9532 
0 9533 
0 9534 



SUEHCUlINE Q'-iCKVR (A.N.Kli.RI.KR) 



0 

9535 

c 


DEBUG 4 

84 

0 

9536 


IMPLICIT Hc:aL*8< A-ri. O-Z ) 



0 

9537 

c 




0 

9538 

c 

LATE-.! Muu ON OU/U^/To 



0 

9539 

c 

tarltN L NT IRC PACKAGt '« A S MAGE I NT C 

c— p RE C 4 ^ I J i'J 


0 

9540 

c 




0 

954 1 

cc 

FOP EX lenJEG PncUSluN. 0, VI MUSI OE 

JECLArtuD ^cAL*l6* 


0 

9542 

c 

At. L CInt_H5 UtCLAPtu H£AL*8« 



0 

9543 

t 




c 

9544 

c 




0 

9 545 


L I Mt- N S l C N A ( KIV . 1 ) , P a l I ) , mil 1 



0 

9546 


UIMcNSICN 0(100.100). V1U00) 



4 l 0 

9547 

c 




0 

9543 


CCJVMCN /LWJKK1/ 



0 

9549 


F W 1(100. 1 JO) . *2(1 00. 

100 ) 


432 

9550 

c 




0 

955 1 
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o n 


e:ou v^ulncc (ou)iwum 

LOGICAL CcbUG,LtUU 
C 0 y M C N /LOtoUG/ OtiUiu'Ji l 20 ) 

EOL I V fi L E NC tl ( L t. G U * GL >:JU 0 ( o A ) ) 

CAT A NOT/b/ 

C 

CCC NCTH.t 1 HE Cu U I V ALLNlL bT A1 t ME N T MUST READ AS FuLlJWs 
CCC ((toriLN EXTENDED* uk u— PRECISION) ) 

CC EQUIVALENCE (Gi(l)«fc'l(l))» ( u( 5001 > ♦ Wij( l ) ) 

C 

IF(LEOU) Wkl TE ( NOT * 100 0 ) 

100C FORMAT (• SUBROUTINE ^kjKVK •) 

C PLT A INTO 1*2 
C 

EC l C 1 = l * N 
00 I C J - l • N 
1C b*2 ( [ , J J = A ( l * J ) 

c 

C N CV» PLACE *a 2 INTO 0 (AS iF FUR t-X TENDED PRECISION) 

C — 

00 2 C J - l • N 
CO 2 C l = l • N 

2 0 C ( i • J ) = W2( 1 * J ) 

IF ( • NUT *Lc.QU ) GO TU AO 
VsR IT E ( NUT . 10 01) 

100 1 FORMAT (' ELEMENTS UF ARRAY Cl ' ) 

CALL WriiTtSlO.iM.N.KfO 
AC CONT INJt 

PUT MATRIX INTO UPPER HLSENUlHG FCRM 
CALL SUBUIA (Q*N*Kr*V1) 

IF ( . NOT .LLUU ) GO TO SO 
WRI T t <NC T * 10 02) 

10 0 2 FORMAT (• UPPER HLSSLNUuKG FuR M OF Q OUT JF SJlUIA I5») 
CALL WR I TC S( Q.N, N*Kk ) 

5 G CONT INUE 
C 

C CALCLLATE EIGENVALUES UsiNo OR METHOD 

CALL SrtCttN ( 0* N*KR*RI *KR*0 .0 ) 

C 

C ALIGN EIuLNVALUES INTO INCREASING CRQER 

C 

f^Ml 3 N-I 
CO 3 S J = l * NM l 
*2 MI N = RR ( J ) 

V.M IN •= HI ( J) 

I M I N - J 
JP 1 = JM 

DO JC l=JPl*N 

IF ( to 2 f 4 1 N .LE* RR(li) Gu TO 30 
*2M[ N = RR ( I ) 

UM IN 3 R I ( I ) 

IM IN = I 

3 C CONT INUE 

RR ( I .v i N ) = k « i J > 

RI(IVIN) = k I { J ) 

R I ( J ) = Vn i»« 1 N 

35 RR ( J ) = to2Mi N 

IF ( . NOT .LEQU ) GO TO oO 
fcR ITE { NUT .1004) 


0 9552 
0 9553 
0 9 554 
0 9555 
0 9556 
0 955 7 
0 9558 
0 9559 
0 9560 
0 9561 
0 9562 
0 956 3 
C 9564 
0 9565 
0 9566 
0 9567 
0 9568 
0 9569 
C 9570 
0 9571 
0 9572 
0 9573 
0 9574 
0 9575 
0 9576 
0 9577 
0 9578 
0 9579 
0 9580 
0 95 81 
0 9 582 
0 9683 
C 9584 
C 9585 
C 9586 
C 9587 
0 9588 
C 9589 
0 9590 
0 9 59 t 
0 9592 
C 9593 
0 9594 
0 9595 
0 9596 
0 9 59 7 
0 9598 
0 9599 
C 9600 
0 9601 
C 9602 
C 9603 
C 9604 
0 9605 
C 9606 
0 9607 
0 9608 
0 9609 
0 9610 
0 961 1 
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ICO** FORMAT (• REAL ROUTS OUT OF QRCCN ARE •» 0 9612 

CALL WM1 TES( MR. I ,N. I J 0 9613 

WR ITE INOT , 100b) C 9614 

•1005 FORMAT (• IMAGINARY ROOTS OUT CF OKCCN ARE •) 0 9615 

CALL Wr 1 1E.S1 R1 . 1 .N.l 1 0 9616 

eo CONTINUE 0 9617 

RETURN 0 9618 

ENC C 9619 



SUGRCdlNc UWCON (A.M.HUCTR • K 0 C T l » K H , 1 P fl NT « l I l Mc'j J 


0 

9620 




0 

9621 



DC BUG » 05 

G 

9622 


IMPLICIT KbAL*d( A-tit C-Z) 


0 

9623 


PR CliP AN To CALL UR rKAN'ihLKMATION, M A X I to J A llhR lb 

50. 

0 

9024 


ClNchSlCN A ( K.R • 1 ) i RUOI H ( 1 ) • l<UO T 1(1) 


0 

9625 


T£ST~ 1 J .00** (-20 *10 .1)0 **( i *1 T IMbS) 


0 

9626 


IF < ItlMcS .cO« 0) TtbT= 10 . UO* *( -20 ) 


0 

9627 


N = V 


0 

9628 


IF ( l FP.N r ) 100. 110. 100 


0 

9629 

1 00 

WRITE (6.104) 


c 

9630 

1 10 

2FPG s C.UO 


c 

9631 


•j J - 1 


0 

9632 

120 

XNN= C .00 


c 

9633 


XN 2 = C ♦ 0 0 


0 

9634 


flA = C.UC 


0 

9635 


fc - C * O 0 


0 

9636 


C = C,uC 


0 

9637 


CO = o.^o 


0 

9638 


R- O.CC 


c 

9639 


5 I 0 = C #u0 


0 

9640 


i r E r - o 


0 

9641 

1 JO 

IF ( N - 2 > 140. lbui l y(j 


c 

9642 

l A 0 

IF ( I PPiMT ) 1 50 . ft 60 . 1 bO 


0 

9643 

I 50 

VsR l T F. ( L . 1 05 ) A ( 1 , l ) 


c 

9644 

160 

ROC T R ( l > = A ( l , 1 ) 


c 

9645 


RGCT 1(1) - 0 .00 


0 

9646 

l 70 

R£ 1 URN 


0 

9647 

I 80 

J J — - 1 


0 

9648 

190 

X = ( A ( N - 1 • N - 1) - A < N , ,N ) ) * * 2 


0 

9649 


S = 4*00 *A ( N . N— 1 ) * A ( N — l . N ) 


0 

9650 


1TLR = ITfcH * 1 


0 

9651 


IF (X .i_C. 0.00) GL T u 2*40 


c 

9652 


IF ( CALib(S/X ) .GT. l.OC-ti) Gu TC 240 


0 

9653 

200 

IF (0 AH5 l A(N- l .N— 1 ) J-uAwS(A( N.N ) ) ) 220 . 220 , >10 


c 

9654 

2 1 0 

C - fl ( N- 1 , N- l ) 


0 

9655 


C - fl ( r; * N ) 


0 

9656 


C-0 T C 2 J 0 


0 

9657 

2L'C 

G - / l N -1 ♦ N- l ) 


c 

9658 


C = fl ( N . N ) 


0 

9659 

2 JO 

F = ( .00 


G 

9660 


F = C .GO 


c 

9661 


CO TC 2 "■» C 


c 

9662 

2 A C 

5 = > ♦ S 


0 

9663 


X - M N ' 1 • U- 1 > * A (N.N) 


0 

9604 


IF (S ) 200 • 2uC. 2b0 


0 

9E65 
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esc 

£o = d j uk r (a ) 


0 

9666 


t--c. CO 


0 

9667 


F=0. CO 


c 

9668 


if ( > ) 2eo. 200 . 270 


0 

9669 

2 6 0 

E=(X-Su)/2.U0 


c 

9670 


G- ( X 4 50 ) /2.U0 


0 

9671 


GO TC d'.o 


0 

9672 

270 

C= ( X-5U ) 22.0 0 


0 

9673 


E= (X 1 SO ) /2 .00 


0 

9674 


GO re 2SC 


0 

9675 

2d C 

F 50 5CK T ( — Z,) /2. 00 


0 

9676 


e=x/c .oo 


0 

9677 


C.= F. 


0 

9678 


F=-F 


0 

9679 

290 

IF ( J J > 3 10* JO 0. 300 


0 

9680 

300 

C = 1t£5 1 v{ uAdS(ij) *■ F ) 


0 

9681 


IF (D A<iSi A( N- l .N-2) ) .Jr. l>) GO TO 340 


0 

9682 

3 1 0 

IFIIFKND 320, 3 JO . 320 


0 

9683 

320 

HR IT e lu.10blb.Fi HER 


0 

9684 


HR ITE (C.lObJG.H 


0 

9685 

330 

RGCTMR) = t 


c 

9686 


rtlCTHN] = F 


c 

9687 


RUCTMin-1) = 0 


c 

9688 


RCJCT I (N- l ) = H 


0 

9689 


1 

11 


c 

9690 


IF ( J J ) 170 . 120 . 120 


0 

9691 

340 

IF (0 AU5 ( A< N, N- t ) J .»[. «CABS( A( N.N( > ) JU IU 

560 

0 

9692 

350 

IFIIFR.'iTJ JoC. 37C. JGO 


0 

9693 

360 

HAITE ( 6 , l 03 ) A( N ,N> * ILiiL , ITER 


0 

9694 

J7C 

FOCTR(N) - A(N.N) 


0 

9695 


RCCT 1 ( iN ) = 0 .00 


0 

9696 


IN=|N- 1 


0 

9697 


GO rc 120 


0 

9698 

3 0C 

IF (DADS ( DAOS l XNN/At N,N- 1 ))- 1 *0 0 ) -1 . 00- tt) 400. 400. 

590 

0 

9699 

390 

IF(0AuJlCAC»3(xN2/A(N-l ,N-2) )-l .001-1 .00-0) 4Jj, 400 

• 490 

c 

9700 

4 0 C 

VO=D AJ3 ( A< N. N-l ) ) -UAbJt A (N-l , in-2 > ) 


c 

970 l 


IF ( ITcR-lS) 520. 410. 440 


0 

9702 

4 1 0 

IF (VC I 420. 420 . 430 


0 

9703 

42 0 

R = t ( ,\j— J , N- 2 ) * *2 


c 

9 704 


SIC - 2 .00*A ( N- I . In-2) 


0 

9705 


GO T C 3 7 0 


c 

9706 

4 3 C 

fi = M R ,N- 1) **2 


0 

9707 


S I G - 2 .00 *A ( N, N- l ) 


0 

9708 


CO TC 370 


0 

9 7 09 

4 4 0 

IF(VC) 470. 470, 450 


c 

9710 

4 5 C 

IT IIFM.T) 4 60, 3 jO i 460 


0 

9711 

4 O 0 

HR ITE ( o , 107 ) A< N- 1 .INI-2 ) 


c 

9712 


GC TC 320 


0 

9 7 13 

4 7 C 

IF(IFHNT) 4 dO * 370, *60 


0 

9714 

48 C 

HR I T E ( 6 , 1 0 7 ) At N . N- l ) 


c 

9 7 15 


GO TC J60 


0 

97 16 

49 C 

IFdlCIl .OT. 50) GO 10 nOJ 


c 

97 1 7 


IF ( I Ter .gT . 3 ) njU TJ 320 


c 

9718 

5)0 

r-e*e +r *f 


0 

97 19 


Zl= (li-AA) # ( L- A A) 4 ( r -L ) 4<F -0 ) 


0 

9 720 


IF (R • NE. O.DO) GU IU 301 


0 

9721 


zi = o.uo 


c 

9722 


GO TC S 02 


c 

9723 

5 0 l 

21 = 2 1 / R 


0 

9724 

502 

R= G*Gth*H 


0 

9 725 
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/d. - n-o^ ) * i ti-uu ) 

if . kc. o . ) 6u ro -joj 

?.2 - C.JC 
CU TC j0 4 

JjO.3 72 = 

8 04 ccn r in jt 

I f" ( 7 1 - J • 25UO ) j lUt sL't -> ** 0 

! i l 0 IF* < 7 C - ) . cjUO ) ficTO, -.20. 5 j0 

6;?c r - r. ^ c -f- ■►*- 
i I G = e * j 
go re j 7 c 

530 «»fc*E 

s i g= e ft 
go rc ^ 7 c 

5 40 IF ( L e — J • 2 oOO ) 5 5 0. 6 80. ‘jOO 
550 R«G*C 

S I c = c ♦ g 
CU TC j7C 
5 o C h = C * JO 

SIC ~ O.CO 
5/ C >MN“ AIN* N— 1 > 

>N2= fi ( N- l • N- J ) 

CMC wH <1 l'\*N»R»Sl'j»u»KH) 

AA = E 

c*=f 

C = 0 
CU = H 

GO TC IvC 

104 f CPM A r ( //// l X • OHkc.AU l J Ak T oX l 4 H I MAG I N.»* Y J 4 k I t «iuX 
1 UKTaKEiJ A ii ZCKO 6X AnlThk //) 

1 C 5 FORM fi T ( l X ,U l 5 . 3 . 3X • iO I 5 • d . 4 2X 13) 

10 7 fORMHlbCX 0 13.6) 

GNU 


0 9726 
0 9727 
0 9 7 26 
0 9729 
0 9730 
0 9731 
0 9 7 32 
C 9733 
0 9734 
0 9 7 35 
C 9 736 
C 9737 
0 9738 
0 9739 
O 9 740 
0 974 1 
0 9742 
0 9 74 3 
0 9 744 
C 9745 
C 9746 
0 974 7 
0 9 7 48 
0 9 749 
0 9750 
0 9 75 1 
C 9752 
0 9753 
0 9754 
C. 9755 
0 9 756 
0 9757 
0 9758 


5 J Chi C’J T 1 Nb o UOU I A (A.M.KR. 6 ) 

C OEGUG H 86 

IMPL ICl T 4-H.U-Z) 

f I NthblCN A ( KR • 1 ) . b( i ) 

C SUtiRCU I 1 Nb TO r'UT hi A 1 < IX IN UPPER ilCSSL'NDii.Ku = 

IF ( f* ~ 2) 260* 260* 100 

100 GO 2*J LC = J ♦ *4 
N = h - LL + 3 
M = N - l 
k ?, = .9 - 2 
M s Ni 

01 V = U AEu ( A ( N • N— 1 ) ) 

CO 1 20 J = l . N2 

I F ( O / c a C A < N , J ) ) - O l V ) l d C . 12 0. I l 0 

110 M - J 

CIV = -UAE 5 (A(N.J) ) 

12 0 C(JM INjE 

1 F ( O I V ) 130 . 2 j O . 13 0 
1 30 IP <N I - M ) l 40 . 1 70 • l 40 
UC cn 15C J = l.N 
CIV = A ( J , N i ) 


0 9759 
0 9760 
0 9761 
0 9762 
0 9763 
0 9764 
0 9765 
0 9766 
0 9767 
0 9768 
0 9769 
0 9770 
0 9771 
C 9772 
0 9773 
0 9774 
0 9775 
0 9776 
0 9777 
0 9778 
0 9779 
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n n 


A< J . Nl ) = A( J , Nl ) 

1 5 C A I J , M ) = D 1 V 

CO t £0 j = 1 ,M 

CIV = A ( M , J ) 

A I M . J I = A( Nl . J ) 

16C AIM .J) =L>IV 

17C CO l £ 0 K = 1. Nl 

l BO 61 K) - A(N.K)/A(N.N-1) 

CO 2 AO J •= l ,M 
SUM = d.CO 

IF ( J - Ml 190 , 220 . 22 0 

190 I F I 6 < J > > 200. 220. 200 

200 A I N , J ) = 0.00 

00 2 10 K = 1 , N l 

A(K.J) = AIK . J 1 - A(K,Nl)»t!(J) 

2 10 SUM = SOM 4 A(K,J)*t)(K) 

GO TC 2 4C 

220 DO 22 0 K = 1 ,M 

220 SUM ■- oUM 4 AIK . Jl*ll(\ ) 

2 A C A I N l . J ) = SUM 

250 C0NTINUO 
2 GO F6IUFK 
fcNC 


0 9780 
0 9781 
C 9 782 
0 9783 
C 9704 
0 9705 
0 9786 
C 9707 
0 9780 
C 9709 
0 9790 
0 9791 
0 9 792 
0 9793 
0 9794 
C 9795 
0 9796 
0 9797 
C 9798 
0 9799 
0 9800 
C 9801 
0 9002 


100 


l 1 0 

1 20 

l 30 
140 


1 50 
160 

l 70 


1 80 


S U 0 9 C U I 1 N t 002 (A.N.R.slG.D.KP) 


DEdUG n 67 


SUtjRUUTINE 10 Ut USED 0 v QR CON 
IMPLICIT KlALADI A-H.D-Z) 

01 MEiFSi UN At KM. I ) ,u(3> ,F>5i (21 
M = N - 1 
IA - N - 2 
IP = IA 

1F1N-2) 460. 140. 10 0 

DU 120 J = o , Nl 
J1 = N - J 

IF 1078S l A< Jl >1 , J l )t-0) 140. 140. 110 

DEN = A( JU1 ,J1 H )*I A( Jltl , J1U)-SIG)M( Ji H .JU£)*A( J U2.J1 + D *R 
IF (DEN) 120, 130, 120 

IF (OAcSIAI JIM .JlltAI J lt-2, J1H JMOA3SI A( Jl H , J l *• 1 MA( J U2 , J U2 I 
— S IG ) 4 JABSt A I J l 4 J . J 1 +2 > ) )/UtN ) -0 ) 140. I 40 , 130 

IP = J 1 

CO 150 0 = 1 , IP 

Jl = 1F-JH 

IF I C Ad SIAIJ141.J1)) —J ) luO , 160, 150 

I Q = J 1 

00 4 4 0 l = I P , N 1 

IF I I - IP ) 180. 1 7u . 160 

C(1)=A(IP,IP)*(A(IP,IP>— 5lG»+A(IP,IP4I>*AliP+l,lP)4K 
G ( 2 ) = A I IP* 1 , IP)*( AIIP. IP >4A<lP4l , IP4H -SIo) 

0 I 2 ) = A ( IPf 1 , IP) *AI IP42 . IP41 ) 

A C IP *2, IF (=0 .00 
GO TC 210 
G< 1 ) =A( l , l-l ) 

G ( 2 ) = A ( 1+1,1— 1) 

IF(I-lA) 190. 190, 200 


0 9803 
0 9804 
0 9805 
C 9806 
C 9007 
0 9808 
C 9809 
0 981 0 
0 981 1 
0 9812 
0 9813 
0 9814 
0 9315 
0 9816 
0 9317 
0 9818 
C 9819 
0 9820 
0 9821 
0 9822 
0 9823 
0 9824 
0 9825 
0 9826 
0 9827 
0 9828 
0 9829 
0 9830 
0 9831 
0 9832 
0 9833 
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190 G( 2 l = At 1+2,1-11 
GO T C 2 10 
200 C-U)=0.i;0 

210 XK=0 SORT 10(1 1*G1 1)+612>*G12)+G(3I*G131 1 
IF (G < 11 ,LT .0 .000 ) Xn=-XK 
220 IF(XK1 2 jo . 240, 230 

230 AL = G < 1 1./XK + 1 ,00 

FS 11 1 1 = C (2 1/ 1 G( l 1 +XK 1 
FS l< 2 1=G13!/(G1 1 1+XK1 
CO TC 2 5 C 
240 AL=2.JJ 

PS I l 1 1 = 0. DO 
FS I ( 2 J =0 .00 

2S0 IFll-IJl 260 • 290. 260 
260 IF (I— IP! 260, 270. 200 

27C A 1 I , l— 1 1=-A1 l , l-l 1 
00 TC 290 

280 A l I, 1-1 l=-xK 

29C 00 340 3=1. N 

IF11-1A1 300, 300. JlO 

300 C=PS I (8 1 *A ( I +2. 3 1 
GO TC 32C 
310 C=O.CO 

320 £ = AL* 1 A( l , 3! +PSI < 1 1 *A1 1 + 1 .3 1+C 1 
A ( I , 3 1 =A ( I ,3 1-E 
A ( 1+ 1 , 31 =A (1+1.3 1 —PS 11 1 1 *E 
IFd-lAl 33C, 330, 340 

330 A ( 1 + 2 . 3 1 =A ( 1 +2 . 3 1 -PS l ( 2) *E 
340 CONTINUE 

IF ( I - l A 1 3 SC , 3S0, 3 6 0 

3S0 L= 1+ 2 

GO TC 370 
3o0 L=N 

370 CO 420 3=1 0 , L 

IFll-lAl 3b 0 , 380. 390 

380 C = PS I 12 1 »A 1 3 . I +2 1 
GO TC 400 
39C C=C.C0 

400 fc=AL<< 1(3,11 +PSI ( l 1 * A I J , 1+1 1+C1 
A 1 3 » I 1=A (3 .1 l-E 
A ( 3 . l + l 1 =A 1 3 , 1 + 1 1 -PS 1 1 1 1 *e 
IF ( I - 1 A 1 410. 4 10. 420 

41C At 3 . I +2 1 =A 1 3 . I +2 1 — PSI < 2 1 *E 
420 CONTINUE 

1F1I-N+3! 430, 430. 440 

4 3 C E=AL+PSl 121*A( 1+3.1 + 21 
A 1 1 + 2 , I 1 = -E 
A 1 1 + 2 , I + 1 1 =-PSI 1 I !*t 
A ( t+3. 1+21 =A (1+3,1+21- PS U21*£ 

440 CGNTINUt 
450 FF.HJFN 
£NG 


C 9834 
0 9035 
0 9636 
0 9837 
0 9838 
C 9839 
0 9840 
0 984 1 
0 9842 
0 9843 
O 9844 
0 9845 
0 9846 
0 9847 
C 9648 
0 9849 
0 9850 
0 9851 
0 9852 
0 9653 
0 9854 
0 9855 
0 9856 
0 9857 
0 9858 
C 9859 
0 9860 
0 9861 
0 9362 
0 9863 
0 9864 
0 9865 
0 9866 
0 9867 
O 9868 
0 9869 
0 9870 
C 9871 
0 9372 
0 9873 
0 9874 
0 9875 
0 9676 
C 9877 
0 9878 
0 9079 
0 9880 
0 9881 
0 9882 
0 9683 
0 9884 
0 9085 


SUbkCU I l NE R.vFl Tc l N , NR 1 ,R 1 I ,P h2 .« 1 2 . N 1 , N2 . AN A3 1 . AN A; A2 1 


0 9886 
0 9867 
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r> n 


DEBUG * 88 


IMPLICIT RtAL*S( A-H, 0-Z ) 


C- 

C 

C 

c 

c 


LATEST MUD ON OV/04/75 

LATEST MUD ON 0S/04/75 

■SUPRCUTINC PULLS UP NEW PAGE VIA PAGEHD, J 4 I NTS OUT 

lOfiMIFICATION(S). AN AM l AND ANAM2 , THEN P K I M I S ROOTS. 

SUBROUTINE ARGUMENT DESCRIPTIONS 


9888 

9889 

9890 

9891 

9892 

9893 

9894 

9895 

9896 

9897 


c 




ALL 

ARGUMENTS ARE 

INPUT 


0 

9896 

c 








C 

9899 

c 

K 

= 

NO • i 

UF ROUT 

St T S TU PRINT 

• 


0 

9900 

c 

rtf; l 

- 

REAL 

ROOTS 

(FIRST SET) 



0 

990 1 

c 

R I 1 

- 

1 MAG 

RGUTS 

O 1 RS T SET ) 



0 

9902 

c 

R R2 

= 

REAL 

ROOTS 

(SECOND SET) 



0 

9903 

c 

ft 12 

* 

i m AG 

ROOT S 

(SECOND SET) 



c 

9904 

c 

N l 


RCCT 

C GUN 1 

(FIR^T SET) 



0 

9905 

c 

N 2 

= 

KCOT 

COUNT 

(SECOND SET) 



0 

9906 

c 








c 

9907 

c 

ANA VI 

= 

4 CHARACTER 

ALPHANUMERIC 

T I TLE 

(FIRST SiT ) 

0 

9908 

c 

ANA V2 


4 CHARACTER 

ALPHA NUME R 1 C 

T l TLE 

( SECOND *ET> 

0 

9909 


Cl ME NS I CN MR III), RIK1J. Rk2(ll. HI2I1) 

CATA NOT / 

1 6 2 

101 FORMAT I///20X. A4 .34X. A4 i//bX . 2HNU ,SX. 9HRcAL -‘AMT , 

1 3X , l 4HI M AGINARY PART . I l X , 9HREAL PA 4 T . 3 X . I •* HI M A G I N AR Y PART. 

2 // ) 

102 FORMAT ( 5X.I 2 .3X.U12.3 .GX.012.5.9X ,012.S,.>* .DI 2. j) 

103 FORMAT (5X.12.4iX.Di2. 3. SX .012.5) 

CALL PAGEHD 
IF ( K . EG. 2 ) GO Tu 20 
WRITE (NCT.101) ANAMl 
IL = 0 

00 1C Ul.Nl 
IL = ILF1 

IF ( IL .LE. 48) GU TO 10 

IL = 0 

CALL PAGtHl) 

WRITE 1 NET .10 1) ANAMl 
1C WRITE (NCT.102) I.RHl(l). KIl(I) 

RETURN 
20 CGNTINUE 

L = N A X 0 l N 1 , N2 ) 

WRITE (NOT, lot) ANAMl. A NAM 2 

IL - 0 

CO 4 C 1 = 1. L 

IL=IL + 1 

IF ( IL .LE. 43) GD TU 23 
IL = 0 

CALL PAGEHD 

WRITE (NUT, l 01). ANAMl. ANA M2 
25 CONTINUE 

IF ( I .GT. Ni .UR. I .GT. N2 ) GU TO 30 
WRITE (NCT.102) I, RK1 ( 1 ) . R I l ( I ) ,RR2( l ) .Ri 2 ( I ) 

C(J TC 4 0 


C 99 10 
0 991 I 
0 99 (2 
C 9913 
9914 
99 15 
9916 
991 7 

9918 

9919 

9920 

9921 

9922 

9923 

9924 

9925 

9926 

9927 

9928 

9929 

9930 

9931 

9932 

9933 

9934 

9935 

9936 

9937 

9938 

9939 
0 9940 
0 9941 

9942 

9943 

9944 

9945 

9946 

9947 
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n n 


5 C COM INUE 

if' <1 #GI. M2) WRITE (M,T,102) l. PMU), »< l l ( l ) 
If* ( I • G I • Ml) V/R1IL (NuT.lOJ) I. R«2( l ) , R1l(I) 
40 COM iNJti 

Ft: TUFN 
tNC 


0 9948 
0 9049 
C 9950 
0 9951 
0 9952 
0 9953 
0 9954 


SUERCUTINL bPLOT ( I 1 I'L L » FM A a ♦ F V i N # CO V I N ♦ A X ) 

C OELUG # 89 

C 

FEAL*0 1 RUNNC • IUATE 
PEAL *6 LNAI4C. • JiTui-l , 1 HLL2 

C SLHFCLT. INC PLOTS F RLOUt NC V DATA ON SEMILCU G* l O . 


c 

c 

c 

c 

c 

c 


c 


c 


c 


c 

c 

c 


c 

c 


r i r lf . 

r m a > 

FM N 
C E K l N 
CUM AX 


SUBRlUTINl: ARGUMENT OESCPlPf l uNS 

INPUT 60 CHARACTER AL HM A NU.MC R I C I I TLl . 

INPUT UPPER KAN^fc LIMIT FCR FREQUENCE S*cEP# 
INF-UT LOWER RANGE UM1 FCR F REGUFNl T S*-EP. 
MINIMUM Jd fu PLuT • 

MAXI MU M Dti T u Plot* 


Cl ME fi, IlN T I r L £' < I ) , UE>T I T L ( JO) . F T I TLE( 7 ) , 4NJM< -i ) 

Cl VF^SI LN 2x1(2). lV I ( 2) 

C I WE F S I ON FA 2c. ( 800 ) • U«iAMH ( 500 ) 

COVVCN /LSTART/ IftuNNG. lUATt. NPAGfc 

CGtfMCN /LSTkTl/ UNAML(C). 11TLEM12), TITlE2(12) 

CCVMCN /L2MUJE/ AMU Jc (200) 

CC mm C N / P 5 T U F F / 

* jAVcO(bOO) • 5AVEP(500). SAVFO(jOO). SaVLA(5C0). KSAVE 

CAT A OoUTL / 

* 4 F - 2 0 C • 4H —19 0* Ah- 180 • 4H- l70t4H-t60#4H-li0.4rl-140.4H-130#4H-120* 

* 4 F — l IQ, 4H —100* 4H— 90 • • 4H— £ 0 • • 4H — 70# • 4 H— ;> 0 • , 4 H — L» 0 • • A FI - 40# . 4H-3 0 • . 

* 4 F-20 * « 4H- 10 • • 4M 0.0.4H 10..4H 20#. 4 FI jj. ,4h 40..4H bO. .4H bO.i 

* 41- / C * , 4H ti0.*4h 90 # # 4H l CO • *4Hl 10 # . 4H120 . .4rU uO . . 4Hl 40 • * 4H150 ./ 

L A 1A FT I ILL / 

* 4FiE~2 *4Ht— 1 ,4hc.OO .4HL01 • 4HE02 . AHEOj ,4Hc:0<* / 

CA TA AHUM / 

* 1H.LF2.1H3, IH<*,lhb.lHo.lH7.lHfl,lH9 / 


CALL HSfc'tMo (AMUOL) 

ESTAELiSF INITIAL ULLAGE FACTOR 
AG = AlLGI 0( FM I N ) 

IF ( ( AG • LT • 0 • ) .AMO. ( AG-FLCAT ( IF I X ( AG ) ) #N£ • J.)) AG = AG-1* 
FACTCR - 1 0* *4 I F I X( AG ) 

FM IN - FACTOR 


LETfcWMIFL GRID FREQUENCY 
AG = ALCClO(FMAX) 

IF (AG *C*e* 0.0 #ANU. ( AG-FLUAT ( IF I X< AG) ) ) . Nc . 0.0) 

l AC = Ag + 1*0 


0 9955 
0 9956 
0 9957 
0 9958 
C 9959 
0 9960 
0 9961 
0 9962 
0 9963 
C 9964 
0 9965 
0 9966 
0 9967 
0 9968 
0 9969 
0 9970 
474 9971 
0 9972 
0 9973 
0 9974 
0 9975 
447 9976 
0 9977 
0 9978 
0 9979 
0 9980 
0 9981 
0 9982 
0 9983 
0 9984 
0 9985 
C 9986 
C 9987 
0 9988 
0 9989 
C 9990 
0 9991 
0 9992 
0 9993 
0 9994 
0 9995 
C 9996 
0 9997 
0 9998 
0 9999 
010000 
01000 1 
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K = ALGG 10 ( F MIN ) 010002 

K = K-l Cl 0003 

C 010004 

UP = 1J. **IFIX(AG) 010005 

NLC = IFIX(AG) - IF l X( ALOG 10 ( F M IN) ) 010006 

C 010007 

CALL oC ALL I JBMAX ,U0MI N, 10 , D3U .C3L .Z IP ) 010008 

IF <CeL .LI. -200.) OUL - -200. 010009 

C 010010 

C — CALCULATE label LUCA TORS . 010011 

C 010012 

1SY = (CEL + 200.1/10. + 1. 010013 

ISX = ALCG tO(F'MlN) + 3.0 010014 

C C 1 00 1 5 

C 010016 

C MODIFY PHASE VALUES Id PLOT USING CB MAPPIMU SCALE. 010017 

FI = (DEL-DBL)* 0.0025 010018 

K2 = (DCUFUGLI* 0.5 010019 

C 010020 

CO 1 I- l .XSAVE C 1 002 1 

YOB - bAVtdl I) 010022 

IF < Y C ri .LI. OBL) YOt. = OUL Cl 0023 

IF (YC3 .GT. UBU) YuO = UuU 010024 

CSAMFI I 1 = Y 08 Cl 0025 

XFAZE = SAVfcP(I) 010026 

IF ( XFA2E • o T • 180.) XFAZL = XFAZL - 360. 010027 

1 FA2E11) = P14XF A2E + H 2 010028 

C 010029 

C 010030 

C GENERATE PLCT GRIU WITH SCALES . LABELS. AND IlTLi. 010031 

C 010032 

C 1NCICATE UTILISATION cF NORMALIZE!) SPACE 010033 

C 010034 

CALL SETSMG ( AMOOL . 1 9, l . ) 010035 

CALL SETSMG ( AMGOe . 2 0 , 1 . ) 010036 

C Cl 0037 

C 010038 

C USE FULL SPACES FOR PUT l I Nu uN RIGHT HAND LABELS. 010039 

C 010040 

CALL L'JJCTG (AMODE.O..O. .1. . 1. ) 010041 

CALL SU0JEG ( AMGOe. 0 . . 0. .1 . . 1 . ) 010042 

C eCX TFE GRID. Cl 0043 

CALL BJXG < A MODE . 0.0.0. 0*0*0. 1 .0,0.0,0.0,3.59. i. 0.0. 99) 010044 

C — INCREASE CHARACTER SIZE 01 0045 

CALL SETSMG l AMUDE . 4 b , 1 . S } 010046 

C PUT ON THE BODE TITLE. 010047 

CALL LtCGNUG (AM0DE.0.45, 0.93, 4 .4HBCDE) 010048 

C 010049 

C — SET FLAO TO ORIENT LABEL AT 90. DEGREES. 010050 

C 010051 

CALL SETSMG ( AMOOL .46 . 90 . ) 010052 

C 010053 

C PLT LABEL CN KHS. 010054 

C 010055 

CALL LEG ND G { AMODc . 0 . 9 60 . 0 . 4 35 5 . 1 1 , 1 1 HPH As E - JdG) 010056 

c — label tfe y-axis. 010057 

CALL LLCNDG ( AMOOL , 0 . Oo . 0 . 44 , 9 , 9HG A I N - OB ) 010058 

C 010059 

C — RESET CFAHACTER SIZE 010060 

CALL SETSMG (AMOOL. 45. I . C) 010061 
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n r\ n r> r>nn n n nr^nno 


RESET OFIENTATICN UF LABEL* 


CALL 

Sc T SMG 

(AMOOE f 40 1 0* 

) 


PLACE SCALE ON 

KHS. (USING 

LEGNOG ) 

CALL 

ll gndg 

(AMOOE. .SO 7. 

.910.4 

,4H 200) 

CALL 

LCGNDG 

(AMOOE. .SO 7. 

.032. 4 

,4H 160) 

CALL 

legndg 

( AMUOE ..<*0 7, 

•7S4.4 

, 4H 120) 

CALL 

legnjg 

(AMOOE ..907. 

.07 o • 4 

. 4H 80) 

CALL 

Lc GNUG 

(AMOOE. . 90 7 . 

• 59 6 ■ 4 

. 4H 40) 

CALL 

L t G ND G 

(AMOOE. .907. 

•S20.4 

• 4 M 0) 

CALL 

LcGNDG 

(AMOOE , .907, 

.442.4 

,4H -40) 

CALL 

LG GNU G 

(AMUOE.. 90 7. 

•364 • 4 

,4H -80) 

CALL 

L L GNU G 

(AMOOE. .907. 

. 266 . 4 

. 4H— 1 20) 

CALL 

Lc GNUG 

( AMOOE . . 90 7 , 

.206. 4 

.4H- 160) 

CALL 

LL GNUG 

( AMUOE. . 907 , 

.130.4 

•4H-200) 


— PL T ON ADDITIONAL TITLES. 

CALL ScfSMG ( AMGDt • 4 5 • l • 2 d ) 

CALL LlNESG (AMDJt. 0.0 .05,0.02 ) 

CALL TEXTG ( AMGDE » O , i R ONNO ) 

CALL TcXTG ( AMODL .6# UA T L) 

CALL LlMiSG ( AMUUtl • 0 • J • J • G • 02 ) 

CALL TGXTo ( AMUOE ,c UNAMt ( 1 ) ) 

CALL TtXTG ( AMOOE ,o , UNAMt( 2 ) ) 

CALL TLX TG ( AM DDL *o*'JNAML(J) ) 

CALL be I 3KG ( AMODd • 4 5 • i • ) 

ESTABLISH GLUJGCT AND OBJECT SPACES. 

CALL CUJCTG (AMO Dc. *0. 11 «0. 1 J • 3. 34.0. 91 ) 
CALL SUtiJLG ( AMOUc , FM IN ,ObL . UP ,030 ) 

INDICATE NL.NLINEAK X-sCALE. 

CALL St. I SM j ( AMGUl • ^ J • I . ) 

INDICATE DcSlNcJ EM PH ISIS ON Y-0 CNLY. 

C 

CALL SETSMo ( AMOJh • t 00 , 2 • ) 

C 

C — PL T ON GRID. 

C 

CALL G* l JG ( A.VUOL • i • * o • 0 , l . 2) 

C 

<1— -PL T ON TITLE AND LABcLS 
C 

CALL Sc ISMS 
CALL T I T LEG 

1 

2 

CALL SLTSMG 

c 

L--l.AdtL Y-AXIS. 

C 

CALL LABELS (AMODfc, 1 , 1 0. .4, DbT I TL< l SY) ) 

c 

C L A d EL X-AXIS) 

C 


( AMO Oil , 45 • 1 • 5 ) 

( AMUOE • 1 y • 1 GHFkLUUENC Y. - RAU/iiL, 
O.OLMY . 
uOi ( l TL L ) 

( AMUOE ,45.1 • ) 


C I 00 62 
010063 
010064 
010065 
010066 
01 0067 
Cl 0068 
01 0069 
01 0070 
010071 
010072 
010073 
010074 
010075 
01 0076 
Cl 0077 
01 0078 
010079 
01 0080 
010081 
C 1 0082 
010083 
010084 
010085 
010086 
01 0087 
010088 
010089 
010090 
C l 009 l 
010092 
Cl 0093 
01 0094 
010095 
01 0096 
01 0097 
01 0098 
01 0099 
010100 
010101 
Cl 0 102 
010103 
010104 
010105 
010 106 
010107 
010108 
010109 
01 0 1 1 0 
01 0 1 l 1 
010112 
010113 
010114 
Cl 01 15 
01 01 16 
010117 
010118 
Cl 01 19 
010120 
010121 
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CALL LABELG (AMODE. O, 1 . ,4 ,f- T X TLE ( I SX ) ) 
C 

C SET FLAC ru OH I ENT LABEL AT 90 DEGREES. 

C 

CALL StlSMG (AMODE, 46. 90.) 

PUT CN LEG GRID AND INTERMEDIATE LABELS. 

ZY I( t > = DdL 

ZY I ( 2 ) = JBU 

CU 7 J=l.NLC 
K = K ♦ 1 
CO 7 1-2.9 

XI = FLOAT! 1 ) * 10. *»K 

ZX 1( 1 ) = XI 

ZX I ( < ) = X l 

CALL LINESG { AMODE. 2 . ZXI ,ZY I ) 

CALL UdJCTG ( AMQDE.O . 1 1 . 0. . 0. 89 . 1 . ) 

CALL SddJEG ( AMODE.FMI N. 0. . UP . 1 . > 

CALL LEGNOu ( AMUOE . X I . 0 . 1 2 . 1 . A N UN! ( I > ) 

CALL C3JCTG ( A.MUDE . 0 . 1 1 . 0. 1 3. 0 .89 . 0.91 » 

CALL SUcJEG (AMOUt.FMlN.OclL. OP, OBU) 

7 CONTINUE 

— RESET ORIENTATION OF LABEL. 

CALL ir.TSMil ( AMOOl » 4o « G. ) 

— RL T DATA ON PLOT. 

CALL LINESG (AMODE. KSAVE. SAVED, FAZc) 
CALL TEXTG ( AMOOL . 1 . 1 HP 1 

(ALL LINESG < AMGOc ,KcA VE .SAVEQ .CEAMP > 
CALL TlXT. (AMODE. 1 . IHG ) 

CALL PAGEG (AMODE. 0.0 ,1 > 

RETURN 

ENC 


010122 
Ot 0123 
0 1 0 1 2 A 
010125 
Cl 0126 
010127 
010128 
010129 
010130 
010131 
010132 
010133 
010134 
010135 
010136 
010137 
010138 
010139 
Cl 0140 
010141 
010142 
01 0143 
010144 
010145 
010146 
010147 
010148 
010149 
010150 
010151 
010152 
010153 
010154 
010155 
01 0156 
01 0157 
C 1 0 1 58 
010159 
01 0160 


SUBROUTINE NIHLOT l T 1 TLl .dUM 1 N . C BM AX ) C10161 

DEBUG « 90 010162 

I.EAL*d IRUNNO, I DATE 010163 

RE AL Id UNAME. TITLeI. T1TLE2 C10164 

01 0165 

SUBROUTINE DISPLAYS S-PLANE i-REOUENCY 010166 

VIa THE NICHOLS PLOT 010167 

010168 

SUBKuUIINE argument OE5CRIPIIUN3 010169 

010170 


C TITLE = INPUT 30 CHAR AC 1 ER ALPHANUMERIC TITLE. C10171 

C CUMIN = 1NPUM LOWER DoLlMlT. 010172 

C C E M A X = UPPER DULIMIT. 010173 

C 010174 

CIMETSICN TITLE(l). UBIITL(jo) 010175 
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u 0 


KSA va 


CCVMCN /LwMUl>E/ A.MoJL-(tJO) 

C C '*■ MCN /LSTAUT/ iKUNNCi, iuATt_, «\P A GE 
CC*MCN / L j !'U T i / UNAMt( j) • I 11LEHI2), 1 iruitt U) 

(.C^MCN /HbToFF/ 

<• SAVEO(uGO) . SAV tP ( 500) , SAVEO(^OC), ^mVlA { 500) • 

c AT A Cu T I FL / 

* 4h -200. 4H- l 90 • 4H- luO • AH- 170 .AH- 160, 4H-1 j 0# '+T - l 'O* <*H- l .10 . AM- 1 20. 

* 4h-llO.-*M-lOO. AH— 'j'J • • A H - o 0 • » A h — 7 0. ,4H-oO • , * H - \j 0 • »4h-40, • A H -3 0 • « 

* A h - ao . . •♦H- 10 • . AH 0 « 0 • H 10..4H 2 0., AH S 0 • . 4 H <♦ 0 . , * H 50., AH 60., 

$ Ah 70., AH 80 • • AH 9 J • • AH i 00 • • AH 1 l 0 • . 4 H l<i J . • A ti l 50 , • A H l A0 • • A H l 5 0 • / 


01 0 l 76 
01 0! 77 
Cl C 1 78 
010179 
010180 
A A 7 I 0181 
C l 0 182 
Cl 0 l 63 
0 l 0 l 8 A 
010185 
010186 
01 0 t 87 
Cl 01 88 


CALL 

R jETMG 

( AMOUc i 

C l 0 l 89 




010190 

CALL 

St T S.MG 

( AM OUt. • 1 <* • l • ) 

010191 

< ALL 

ut_ T SMG 

( AM OUt .20. 1 . ) 

01 C l 92 


p 0 • 0 » 0 • v* , l , 0 * 0 , 9 9 ) 


-LSE FULL 5PACE FUk oCx A N J 1 i T L I NO . 

(AIL OrtJCTo ( AM DDL* ) 

CAl.L SUtTJtG ( A 4UJE • O . , 0 • • l . . I • ) 

-BOX 1HE C-K1U. 

CALL EUXC ( AMOiic .0.0 *0.0 .0 . C . I . 0.0 • ' 

-INCREASE CHARACTER biZL. 

CALL SL 1 SM*j ( AMUi>t . A 5 , l . 5 ) 

- it T CWlf.MATlUN A T 90 jLuRlcS, 

CALL Se’TSMG ( AMOUc » Ac- , vO • ) 

-LAOEL Y-AXIS. 

CALL LcGNDG {Ai'lOUt: ,0 ,0o . 0.36. 26.2oHAi«PL I TJJu XAl IJ (J ECIOELS)) 
-RESET ufj lENT A r I UN LAoclL. 

CALL SKTSMG ( A MUOt . Ac . 0 • ) 

-LABEL X— AX U • 

CALL LtCiNjvp (AMUUc.O.A.O.Jfat l l J. ISHPHASE (D-tiKmoJ ) 

-PUT CN TITLE. 

CALL LEG NOG < AMOJL * O • 2 . 0 • 0** . 60 • T I TLE ) 

CALL LlGNJo ( AMOOe. 0 . -*u. U.94 ,7 , 7HN ICHOLS ) 

-PUT CN AOjiT IGNAL JllLiNo. 


010193 
01 0 1 9 A 
Cl 0195 
010 196 
010197 
01 O 1 96 
01 01 99 
Cl 0200 
C 1020 l 
010202 
010203 
0 l 0 20 A 
010205 
01 0206 
01 0 2C 7 
010208 
010209 
010210 
010211 
010212 


CALL 

Sc r SMG 

( AMODc » # 1 • 25 ) 

01 021 3 

CALL 

L i N E S G 

( AMO Jc .0 » u .ub.0.02 ) 

010214 

CALL 

T t_ X TG ( 

AMODE .8 . 1 kUhiSiU ) 

010215 

CALL 

TiiXTG ( 

AM C.TOE * 6 . iUATE) 

010216 

CALL 

L I NESG 

( AMOOt .U.J.J.0.02) 

010217 

CALL 

TcXTG ( 

A MODE • 6 , UN A Me ( 1 ) ) 

Cl 02 18 

CALL 

1 c A Tlj ( 

A MCiUd • c • ONA.4t( 2 ) ) 

010219 

CALL 

T h X T G ( 

AMODE ,6 . UNA ME ( 3 ) ) 

01 0220 

CALL 

St T SMG 

( AM OJE , , 1 • ) 

010221 

010222 

s: t 

LIMITS F 

OR OSJt.LT SPACE. 

Cl 0223 
010224 

X l = 

0 . 1 


010225 

X2 = 

C . 98 


010226 

Y l = 

0.12 


010227 

Y2 = 

C . 9 


010228 
01 0229 

C ALL 

ou jc r g 

(AM0JE.Xl.Yi.X2.Y2) 

010230 

010231 

ESTABLISH l>Ul 1JECT oPACt. 

Cl 0232 
010233 

CRL 

= bAVEOl 

1 ) 

010234 

CO 2 C 1=2, .< S A V E 

010235 
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non 


c 


c 

c 

c- 

c 

c 

c 


c 

c 


c 

c 

c 


c 


2C COL = AMINI (DdL . 5AVL0 ( l ) ) 

IF (COL .Lt. DOM IN) D8L = DOM I N 
COU = JBL 100. 

I5Y = (CbL *■ 200 • ) / 1 0 • + i. 

CALL SUBJlG (AMODL.-iA-0.tDdL .260.. DOU) 

CALL GKICG ( AMOOE . 10 . . 5 . .4 , 2 ) 

NOW PAVE CARTESIAN GRID. 

PUT CN TITLE AND LABELS. 


CALL L A8ELG (AMGDE.0.40. . J . 

1 33H2 402 80 32 0 0 40 dO l 20 1 6 0200 2402 d U ) 

CALL LABELS ( AMOUt. .1.10. .4. D0T ITL( ISY) 1 

KCFH = C 
PDFHI= 0.0 

- KG W PAVE bklO.TITLh. AND LAdCLS. 

CO 1 4d0 I=l.KSAVt 

CPHI = SAVEP ( I ) 

CHEL L = SAVED ( l ) 

IF (I . G1 . I ) GU TU 1 40 0 


FIRST PClNT 

IF < CPH I .GT. 22 5.) OPHl = OPHl - 360. 

IF (CdcLL .LT. DBL .OR. UDELL .GT. DBU) oJ TJ 142-J 
C 

C POSITION BEAM (AND WHITE FREQUENCY ON GRA-»r1) 

C 

CALL LINESG ( AMUDt . 0 . O PH I . vdtL L > 

GO TC 1460 
C 

1400 IF (CPU! .GT. 225.) L-PHI = uPHi - 360. 

1420 IF (CBELL .GT. DDL .AND. DrtELL .LT. DBU ) oO U 1430 

IF (KUPh . No . 0) oU TO 1460 
1425 KOPH = 1 

GO TC i 460 

' l 4 3 C IF ( KCPH .£Q. 0) GU TO 1440 
KOPH = 0 
GO TC 1450 

1440 IF ( AdSCPDPH I-DPHl ) .LT. 330.) GO TO 1470 
1450 CALL LINESG ( AMODE ■ 0 iPPH 1 . OdtLL ) 

GO TC 1460 

1470 CALL LIN6SG (AMuOt.l .OPH I ,l)btLL ) 

14 3 C PD PH I = DP Hi 

CALL RShTMG ( AMODt. ) 

CALL PAGEG ( AMODE . 0 • 0 . 1 ) 

C 

RETURN 

END 


Oi 0236 
01 0237 
010238 
010239 
01 0240 
010241 
010242 
010243 
010244 
010245 
010246 
01 0247 
010248 
010249 
010250 
010251 
010252 
01 0253 
010254 
010255 
010256 
01 0257 
010258 
010259 
010260 
010261 
01 0262 
010263 
Cl 0264 
01 0265 
010266 
01 0267 
010268 
010269 
01 0270 
C 1 027 l 
010272 
Cl 0273 
010274 
010275 
010276 
010277 
010278 
01 0279 
010280 
010281 
010282 
01 0283 
010284 
Cl 0285 
010286 
01 0287 
010288 
010289 
01 0290 
010291 
010292 
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n n 


subroutine nyplot { t i tll • ah in * a.max ) 

C DEBUG 0 91 

REAL*d 1RUNNO, I GATE 
REAL < d UNAME. TITLE1 , T i TL E 2 

SUORCLTINC PLOTS AR VS. DPhI ON A POLAR GRID. 

C 

c 

C SUdRGuI INL ARGUMENT DESCRIPTIONS 

C 

C TITLE = INPUT ALPHANuMLR 1C TITLE. 

C 

Cl MENS! CN T 1 TLfcE ( 1 > 

COMMON /LSTART/ [RUNNU, 1 i>A IE « NPAGE 

CC VMCN /\ >TR T 1 / UNAME { 3 ) * 7ifLEl(l2), TlTi_S2ll2J 

CGWMCN /PS TUFF/ 

* SAVEOiSOO). SAVEP<500). SAVED(^OO). SAvlA(SOO). KSAVE 

CC MM C N /L2MODE/ AMuDt<200> 

C 

CALL RSfcTMG (AMODEJ 

C — c 5 E Full space fur bux and titling. 

CALL SuTSMG (AM UJ c*19* i. ) 

CALL SETSMU ( AMUOc .20. 1 • ) 

CALL CLiJCTG ( AMU JE .O..O..l«»l«) 

CALL SJdJEG ( A MODE .0..0..1..1. ) 

C EC X THE GRID. 

CALL EGXG ( A MODE . J • 0 . 0 • 0 • 0 • O • 1 • 0 • 0 . 0 • 0 • 0 . J • 9 9 . 1 • J . O • 9 9 > 

C INCREASE CHARACTER S l ZL . 

CALL SET5MG ( AMUDE • 4 i> • 1 . £ > 

C p UT CN nyoUIST TITLE. 

C A LL L t- G Nb G (AM0Uc.i0«4c»0«9o» 1 3 • 1 JHNYQJ 1 ST ) 

C. PUT CN T ITLE . 

C 

CALL LEG NOG ( AMOUc .0*2.0 .09.60 • TITLE) 

C 1 I JLE X- AX IS . 

C 

CALL LEG NOG ( AMUOfc • 0 . 4 • 0 . 06 . I 5 . I 5HPHASE (UEjREEs)) 

C TITLE Y-Axis. 

C 

CALL SET S M G ( AMOJL iH *90 . ) 

CALL LEG NO G ( AMOUE . 0 . Do . C . * . 9 . ShAMPL I T UUEJ 
CALL Sl. T SMG ( AMODt . 4 o . 0. 0) 

C 

C PUT CN ADDITIONAL TITLING. 

CALL 2C T S M G ( A M G J L • 4 S • l • 2 6 J 
CALL LINCSG ( AM UOE.O *0 . 0 b ♦ U . 0 2 ) 

CALL IEXTG ( AFiUUL .b.IRUNNc) 

CALL TtXTG ( AMCUE. o. I JATw> 

CALL LINESG ( AM UDE • 0 . 0 • 3 • 0 • <ic ) 

CALL TEXTS l AMUUE . 6* JNAMc U ) ) 

CALL TEXTS ( A MODE » G • UNAME ( 2 ) ) 

CALL TLX TO ( AMOUc. .6. UNAMEC J ) ) 

CALL SET SMC ( AMUUc • *0 • l • ) 

CALL RScTMG (AMODc) 

C 

C 6S t A 6 l ISP LIMITS. 

CALL PL J T S S ( AM A X .AM 1 N # K M A X * K M I N) 

IF ( PM I N . LT . 0 . ) RM 1 N = 0 . 

C. 

C 


01 0293 
010294 
010295 
010296 
01 0297 
01 0296 
010299 
Cl 0300 
010301 
010302 
01 0303 
010304 
01 0305 
010306 
010307 
01 0308 
4471 0309 
010310 
01031 1 
Ci 0312 
010313 
Cl 0314 
010315 
010316 
01 031 / 
010318 
010319 
010320 
0 10321 
01 0322 
010323 
010324 
010325 
01 0326 
01 0327 
010328 
01 0329 
01 C 330 
C l 03 3 1 
01 0332 
010333 
0 10334 
01 0335 
Cl 0336 
01 0337 
Cl 0338 
010339 
01 0340 
01 034 1 
01 0342 
010343 
Cl 0344 
010345 
010346 
010347 
010348 
01 0349 
010350 
010351 
010352 
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u u 


c 


c 

c 


c 

c 

c 


c 


1 1 


c 


c 

c- 

c 


IF (hMAX .to. RMINJ RMAX = HMlNflO. 

TM AX = 3 £0 . 

TMIN = 0.0 


St T CcJJECT SPAGt. 

CALL SETSMG C AMOUt , 19 • 1 . 33353 ) 

CALL SETSMG ( AMOUtt20 t 1 . > 

CALL UbJCT^ (AMOOt ,0.3 tu .25 . 1 . 0* 0. 95 > 
CALL PGUfcJo (AMUOttKNSl N* TMIN# RMAX* TMAX ) 


PUT CN GPIO LINES* 


CALL StTSMG < AMODE t 1 4 , C . 00 ) 

CALL StTSMG ( AMUOE t 4 S » l • 00 ) 

CALL Pot TO l AMUDE *0. UJ . U i ♦ I DTH . I 1 TH.DLD »l)Li 


CO 1C 1 = 106* 109 
AMODE ( 1 ) = 0.0 

CALL PoPIDG (AMUOc.UO.Ol ,luTH» I iTHI 
CALL PL A EL G < AMUDE • J t OLD • 0 • f M T D ) 
CALL PLAfcLG ( AMUDfc • l . OL I . 0 . f M T I > 


CO HC 1-ltKsAVE 
P = SAVE A ( L i 
T = S A V LF ( I ) 

IF (I . GT . 1 ) GO TO 19 


FIPS! PC I N T 


IF ( F .LT. RMIN .Ok. R .GT. kM AX) GO TO 


, f m i j • f m r i ) 


POSITION UtAM 

CALL PL1NEG ( AMUDE * 0 • * . T ) 

CO TC dC 
19 COM INUE 

2C IF (F. GT. RMIN .AND. hi .L T . k MAX ) GO 10 3J 
IF ( KUPH .NE . 0 ) Gu TO 6C 
Ht KOPH - 1 

GO TC dO 

3 C IF ( KCPH .tu. 0) GU TO 7 0 
KCjPH = 0 
GO rc 5 0 

5 0 CALL PLlNtU (AMOOt tO f U t I ) 

CG TC JC 

7 0 CALL PLINlG ( AMUOt « l * k * T ) 

OC CONTI NJt 

CALL PAoto ( AMUOL • 0 • It 1 ) 

CALL Pot IMG (AMUOE) 

kt TUP N 
ENC 


0! 0353 
010354 
010355 
010356 
01 0357 
010358 
01 0359 
01 0360 
010361 
01 0362 
01 0363 
010364 
01 0365 
01 0366 
01 0367 
Cl 0368 
010369 
01 0370 
010371 
0 10372 
01 0373 
010374 
010375 
01 0376 
Cl 0377 
010378 
010379 
01 0380 
01 0381 
01 0382 
01 0383 
CIO 384 
01 0385 
01 0386 
01 0387 
010388 
010389 
01 0390 

0 1 039 l 
010392 
01 0393 
010394 
010395 
Ot 0396 
01 0397 
01 0398 
01 0399 
01 0400 

0 1040 l 
01 0402 
Cl 0403 
010404 
01 0405 
01 0406 
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SU ’iRCu l iNe. ft LPLCJ I l T 1 ILL . ISM IM • ICYC . IRLC ) 

C 01 DUG # 92 

ftL *u. « C i KUfv.NO , I UA I n 
».C*L*6 UNA ML* TITLcl. TITLE? 

C 

C SUOKCUI IMl PLOTS PL U r LuCl * UP A S&NuLE KujJ . 

C 

c SUOftOuTi.sL AkOuMENT T>ESCR I PT IUNj 

C 

C TITLE - INPUT ALPHA NUMuP 1C ! 1 TL E 

C IGNIM * INPUT POUT l ut.N lift ELATION PARAMETER. 

C ;l STARTING PUlNT IS UPON LOOP ZERO, 

C START I NO POINT 1 o UPC N LOOP POLE. 

L I C Y C s INPUT TRANSFLW EJNCTiUN COUNT (PLACcJ v >i PljT). 

C I PL C * INPUT ft Pci T LLLU:> lYCI.L NUVfJF.R (PUT J 4 P-JT) 

C 

c 

OlMCrSICN TlTLE(l). A ( SO j ) . Y(bOO) 

Cl MEhS ICN t OR ( 99 ) 

CL ViMCN /LZ<T«jL)E/ A t_ ( 2 0 0 ) 

COMMON /P STUFF’/ 

* Sa VlO( 'jOO ) • SAVlP(SOO). 5AVEJI jOO) i SAVcA(5CC>t KSAVE 

CLMMCN /LofART/ I RONNu i IDAlfc. NPAGE 
CCIMMCN /LSI ft T 1/ UNAMC(J). TIlLfcK U) , HTu^Ui) 

C 

EQUIVALENCE ( S A V LL< 1 ) • X ( l) ) • { S A VfciP ( 1 ) ♦ Y ( l ) ) 

CATA loR / 

1 2H 1 « 2H «.*2H J.2M 4.2k 5 • 2H 6*2.1 / • *: 1 d*«:H 9 • 2H 1 0 • 

2 2H l l * 2H 12, 13* 2H l <*, 2Hl5.2Hl6.2iil 7* >11 d. 2119* 2H20* 

3 2H2 l . 2niic . 2H2 J *2H24 , 2H25 . 2H2 6 ,2H2 7 » 21 2d • 2H 29* 2H3 0 * 

4 2HJl.2H32«2ii_3,2R34*2hJ5* 2H36 • 2:1 j 7 * 2 H J d • 2 Hu 9 • 2H40 * 

5 2H4l,2h42*2r»'*3*2r»44*2h45* 2H4 6 • 2l<* 7, 2H‘*o*2ri < 49* 2H50 • 

fa 21 1 5i *2Hs*.*2Hb3*2Hs4 »2.H 56* 2H5 6. 2l ;> 7 • 2 l3d.2Hd9, 2 M6 0 * 

7 2H61 • 2H62, 2 HoJ ,2H t4 , 2H65 • 2H6 6 • 2rlo 7,2Mi>d,2Mo9*2N70* 

8 2H 71 * 2H72* 2H/J ,2h 74 , 2h7S ,2H76 *2 m 7 7 , 21 /o, 2M79, 2H60 • # 

9 2Hc3l.2H62*2Hod*2H84*2H65* 2H6t> * 21 d 7 * 2 Id d * 2H 69* 2H90 * 

A 2H9 l • 2H92. 2.193 *,2H94 , ?H9S • 2H96, 219 7 . 2193 . 2H99 / 

C 

KSAVE = KSAVE - 1 

c: 

CALL R3ETMG (AMUUc ) 

C ju Gx CftlU AND PUT ON EXTRA TITLING LSING Fj^l j j 4Lc. 

CALL aCTSMo ( A.MOUt . 1 9 * 1 • ) 

CALL SET EMU ( AMiJOt * «: O * 1 . > 

CAlL Gt» JC T G ( AMUuE «0«*J* ) 

CALL SJtiJLo ( AMODt * 0 • ♦ 0 • • 1 • . I • > 

CALL dCXG ( AMOut • C • 0 • C • • 0 • * I • •0««0.*.59*l • *0*99) 

C 


C INCREASE CHARACTER slZti 

CALL Sc T SMS ( AM JOE • 4 b • I « S ) 

CALL L t_ G Kl/ G ( AM OuC *U*4 l j* 0*94* 1 3* 10 HR OUT LJ^US) 
C 

C ADC IT ION AL T I TL I N<j 


CALL Sc T SM u ( AMODt .<*3 . 1 • 2u ) 

CALL LiNESG < AMODc . 0 * O .05, 0 .02 > 
CALL TcXTo ( AMODE. 6* l ftUNNU ) 
CALL TEXTS ( AMQUE . 6 • l O A Tfc ) 

CALL LiNESG (AMCDE.O.U. 3.0* 02) 
CALL TEXIG ( AM(JDL,t> *UNAMC ( I ) ) 
CALL T i_ X T G ( AMUDt. o .UNAMt ( 2) ) 


010407 
Cl 0406 
01 0409 
01 04 V 0 
C 104 1 l 
010412 
010413 
010414 
01041b 
Ct 04 1 6 
010417 
010418 
010419 
01 0420 
0104? I 
Cl 0422 
010 423 
4721 0424 
Cl 042b 
010426 
01 0427 
4471 0428 
010429 
C l 0430 
010431 
01 0432 
01 0433 
Cl 0434 
010435 
Cl 0436 
01 0437 
01 0436 
01 0439 
010440 
Cl 044 l 
Cl 0442 
01 0443 
Cl 0444 
010445 
01 0446 
01 0447 
01 0448 
01 0449 

0 10450 
010451 
010452 
010453 
010454 
01 0455 
010456 
01 0457 
010458 
01 0459 
010460 
010461 
Cl 0462 
C t 0463 

01 04t>4 
010465 
010466 
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(ALL T l: X T 0 ( AMOL)L . L> . U NA Ml. ( 3 ) ) 

CALL LINESG ( AMGDL.O .0 .6 .0 . Oo > 

CALL T c X T G ( AV.UOE , 7 • 7n l C YC = ) 

CALL IcXTo ( AMODc • I^R( ICYL) ) 

CALL LI M:Ss ( AMOOt • 0 • 0 .6 *0 . 02 ) 

CALL IV. ATS ( AMUOE » 7 • 7;l l RLC = ) 

CALL TuXFu ( AMG.JE •* . lslt( IPLC) > 

C 

C IITLE l MAS AXIS GN kHS . 

L CHIcMATE LAbtL AI 90 OtGRcES. 

CALL SEISMS (AHUOEi*»6.90.) 

CALL LEG NOG ( AMUOt • 0 . 96 . 0 • A * » l 4 , 1 A H I MA G I Y J Ar<|) 

CALL St.TS.Ms ( A MODE »4o • U « ) 

C 

C LSlAtLlSH LIMITS CN DATA. 

C 

XM IN = X ( l ) 

XMAX = XN I N 
VM IN = Y { l > 

Y M A X = Y M 1 N 
C 

CO 1C 1 = 2. KSAVtr 

XM I N = AM1N1 ( XMlN.Al I i ) 

XMAX = A MAX l ( XMAX .A 4 1 ) ) 

YMIN - A M I N 1 (YtMlN«Y( 1) ) 

10 YM AX = AMAX1 ( YMAX • Y< 1 ) ) 

C 

C Sc T LP SUOjlU SPA CE. 

CALL PLCTSS ( XMAX , aMI N, X TUP. XBOT ) 

CALL PLClsS (YMAX,YMiN»Y!UP,YnCT) 

CALL JUdJtG ( AMUDfc.XtoUl • YliLil , XTGP , YTCP ) 

C 

C--CCMPUTE ARGUMENTS TO OSE IN GkiDG AND LABELS. 

C 

CALL jLTLPs (AMUDE. I .UX.uY. UTH, JYTH.OLX.JLY »X £ MT . YFMT ) 
C 

C--RESET GMD MARGINS TO 0. 

C 

CO 6 C l = l JO. 109 
6C AM CD E ( I ) = 0 . 

C 

C OR A a THE GRID. 

C 

CALL GRIDS ( AMOJE.DX. JY. IXTH, J YTH) 

C 

C NGte LABEL IT. 

C 

CALL LABELS ( AM U'Jc.J.OLX.O* XF M T ) 

CALL LABELS ( AMUOE. I ,DlY • J • YE MT ) 

C 

C NEXT , T I f L t If. 

C 

CALL TITLES ( A MODE .9.9NREAL PART. 

1 O.DLMTLE, 

2 cO. TITLE) 

C 

C LSE TEXTG TU INDICATE STARTING POINT. 

CALL LINESG ( AMODL • 0 • X ( 1 ) • Y ( l ) ) 

IF ( ISN1M «EU. 1) CALL TEXTS ( A MOD E . I . I HO) 

IF (ISNIM .LQ. 2) CALL TEXTS ( AMCDE .1.1 HX ) 


01 0407 
010466 
01 0469 
010470 
010471 
C l 04 72 
010473 
010474 
Cl 04 75 
010476 
Ot 0477 
Oi 0478 
01 0479 
Cl 0480 
0 104QI 
010482 
01 0483 
010484 
01 0485 
010486 
010487 
01 0488 
01 0489 
01 0490 
010491 
010492 
01 0493 
01 0494 
01 0495 
Cl 0496 
010497 
010498 
01 0499 
0 1 C 50 0 
010501 
010502 
010503 
0 10 50 4 
Cl 0505 
01 0506 
01 0507 
01 0508 
010509 
010510 
01051 1 
010512 
01 0513 
Cl 0514 
010515 
010516 
01 C51 7 
010518 
010519 
010520 
010521 
010522 
010523 
01 0524 
010525 
010526 
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C 010527 

C FLCT IhE LuC I • Cl 0528 

C 010529 

CALL HNE5G ( AMUDc .KsA VL .A , Y ) 010530 

CALL LINES\j ( AMUJc . K 5A VL .X , Y) 010531 

C 010532 

C PAGE Ti-iE h'k AMt. 010533 

C 010534 

CALL PAGEG ( AMOOL.C.O. I > 010535 

PE IUFN 01 0536 

tNC 010537 



SUEPCUl INE GCALEIAMAX, AMIN, 

NSO . AU. AL , S ) 


01 0538 

c 



DEBUG « 93 

010539 

c 




01 0540 

c 

A,VAX=NA> VAL^t ru UE PeUTTED 



01054 1 

c 

AMIP-MIP VALUE TO BE PLLTTED 



Cl 0542 

c 

PSUsNLMEEk CF MAJOR GK103 = 10 

Oki NEPALLY 


01 0543 

c 

AL-COMPC T u U UPPER SCALE LIMIT 



010544 

c 

AL'COUPU'tU LOlnEK SCALE lIMII 



01 0545 

c 

S=SCALt FACTOR PLR MAJOR uR iu 



01 0546 

c 




010547 


FNEO =i\SU 



010548 


AL -0 . 



01 0549 


IF ( A N AX . C-T . AMIN) uu Tu 13 



Cl 0550 


AM IN -AM 1 A— 5 • 



010551 


AMAX =AMAX+ j. 



010552 


lj AO IF =AM«X-AM IN 



010553 


co i i-i ,00 



010554 


CO l J- 1 ,J 



01 0555 


T=2 . * * I J-2 ) *FNSO*. i 



01 0556 


IF 1 AC 11 ,Ll . T * 10 . **( I- J3 ) ) OC TO 2 


010557 


l CUNT iNUt 



010558 


2 S= 1 * 1 0 • * *1 l- Jo > /f N3(j 



010559 


If(AMN) J .7 . 4 



010560 


2 AL=AL-5 



Cl 0561 


it (al-amin) /. 7. 3 



010562 


4 AL-AL+O 



010563 


I f ( A L - A M I N ) 4*7.0 



01 0564 


t AL-AL-3 



Cl 0565 


7 AU-AL 4 4»*FN.jO 



010566 


i F (AC •v»i£ • A i*l A X ) GU I o 1 1 



01 0567 


IF ( J • L f • J ) oU TO 10 



01 0568 


J= 0 



010569 


1=1+1 



01 0570 


10 J= J+ 1 



010571 


I = c • * *{ j-2)*TNSU** i 



01 0572 


AL = 0 . 



-C l Oa-73- 


GO TC c 



010574 


11 AL = AC- i 0 



Cl 0575 


Mr TUF-N 



Cl 0576 


lNC 



01 0577 


B-187 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUQRCUTINE PLOTSS IYMAX1N.YM1NIN.YT0P. Y30T) 


SLQPGIT INc 5C.Lfc.CT S PLuT JPPfcR AND LG W ER LIMINT FDR A 
LINEAR PLOT GRID. 


DEBUG * 94 


10 SQUARE 


-SU8RUUT INt ARGUMENT DfcSCR I P Ti u nS - 


YMAXIN = INPUT MAXIMUM VALUE Tu BE PLOTTED. 

YMMN - INPUT MINIMUM VALUE TO HE PLOTTED. 

ytqf = output upper grid limit. 

YtCT = OUTPUT LOWER GRID LIMIT. 

CATA NUT/ 6 / 

YMAX = YMAXIN 
YMIN = YNIN1N 


NERROR = 1 


YMAX = 1.001* YMAX 

YMIN = 0.999*YMIN 

C-0 TC 15 

13 YMAX = 0 .9 99 * YMA X 

YM IN = l .ODl * Y M I N 
15 IF (YMmX . NE • 0.0) GO TO 21 
YMAX = + C.3 

YMIN - -C.3 


VALUE - ( YMAX-YMIN) / l 0 . 

IF (VALUE .LT. ABS( YMI N/ 100000 .) ) GO TO U 
CO 22 1=1,00 

DO 2 2 J = 1 . 3 

SCALE = 2.**(J-2> * 10. **(1-33) 

IF. (SCALE .GE. VALUE) GU TO 5l 


23 


2 l 


NERROR - 2 


GO TC 




3 *? 


3t 


NS1EFS = YMIN/SCAlc 
YBCT = FLOAT ( NSTcPS) *5CALE 
IF (YMIN) 34 . 38. 30 
YBGT = YEOl-bCALc 
IF (YBGT .LE. YMIN) GU TL 38 
GO TC 33 

YBCT - YEUT+SCALt 
IF ( YduI-YMIN) 35.38,37 

37 YBGT = YEOT- SCALE 

38 YT OP = YBGT* 10 . *SCALE 

IF ( Y TOP • oL • YMAX) Rc TURN 
IF ( J .LT . 3 ) GU TO 39 

J = C 
I = I * l 
J = J ♦ i 

SCALE -= 2.**(J“2) * ID. **(1-33) 
GO TC 32 


25 


995 WRITE ( MT .2001 ) NERROR 

200 1 FORM T (5X.49HEkRUR ENUUUNTLRCD IN SU13ROUT l Nt PLUTO;,. NERROR * 
* /.5X, 16HPKOURAM Gl UPPED. ) 

ST CP 
END 


Oi 0578 
01 0579 
Cl 0580 
01 0581 
Cl 0582 
Cl 0583 
010584 
Cl 0585 
01 0586 
Cl 0587 
01 C588 
010589 
01 0590 
Cl 0591 
Cl 0592 
010593 
010594 


IF 

(YMAX 

• LT . 

YMIN) 

GO 

TO 

999 

01 0595 

IF 

( Vf'rtX 

.GT • 

YMIN) 

GU 

TO 

2 1 

01 0596 

1 1 IF 

{ YMAX 

.LT • 

0.00) 

GU 

TO 

1 3 

01 0597 


13, 


010598 
010599 
010600 
C 1 060 1 
010602 
01 0603 
Cl 0604 
010605 
Cl 0606 
Cl 0607 
01 0608 
Cl 0609 
010610 
010611 
010612 
010613 
010614 
010615 
010616 
010617 
Cl 0618 
010619 
01 0620 
01062 1 
010622 
010623 
010624 
01 0625 
Cl 0626 
010627 
010628 
010629 
Cl 0630 
010631 
010632 
010633 
Cl 0634 
010635 
010636 
Cl 0637 
01 0638 
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SUEMC 

J I I Ft A I.PH A A t ALPHA *m, X.NR .NC *KH) 


010639 

C 



UhbUG ft 

95 

010640 



I M PI. I Cl T KL 4L*d< A-n, C- Z ) 


010641 



C 1 VLN 

al ilF AT Kk *1). Z ( K K « 1 ) 


010642 

c 





01 0643 

c 

SCALAR t LP h. A TIMES MATRIX A* (ALPHA 4 A = Z ) • 


01 0644 

c. 

M AT R 1 CL S 

A * Z may SHAKE SAMti ULUii LOCATIONS* 


01 0645 

c 

CC.OEU ; J > 

RL wUHLCN. FEBRUARY 19c 5* 


0 l 0640 

c 





0 10647 

c 


SUCHCUT Ui; AflGUMENIS 


01 0648 

c 

ALP F A = 

input scalar. 


01 0649 

c 

A 

- 

input MATRIX* SlZc(NR.NC). 


C l 0650 

c 

Z 

•= 

CJTPUI RESULT MATRIX. SIZE (NR, NC ) • 


01 065 l 

c 

NR 


INPUT MUM OCR uF RO*S IN MATRICES A»Z. 


010652 

c 

NC 


INPUT NUMBER UF CULS IN M AIR ICES A.Z. 


C 1 0653 

c 

k R 

- 

INPUT ROW DIMENSION Lh A*Z IN CALLING Pku.jRAM. 


0 1 0654 

c 


LU l C 

I = 1 . NR 


01 0655 
010656 



CO 1 c 

J a l . NC 


010657 


1 0 

2 ( l • J 

) - ALPHA * A ( i , J ) 


01 0658 



Ft; TURN 


01 0659 



fcNG 



Cl 0660 


SUERCLTINL UAuT < A .8 . Z . NkU , NC3 , K A , KB ) 

C OE BUG * 96 

IMPLICIT KLAL*d( 4-H* 0- A ) 

Cl ME NS I CN A ( K A , l ) . HUn. U, Z(KFf.l) 

C.CMMCN /LWRKVl/ W(IOO) 

C 

C SPECIAL TRIPLE MATRIX HkJuULT. i) * A* 0 ( T RA NSPG., c ) = Z. 

C A MIST Cfc£ SYMMETRIC TO vitl CuKRe'CT AMSWtR. 

C 2 vulLL e.L SYMMETRIC* UPPER HALF CALCULATED* K»rL-C T L D T u LOWER HALF* 
C THE MAXIMUM SIZE i S 
C -NCG * aOC 

C 12 6 V ELOPE 0 3 Y CARL BuwlLV# JANUARY 1965. 

C LAST KEUilCN UY KL KCjHLlNU JULY 1972* 

C 

c suercutim: arguments 

c a -- INPUT INNER MATRIX. Si Z L < NC c * NCB ) • 

CL = INPUT OUTER .MATRIX* S l A L< NR fi . NCO ) . 

c z = output result matrix* s i aE ( nrc1*nrh) • 

C Nf-U = INPUT NUMBER OF ROWS OF MATRIX 8. SIZE Ur MATRIX Z. 

C NCO = INPUT IMU MCC*R OF COLS OF MATRIX B* S I ZE OF MATRIX A. MAX^SOO • 

C KA = INPJT RUW OIMENSlUN LF A IN CALLING PkjGKAM. 

C KB = INPUT ROW DIMENSION OF b.Z IN CALLING PkuokAM. 

C 

C 

CU *C J-l.NRB 


01 0661 
010662 
Cl 0663 
01 0664 
48 C l 066b 
010666 
01 0667 
010668 
010669 
Cl 0670 
010671 
010672 
010673 
010674 
Cl 06 75 
01 06 76 
01 0677 
01 0678 
01 0679 
01 0680 
010681 
010682 
0 l 0683 
010684 
010685 
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CO 2 C L = liNCa Cl 0686 

S = C.iiO 010 68 7 

CO 1C X- I • NC 3 010688 

l 0 £ = £ *• AIL ,K) *fa( J.K) 01 0669 

20 ML) - S 010690 

CC 4 C l = 1 . J 01 0691 

£ = ( .DC Cl 0692 

CO 3C L=1.NCB 010693 

30 £ = £ <• B(I,L)*te(L) 010694 

Z( I . J ) = o 01 0695 

40 Z< J . 1 > = 6 01 0696 

PC TURN 01 0697 

END 010698 


£ueRCUTINE MULTfa 1 A , UZ ,NR!A , NRG , NCO . K A , KOZI 01 0699 

C DEBUG # 57 010700 

IMPLICIT RLAL*o( A-h, 0-2 ) 010701 

CIWEPS1CN A( KA, 1 ) ,hZ(KRZ .1 ) 010702 

CC.MMCN /LwRKVl/ WliOOl 48010703 

C 010704 

C MATRIX MOLT I PL ICATION. A * fa = Z. C1 0705 

C USES TWC WORK SPACES. HtiULI Iz) IS PLACED 1.4 u> . 010706 

C EZ MUST llfa DIMENSIONED LARGE t NUU GH IN MAIN P7UGRAM IU CONTAIN THE 010707 

C LARGER CF fa Uk Z. C l 0708 

T PE MAXIMUM SIZE IS 010709 

n Pa = sco. oio7io 

010711 

SUBROUTINE ARGUMENT DESCRIPTIONS 010712 

010713 

A = INPUT MATRIX. SIZfc (NKA.NRU). 010714 

C ez = INPUT MATRIX. SIZt lN.R3.NCt3>. 010715 

C - CcTPUT result MATRIX. SIZE INRA.NCJ). 010716 

C NRA = INPUT NUMBER UK RewS UP MATRICES A.Z. 010717 

C NRH = INPUT NUMBER Cl- ROWS GF MATRIX 0, COLS uF MATRIX A. MAX = 010718 

C NCG = INPUT NUMBER GF C CL 5 OF MATRICES 8, L . C10719 

C KA = INP'UT ROW U 1 MENS 1 ON OF A (N CALLING PROGRAM. 010720 

C KEZ = INPUT ROW DIMENSION UF fa Z IN CALL I 4 a P*U»KAM. 010721 

C 010722 

CO 4 C J = l.NCO 010723 

00 20 K-l.NRO 010724 

20 MK) = OZ(K.J) 010725 

CO 4 C 1 = 1, NRA 010726 

£ = C.DO 010727 

CO 3 C K = 1 # NR fa 010728 

3 0 £ -= £ + A(l,K)*W(<) 010729 

40 6Z ( I . J ) = S 010730 

C 010731 

RETURN 010732 

ENC Cl 0 733 
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SUBHCUl IM; REV ADO I AL PH A . A . I VE C . J VE C . Z . NRA . NCA . NHZ . NCZ . KRA, KRZ > 

C 

C DEBUG B 98 

IMPLICIT KEALfBl A-H. O-Z ) 

CIMENS1CN A(KRA.l). IVbCIll. JVECIII. ZIKRZ.1I 

REARRANGE ANU ADO RUwS AND COLUMNS OF ALPHA * MATRIX A INTO 
MATRIX 2 . 

UE SURE MATRIX Z IS ULFINEO BEFORE CALLING Till a SUBROUTINE. FOR 
EXAMPLE. L ALL ZERO TU CLEAR MATRIX Z. 

SUBROUTINE arguments 

ALPHA = INPUT SCALAR THAT MULTIPLIES MATRIX A. 

A = INPUT MATRIX TO tlE ARRANGED AND ADDED. S i Z L ( NR A . NC A ) . 

IVEC = INPUT VECTOR. SIZclNRA). 

I VEC ( I ) = RC* POSITION OF At ROW l) IN Z. 

IF IVECIIl IS' PLUS • Z= Z ( ROW IVcCI I 1 I FALPHA*A(ROW I). 

If IVEulIl IS MINUS. Z=Z(ROW W lL( l I I-ALPHA4AIR0W I). 

IF IVeCIIT IS ZERO . AIROW l> IS UMlTlc.0 IN Z. 

JVEC = INPUT VECTOR. SizE(NCA). 

JVEC ( J) — COL POS1IICN OF AICOL D) IV Z. 

IF JVECIJI IS PLUS .Z=Z(COL JVElI J ) ) »ALPHA*A(COL Jl. 

IF JVLLIJ) IS MINUS. Z=Z(COL JVuCI J ) J -ALPHA* A< COL J). 

C If JVEC(J) IS ZERO • AICOL J) IS uMt TIED IN Z. 

C Z = INPuT/UUTPUT MATRIX lu WHICH ALPHAWA IS ADDED. S I ZE ( NR Z . NC Z ) . 

C NRA = INPUT NUMBER OF RUWb IN MATRIX A. 

C NCA = INPUT NUMOcR OF COLS IN MATRIX A. 

C NRZ = INPUT NUMBER of rows in MAIRIX z. 

C NCZ = INPUT NUMBER OF COLS IN MATRIX Z. 

C KFA = INPUT HOW DIMENSION OF A IN CALLING PROGRAM. 

C KHZ = INPUT ROW DIMENSION UF Z IN CALLING PROGRAM. 

C 

DO JC 1A=1.NRA 

IZ = lAoSl IVECI I A ) ) 

IF (IZ .LO« 0) Go 10 SO 

DU z; J Ac l , NCA 

JZ = UUSlJVtClJAH 

IF ( a Z .ED. 0) Go TO Zb 

SIGN = F I .DO 

IF ( I VEC ( 1 A) .LT . 0 .AND. J V E C I J A ) . G T . 0 .OR. 

* IVL.C l 1 A) .UT . 0 .AND. JVEL ( J A ) .L r . 0) SIuN=-l.UO 

Z(IZ.JZ) = Z(iZ.JZ) F b l ON* ALPHA* A I I A , J A) 

2 E DC N T I N Ue 
0 0 CUNT INUE 
RETURN 
C 

LNC 


010734 
01 0Z35 
Cl 0736 
Oi 0737 
01 0738 
01 0739 
01 0740 
01 0741 
010742 
010743 
010744 
01 0745 
01 0746 
01 0747 
010 748 
010749 
Cl 0750 
010751 
01 0752 
010753 
010754 
010755 
010756 
010757 
01 0758 
01 0759 
010760 
010761 
01 0762 
01 0753 
0 l 0 764 
010765 
01 0766 
01 07o7 
010 768 
01 0769 
01 0770 
010771 
010772 
01 0773 
Cl 0774 
01 07 75 
010776 
01 0777 
010778 
010779 
01 0780 


Subplot i ni_ lire sp 

C DEBUG * 99 

IMPLICIT KC'AC*8l A-rl. u’-Z ) 

C 

C. SLUR CU r INC SuLVtS FUR THE LINLARl ZED TIME RE jZ UN S u . 

C TECHNIQUE LSi-S A RuNaU KJITA STARTER AND AN CUkRLLTCR 

C RECLKAS IVL FljKRULA FUR Trie 1 i ME SOLul IGN. 


C l 0 78 l 
010762 
01 0783 
01 0784 
01 0785 
010 786 
01 0 767 
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c 

C FCK OUTLINE OF PkUCEOURES USED HERE IN SEE VOL l.PAGE 85 

C 1 LINtAK TIME UUMA1N RESPONSE* 

C 

CCMMCN /KuslZE/ 

1 KR. KRf, KHX, KVI. KV2. KVa 
CCMMCN /LDS1ZE/ 

2 NX, NY. NOLTA, NXSS. NB , N J 3 . 4 Y 2 , N02 

CGF.MCN /TAPLNG/ 

4 Nurt. NOI2, Nun 

COMMCN / F 1 SC NO/ 

£ NUPRNT. NCPLOT 

CONMCN / LV 1 / 

C VI (100). V 2 (100), V 3 (100) 

COFNCN / VtCT OR/ 

£ Y (230), YS (250 ) 

CCMMCN / LaURKl/ 

F w 1 ( lOo. 100) « *2(100.100) 

CQ.VMCN /TlMtSSF 

G 5T. OT. I. LT , 1PST 

G 

C ASSUMES THAT *2 = A* UN ENTRY. 

C UM T NU13 * 1LU OE WRITTEN FUR PLOTTING 
C 

Cl MEKSICN PR K ( 4 ) ♦ YOS( 25C • 5 ) , YS(280) 

C 

C STORE V* IN YS, THEN lEKU Y. 

CO 2 C 1 = 1. NX 
* S ( I ) .= Y < 1 ) 

20 Y ( I ) = 0 .00 

FRK(l) = 0 .500 

PR K ( 2 1 = 1.00 - DSGk T ( 0 . 500 ) 

FRK(S) = 1.00 ♦ OSGHT ( O.SGO ) 

FRM <t ) ^ 0.500 
C 

NT = 0 
T = ST 
IM ST = 0.00 
IPRNT = 0 

I P L U T = C 
C 

FEW INO NEI 3 
C 

WRITE (NETS) ((*'1(1 ,J) .1 = 1, Kk ) ,J=l.KR) 

REWlNU NUTS 
C 

CON = 3. DO * UT/U.UO 

c 

CO 3 C 1 = I, NX 
CO 3 C J~ 1, NX 
Wl ( I , J ) = -CON** l ( 1 , J ) 

IF (j .tC. 1) Wl(l.J) = 1.+ *1(1,3) 

30 CONT 1NUE 
C 

CALL GAUSS! ( Is 1 , W2 . NX . KH ) 

RE A J ( N E T 3 ) ( ( V. I ( 1 . J ) . 1= 1 .K« ) . J= 1 .KR) 

RE '.VI NO NUT 3 
C 

CALL ZERO l V l , I .NX, 1 ) 

CALL ETERQL ( V 2 ) 


Cl 0788 
01 0789 
010790 
01 0791 
01 0792 
010793 
01 0794 
01 0795 
01 0796 
01 0797 
Cl 0798 
01 0799 
01 0800 
4261080 l 
010802 
4301 0803 
C 1 0804 
43210805 
01 0806 
010807 
01 0808 
01 0809 
010810 
01081 l 
47010812 
010813 
010814 
010815 
010816 
01 0817 
010818 
Cl 0819 
010820 
010821 
010822 
010823 
010824 
01 0825 
Cl 0826 
010827 
Cl 0828 
01 0829 
01 0830 
010831 
010832 
010833 
010834 
01 0835 
01 0836 
010837 
010838 
01 0839 
01 0840 
0 1084 I 
Cl 0842 
Cl 0843 
010844 
01 0845 
010846 
01 0847 
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c 


c 


c. 

c 


c 

c 

c 


CALL VlLTL ( «1 ,NX,Kk) 

zr. ic i - i • nx 

l C YDS! 1*1) = V 01 l ) 

LEE TPE Sl-K STAKTfcK# 

CALI. L**tiNT 
CALL LHLTWR 

l .) C CENT if\JL 

CO l c J J=1 .4 

J I L = J 

CC I I J 1=1 .NX 

i = >0 ( I ) * UT 

GO TC ( iCJ . *01 . 101 . 100) . JIL 

101 R = rt<K( JlL) * (2-Vl(l>> 

GO T C l C 7 

102 R - f-f'KC JlL) * 2 - Vlll) 

GO TC 10 7 

l C 5 R = K'l-c .UO * VI (l)) / o.JO 

107 V ( 1 > = Y ( I ) *■ R 

110 Vlll) = Vl(l) 4 3. DO * R - PHKUILI * 2 

IF (JIL *1.0. I .OK. JIL .LG. 3) T = T+ 01/2. JO 

CALL LTCROL (V2) 

12 0 CALL Y i J L 1 L (Wl,V2.V.YU.NX,KK) 


N f = NT + 1 
ANT - NT 
JMST = ANT * or 
T = £ 1 + TMiiT 

IPRNT “ 1PKN T + 1 

IF ( IPUKT .Nu. NOPkNT) Go TO 130 
CALL LPiJM 
IPRNT - 0 

l JC Cf’lNT 1NOL 

I PLOT - [PLOT ♦ 1 

(IPLCl .NE. N0PLJT1 oC 1 U 140 
CALL LPLTteK 
1PLCT = 0 

1 AO COM INUh 

CO ISO 1 = 1 . N X 
15 0 \ 0 S < I • M ♦ l > = Y0( U 

IF (1 .Lc. tT • ANu. N 1 .LT. 2) GC TO l OJ 

1 F6 ACAN5 CLNRLCTOR FUkMJLA 

CC = J 1 / 24 .DO 

Cl = CO * 9. JO 
C 2 - Cu * IV. DO 
C3 = -Cl * S.uO 
L4 a CU 


EST AEL l SH Y 
C 

200 CALL LTCRCL 
C 

C VI IS E *TlKNAL 
C 


AT ST LP NT 

(VII 

HlkClNo FJNCTICN FOR THE LINEAR jltM. 


01 034b 
01 0849 
01 0850 
01 0651 
01 0 8 52 
01 0853 
Cl 0854 
Cl 0355 
01 0/186 
01 0857 
010858 
01 0359 
01 0860 
Cl 0861 
Cl 0862 
010863 
010364 
01 0665 
01 0866 
01 0867 
01 0868 
01 0869 
01 0870 
01087 l 
01 0672 
01 0873 
010874 
010375 
01 0876 
01 0877 
01 0878 
01 0879 
01 0880 
0 1 088 l 
01 0382 
Cl 0883 
0 l 0884 
Cl 0885 
01 0686 
Cl 0887 
01 0888 
01 0889 
01 0890 
Cl 0891 
010892 
01 0893 
01 0894 
010895 
01 0896 
Cl 0897 
01 0898 
01 0899 
Cl 0900 
010901 
01 0902 
01 0903 
010904 
01 0905 
Cl 0906 
01 0907 
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CO 2 10 1 = 1 |NX 01 0 90 8 

?! I C V ( I ) = Yll) »C1*V1(1) y L2*YOS<1.3> *- C3*»0SU.2> * C4*Y0S(I,l) C10909 

CALL MOL 13 1 V*2. Y .NX, NX . 1 ,KR .KR ) 010910 

C C l 09 1 1 

C Kfcstr YCS FCk NtXT STtP . 010912 

C C10913 

CO 220 1-1. NX 010914 

YOS(I.l) = YOSI1.2I Cl 09 1 5 

220 Yl)S(1,2> = YJS( 1 .21 010916 

C 010917 

C COMPUTE YU AT STtP NT. 010918 

CALL YuCTL ( <M .VI . Y • YD , N X . K.K ) 010919 

C 010920 

CO 225 1 = 1 .NX 010921 

225 YO SI 1,3) = YOU) 010922 

C 010923 

XT - N 1 + l 010924 

ANT = NT 010925 

TMST = ANT * LIT 010926 

T -a £ f + IMo T 01 0927 

c 010928 

IPKNT = IPKNT *■ 1 C l 0929 

IF ( IPHNT .Nc. NCPHNT) Gu Tl 230 010930 

CALL Li ’ P NT C10931 

IPP'Nl = C 010932 

230 CONTINUE 010933 

IPLOT - IPLUT ♦ 1 010934 

IF (IPLUT .NE. NOPLOT) GO TO 240 010935 

CALL LPLTwR Cl 0936 

IPLOT = 0 Cl 0937 

2 4 C CONTINUE 010938 

C 010939 

IF (1 ,LT. ET) GO TO 20J 010940 

C 010941 

01 0942 
010943 

RETURN 010944 

ENC 010945 


SUGHCUTINE LPLTWK 

C DEBUG » 100 

IMPLICIT RErtL*8( A-H. U-2 ) 

C 

C SUB FOOT l NE WRITES T APti NUTJ FOR PLOTTING. 

C 

COMMON /LDSI2E/ 

2 NX. NY. NOlTA. NX5S » N3 . NJJ. N Y 2 . NO 2 

COMMON /TAPENO/ 

4 NUT 1 . NU I 2, NUT 3 

CGMMCN /VICTOR/ 

B Y ( 230 ) . YU ( 250 1 

CCMMCN /T I MESS/ 

C ST. UT, T. ET, TMST 

CCMMCN /FLTuTA/ 

I NRPLOT .NCPLUT 


01 0946 
01 0947 
010948 
01 0949 
01 0950 
010951 
010952 
01 0953 
010954 
01 0955 
010956 
4301 0957 
01 0958 
01 0959 
01 0960 
010961 
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O A O 


CATA X 1 ST / 0 / 01096? 

IF (I 1ST .NE. 0) GU TO o 0X0963 

I1ST - 1 010964 

REtt I N'J NLTJ 010965 

NrtFLCf = 0 0X0966 

NC FL C T = 2 4 NX * 1 010967 

5 AN Ft. C T - NHPLOT * X 010968 

•RITE INLT3) T . X YDt X ) . X = X ,NX> . < Y ( I t . I - X .NX » 0X0969 

C 0X0970 

V;ETUFN Cl 097 1 

ENC 010972 


SUERCUTINE UPRNT 

C DEbUG » 101 

IMPLICIT KLAL»a( A-M, O-Z ) 

C 

C SL6F0LTINE PRINTS UUT RLSoLIS OP LINEARIZED T X ME RESPONSE. 

C 

CGMMCN /VECTOR/ 

E Y ( 2501 , TO ( 250 ) 

CCMMCN /LOSIZL/ NX .NY , NOLI A .NX SS .Nb.NJO .NY2 ,.NJ2 
CCMMCN /T I MESS/ 

C ST , OT , I . L T, TNST 

CATA NOT/ o / 

CATA 1X51/ 0 / 

C 

IF ( I 1 5 T . NE . 0 ) SO TO S 
I 1 ST = X 

PRINT OU 0 A I A AT START. 


C 


C 


C 


C ACL PA'jfcHiJ 
W H i T t < NCT .11) 

11 HG^M P I ( ////3GX »24HL iNfc-ARi ZEO T I Mil RLSPCNJi 

♦ 32X.24H ^e.NcHAL l Nr CREATION 

VvRITE (NCT, id) ST»J1 ,dl 

12 FORMAT (//JuXtZOHiML'JRAl IUN PARA.MtTEhS Akc 


4 

30 X . 

1 «*m£» TAk I 

T 1 Me 

— D l 2 • 

5 . / . 

4 

30 X . 

IjMJcLTA 

T 1 ML 

- 0 12. 

5 ./. 

4 

JO X . 

l Jilt NU 

T 1 ML 

= 012 . 

5 ) 


/ 

// ) 
/ / 


LY s 1 
LX s LY+NYi 
LDsLMNXSii 
Lb=LCf NL'2 

i (.Li NT I Not 
CAIL PAGUU 
AN 1 TE < NCT .101) T 

10 1 FUkMA I (/JX . lOMSINbLA I 1 CN TIME = J12.5) 


*WMt INU.IDLM NYd.NAbS.NJa.NU 


l C 2 H3«MA| 

(/ J0X lOOHNoiViuuK 

CP 

ML A NT VARIABLES - 

l J . 

4 

/ 3 u X » jOM no M b N 

LK 

be. N SCR SIGNALS = 

I 5 . 

4 

/ JOX • 3 0 riNUM DL »< 

CP 

LUNTRGL VAHlAli. - = 

1 5 . 


010973 
010974 
01 0975 
01 0976 
01 0977 
01 09 78 
01 0979 
4301 0900 
01 0981 
010982 
01 0983 
01 0904 
Gi 0985 
01 0906 
Cl 0907 
010908 
01 0989 
Cl 0990 
01099 l 
Cl 0992 
01 0993 
010994 
01 0995 
Cl 0996 
01 0997 
Cl 0998 
01 0999 
01 1000 
Cl 100 1 
01 1002 
01 1003 
C 1 1004 
01 1005 
01 1006 
01 1007 
01 1000 
01 l 009 
01 1010 
01 10 1 1 
01 1012 
011013 
Cl l 0 l 4 
01 1015 
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* / 30 X . 30FiNUMoCR LF CONTROL TORQUES = is) 

01 1016 

C 



01 1017 



WRITE (NLT.103) 

011018 


1 03 

FORM A I ( //20X ,29HoTAT£ VtCTUR TIME DERIVATIVES /) 

01 1019 



CALL (iHITES (YD.l.NX.l) 

01 1 020 

c 



01102 1 



WR I TE I NOT ,104) 

01 1 0 22 


1 0 4 

FORMAT 1/20X . 12HSTATC VECTOR / ) 

01 1 023 



CALL WRITES (V ,1 .NX . 1 ) 

01 1024 

c 



01 1025 



•RITE INCT.105) 

01 1026 


1 OS 

FORMAT (/20X .EOHPLANT VARIABLE RATES ) 

01 1027 



CALL WRITES (YO.I.NY2.1) 

01 1028 

C 



01 1029 



WRITE (NCT.lOc) 

Cl l 030 


i oe 

FORMAT ( //20 X . 1 RHsLN jOR SIGNAL RATES) 

Cl 1031 



CALL WRITES ( Yl>< LX) , I . NXSS , 1 ) 

011032 

c 



01 1 033 



WRITE (NET, 107) 

Cl 1034 


l 0 7 

FORMA) (//20X .22HCLNTRGL VARIABLE RATES) 

01 1035 



CALL WRITES ( YO< LJ ) , I . NU2. 1 ) 

Cl 1 036 

c 



01 1037 



WRITE (NCT, 108) 

011038 


1 08 

FORMAT ( 7/20 X . 1 9H TokuJt SYalEM RATES) 

Cl 1039 



CALL ..RITES (YD(Lti), l.Nb.l ) 

01 1040 

c 



011041 



WRITE (NCT, 109) 

01 1 042 


1 0 9 

FORMAT ( ///.40X, 20HRLANT VARIABLE STATE) 

01 1043 



CALL WRITES (Y.1.NY2.1) 

01 1044 

C 



01 1045 



WR I TE ( NCT , 1 10) 

01 1 046 


l l c 

FORMAT ( //20X. 19HSENSDR SIGNAL STATE) 

Cl 1047 



CALL WRITES ( Y ( LX ) , l . NXSS . I ) 

01 1048 

c 



01 1 049 



WR ITE ( NL T ,) 11) 

01 1050 


1 1 1 

FORMAT < //20X .22HCCN1 KUL VARIABLE STATE) 

01 1 051 



CALL WRITES ( V( LD ) , 1 ,NL>2 , 1 ) 

01 1 052 

c 



01 1053 



WR ITE ( NCT ,112) 

01 1054 


1 1 2 

FORMAT ( //20 X , l 9h TGRUUE SYSTEM STATE) 

Cl 1 055 



CALL WRITES <Y(Lti) . 1 ,Nb, l ) 

01 1 056 

c 



01 1 057 



RE TURN 

01 1 058 



ENC 

01 1 059 


SUBkCJTINL YOt'JTL ( A • b • Y « YU • NY « K A ) 011060 


C U E6UG * 102 Cl 1 061 

IMPLICIT HLAL + 8( A-H. Zj-l. ) 011062 

C 01 I 063 

C SUUPCUTIM: ff-UKMS THh LlNtAklZtU YOCT VECTOR. Cl 1064 

C 01 1 065 

C 5UBRGU11.SL ARJUMCM 0eSC«lPTlUN5 0 1 1 066 

C 01 1067 

C A - INPUT LiNEAKl ZfcD CGLPP l C IENTS. SIZE ttA UY NY. 011068 

C UStD IN EXPHESSIUN YD = A * Y 8 Cl 1 069 
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r\ c\ c\ o o. c>r>rt 


C 5 
C 

C V 

c vc 

N v 


INRUT EXTERNAL PORCiN'o TL'ROUtS# UsuH -jj^PL l LJ VIA 
I INE LTUkGL • 

INPUT Vi:CruJ< uh STATE VAHlAOLfS. 

lLTPUT VECTOR OF r> I A I L V EC TOW J I MF. UcR l v A f 1 VC r» • 
s i cF g r a ( t£ vtc i u< ro be i NTfrcRArtiu • 


C I ' v «l M» £ C N A ( K A , l ) , f ( l } ,Y(!J . VO ( i ) 


I..C 1C l = l.NY 

>0 ( I ) = i‘< l > 

CO 1C J = l . N Y 

Y0< I ) - YUl l ) f A4 1 ♦ J I * Y( J) 

10 1 OX T I Nut. 

I«fc TUFiN 
t.NC 


01 10 70 
011071 
0110 72 
01 1073 
Cl l 0 74 
01 1 0 75 
01 1076 
01 10 77 
01 10 78 
01 l 079 
01 1080 
011081 
01 1082 
01 1083 
01 1084 


C 

C 


C 

C 


JUtWCU r 1 NL L TURGL (VI'UkU) 

DL DUG U 10 3 

IMPLICIT Kt.AL*t)( A -h . U- Z ) 

* * <* 4 ****** * * * USER SUPj^LIEo SUBROUTINE ******* 

V TuRO ARRAY ru CONTAIN Tlit ELEMENTS B 1^ I ri~ uOuAl ICN 
Y(OUT) = A ■NY ♦- ii 

1 EL LINEARIZED LUUAl ICNS OF VC T ICN 

Cl NEESitN VTCRQi l ) 

COMM C N /KDS1ZE/ 

I KR* KRT • KRX, KVlt KV2. KVX 

CCMMCN /VECTOR/ 

E Y < 250 ) * YD ( 2 80 1 

CCM.MCN /T l MESS/ 

G ST , DT * T * E T . T M ST 


CALL ZcRC l V TURO • l »KVX . i ) 

RETURN 

END 


01 1 085 
01 1 086 
Cl 1 087 
Cl 1088 
01 1 089 
01 1090 
Cl 1 091 
Cl 1 092 
01 1093 
01 1 094 
Cl 1 095 
01 1 096 
01 l 097 
4301 l 098 
01 l 099 
Cl 1 1 00 
011101 
Cl 1 l 02 
Cl 1 103 
011104 
01 1 105 


c 

c 

c 

c 

c 

c 

c 


c 


FUNC 1 ICN AUT < l C * T ) 

DEBUG ft 104 

user defined function 

USED TO DEFINE T Hu AlPHA DGT TERM IN uOuATluN 11—5 VOL 1 
T RE VELOCITY OF THE COORDINATE IC WHICH IS R HcNUMl CALL Y 
CC NS TRAINED IS DEFINE HERE* SEE SUBROUTINE f i NOU 
SEE *DUT GET THIS TERM VIA INTEGRATION Jr A0D1 IN CONTRL 
NUMERICAL PROBLEMS MAY ARISE IF THl j b NOT DONE 
IMPLICIT keAL*8 <A-H,U-^> 

COMMON /VECTOR/ 

* Y< 2 SO ) . Y0T( 2 jO) 


01 1 

1 06 

Cl l 

107 

Cl 1 

I 08 

01 1 

109 

Cl 1 

no 

011111 

01 1 

1 12 

01 l 

l 13 

01 1 

i 14 

Cl 1 

1 1 5 

201 1 

l 16 

01 1 

l 17 
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c 




oi 1 1 1 a 

Cl 1 1 19 
011120 


END 


C 

C 

c 

c 

c 

c 

c 

c 


c 


FUNCTION ADOT (1C.T) 011121 

Dt DUG * 105 C11122 

U$l :R DEFINED FUNCTION 011123 

USuJ TO DEFINE ACCuLtkAUQN OF RHENOMIuAlLY CONSTRAINED 011124 

CCURDiNATE fC* SEt: SUGROUT l NE YCOT 011125 

THE ALPHA DOUBLE DOT TERM IN EOLATION 11-6 011126 

C.AUI iCN INTEGRATE AUDI IN CCNTRL TO G£I AUT . 011127 

step changes in velocity numerically utA u to extraneous ciii28 

IMPULSES 011129 

IMPLICIT R£AL*6 (A-H,Q-Z) 011130 

COMMON /VcLTO K/ 011131 

* Y ( 2 5 j ) * YD T ( 2ou 1 2011132 

Cl l 1 33 

RETURN 011134 

LND 01 1 1 35 




subpcuiinl kiunge; iu) 

01 l 136 

C 



DEBUG « 106 

Cl l 13? 



IMPLICIT KLAL*CJ (A-H.U-/I 

01 I 138 



01 VETSICN G< 1 ) 

Cl 1 1 39 

c 




Cl l 140 




COMMON /GHoSRJ/ 

011141 


* 


0H{ e* 16 • 11 ) *db(o* id • lb) , R0L( 3 • 3. 6)*3JL(3, o) 

21 l 1 42 




COMMON /CGNPAR/ 

Cl 1143 


* 


CNTCTAI 150 ) 

9511144 




COMMON /MAXMUM/ 

Cl 1 145 


* 


NL‘M AX iNHMAX ♦NSPMAXf NMWMAX ,NMWeOO« NMDct jd •kmu*ky*ku 

011146 




CUMMCN /MUMLNG/ 

011147 


♦ 


PI 1 13 > * PMUM(3o> *HTOT( 3 ) , TOTL( 3 > .ENGKui oJ.ENGPtl 6). 

1 11 1 148 


* 


TOT KL * TOT PE • TUTENG. AH T C T * A T OTL 

01 1 1 49 




CUMMCN /SPECIF/ 

01 1 1 50 


* 


Be T AH ( o « b ) ititT AHO{ C« 6)*AMG(2* 5 ) » RH ( 3 * j • 30 ) • RS < 3 • 3 • 30 ) « 

1611151 


* 


CH< 3.35 ) #DS< 3 *30) • IMCU 3 • 5),N«Ow(6. 6 ) . 1 r T SMW ( l u 1 • 

1 71 1 152 


* 


No ♦ NH •NSPT , NUFMG, NDEL T A, l TOPOL ( 2 . 6).iRGFLX( 6).1HDATA(7. O , 

1 81 1 1 53 


4 


LOCU( 14 ) *LENU( 1 <+ ) , N U * N BE T A , NL AM , NEQ 

191 l 154 

C 




01 1 1 55 



CIMEN51CN SK ( 3 , 6 1 ,0k. ( 3 ,o 1 

Cl l 156 



C I Yfc h 

SION HNGTlG* o) 

9211157 

C 


ZERO CUT HNGT AKKAV AND POTENTIAL ENERGv TERM 

011158 



CO 1 1 

L=1.NH 

Cl 1 159 



CO 1 1 

l=l*o 

01 1 160 


1 1 

HNGT ( I ,L ) = 0 .DO 

011161 



TO TP E 

= 0* DO 

01 1 162 

c 




01 l 163 

c 




011164 

c* 

* * * 4 

** * * A 

*?***«!#♦**♦ USER 

01 1 165 
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C 1C jtT UP HINGE lORUJtl DUE TC SPRINGS AND GAsnPUI S ACROSS 

C G I MO A L AXES 

C 1) EQUIVALENCE ARRAYS «HICH HGLU CCNSTA.Jls lu PROPER AREA 

C JF DATA cJLGCK CNIuTA 

C i ) GET HINGE TORQUE AdUUT EACH AXIS 

C JJ COMPUTE POTENTIAL ENERvjY 

C EXAMPLE 

C EQUIVALENCE (CNTDTA1 12 > . SN( l J > . ( CNT QT A I jj J , u< ( 1) I 

C CCJ 1 C L = 1 ■ NH 

C CO l C l = I. J 

C hNGTIl.L) = -I SK ( l ,L ) *bET AH( I , L ) F DK I 1 ,LJ * GET AHu( 1 . L ) ) 

C 10 TOTPE a TUIPE F 0. suO*5K < l ,E > FEET AH( I . L ) *42 
C 

c acu hingl turoul/furce off ects into oojy i g vector 

LEC = I RGF-LX ( 1 ) + 6 

cc i ; 1 = 1.0 

P = PNv, 111,11 
CO If Ja l.LLQ 

It G(J) a GIJI P F «UH I I.J.l I 
1 E CONT IN JL 

c 

C Alii HlNoC TOROUE/FURCE LFhLCTS TC G VECIUR FOR EACH HINGE 

CO ?.C 0=2, Nil 
NO 00 a IloPOEIl.EI 

MJ8P a ITUPGL(2.L) 

LQ = 2*L - 2 

LP = LU F l 

LOO a LCCJlNOuOl - l 

LCP = ELCU(NOUP) - 1 

LEO a I ROFLX < NOdQ I F 6 

LtP a IkGFLX ( NOtIP) F o 

CO 2C 1 a 1,0 

F = FNs 1 (I ,L I 

00 2 5 Ja l.LEQ 

LOGO a LCO F J 

25 C-UGCJI a o(lOUJ) f F*un(l.J,U) 

CO 2 t Jal.LLP 

LQPJ a LCP F J 

26 C1LUFJI a oILuPJI f F*ort(l,J.LP) 

2 0 CC N V 1 NuE 

C 

RETURN 

ENC 


Cl I 166 
011167 
01 I 166 
01 l 169 
Cl 1 170 
011171 
011172 
01 1 l 73 
01 1 1 74 
01 1 I 75 
01 1 1 76 
011177 
01 1 178 
01 1 t 79 
011180 
Cl 1 1 81 
Cl 1 182 
011183 
Cl 1 184 
01 1 185 
011186 
01 1 l 87 
011188 
011189 
011190 
011191 
011192 
011193 
01 1 194 
011195 
01 1 196 
01 1 197 
011198 
011199 
01 1200 
Cl 1201 
01 1202 
Cl 1 203 
01 1204 
01 l 205 
01 1206 
01 1207 
01 1208 


C 

C 

C 

C 

C 


SUER C L I INl CCNIRL 

DlEJG » 107 

IMPLICIT ii E A L V d ( 

SC 3.4 CUT 1 N L CON 1 RL Mc/S T uu USER JLF1NCO 

l l IS Us LJ TO L-.TAUL1SH THE TIME oeRIVaUv-S up The CONTROL 
SYSfcM. UT rtTE VAi.IAJllS 

COMMON /UllsSWU/ 

* UM 1 6 . 18 . I 1 I . bs( u, 1 d , 1 s ) .M 0L( 3 • 3 . cI.jjlU. o) 

COMMON /Cl.M’AK/ 

* Cn I i. I A( l -.0 I 


01 1209 
Cl 12 I 0 
011211 
011212 
01 1213 
01 1214 
01 1215 
Cl 1216 
211217 
01 1218 
951 1219 
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COVMCN /L0512E/ NX. NY .NDLTA , NX S S . NOT 0 , N J Q , N Y 2 . RD2 
COMMON /SPECIF/ 

* Br. TAH16. OI.BcIAriUlo. 6T.AM012, 5 ) . Rrtl J , 3 . J 0 ) . R S ( 3 . 3 . 3 0 ) . 

* CHI J, Jbl.OSl J.30I .IMO(3, S),NMOW{6. 3 ) . 1 - f SMu ( l 5 > . 

* NU , NH .NSPT .NOFMO. NDELTA, I TOPOL! 2. 6).TKGF_X< 6T.IHDATA17. 6). 

A LOCK 1 A ) . EENUl 1 A ) . NJ.NUET A.NLAM.NEQ 

COMMON /TIMESS/ 

* START T , UELTAT.T .END! . I MS T 

COMMON /VECTOR/ 

* Y( 25C ) . YDT125C) 

CCCCCCC TUB COMMON IS TRANSFER BE T WEEN CONTRL AND SHAFTT ONLY 

C COMMON /WHEEL / 

C * CLM(4) 

C IF JATA IS ro BE COMPUTED WHICH MUST QE IRANSFeRcD TO OTHER 

C USER DEFINED SUBROUTINES ADC ADDITIONAL SPECIAL PURPOSE 

C CCMMUN BLOCKS 

c 

C F.l NOTIONS REQUIRED BY SAMPLE PROBLEM 

C ALIM(U.V) = UMAX1 (-V .DM I N1 I U. V ) ) 

C 

C ADD DIMENSION SIATEMEMS FOR CONTROL SYSTEM deSCkIPTION 

C I ME F S l CN TCJ(o) .TuD(B) .RTID(S) .THADWI3) 

LATA ICTa/O/, RHD / 0.D0. C.DO. 0.D0 / 


SET UP DIMENSION STATEMENTS AND DEFAULT VAEJcS FUR TRANSFER 
FCNCTION input directly into ccntrl 

NPLY = NJMUER OF POLYMCMIAL RATIO J A l k S InUMERATOR ANO 
OENuMlAluR) TO 8E READ ON r 1 RST p As 3 THRO CONTRL 
KRY = ROW DIMENSION OF CPLY (HIGHEST DENOMINATOR ORDER + 1 

KCY = COLUMN DIMENSION OF CPLY (2 * N J MbtK OF PCLYNCMIAL 
TkA.ysFlR FUNCTIONS TO BE READ) 

CPLY ( I ,2*K-1 » = deNCMINATCR COEFFICIENTS IN ASCENDING 

C CRDER FGR INPUT POLY < , 1 = 1.2 PLY IK) 

C KPLY(K)-I = DeGRLE OF POLY TRANSFER FDNLTIuN DLNGMI NAIOR 

C ALSU NUMBER CF FIRST ORDER DIFFERENTIAL 

C EUUAllUNS SET UP IN TF PLY FOR K-TH TRANSFER 

C F U NL T 1 O N 

C CPLY(1.2*K) = NUMERATOR COEFFICIENTS ASCENDING ORDER 

C SEE sUuROuTINt llFS . • SDBRUU T I NE 'DYNS20 l NP J 7 . . . J AT A • 

CIMEFSICN CPLY(10.4). KPLY ( 2 ) . Ul(2) 

LATA NPLY, KRY, KEY/ 0. 10. A/ 

CA I A I 1 ST/ 0 / 

C 

CCCCCCCCCC 

cccccccccc 

CCC T Ft' FCLLUWINu STATE Ml NTS MUST ALWAYS BE IN CUNTRL.. 

C FIRST PASS THROUGH Re Ad IN ALL CONTROL POLY TRANSFER FUNCTIONS 


If- 

( 1 1 S T 

. NL . 

0 ) 

(JLj T l» 

l 10 

1 1 J 

ET - l 





a 

( Nr>l_ Y 

• t£ 0 • 

0 ) 

oU T U 

1 Oo 


CALL EE R C I C PL Y . KRY , KC Y , KRY ) 

CO ICS K= 1 .NPLY 
K2=2*K- 1 

10; CALL REAL ( C PLY ( l , k2 ) , KPLY ( K ) , N2 , KH Y , K C Y ) 
CALL WRITE ( CPLY .KRY , KCY .AFiCPLY .KRY ) 

10 6 CCJNT INUE 

NDLTA = NOEL T A 
LO 6 L = LCCUI 2*NUFE) - i 
l I 0 CC NT INUe 


01 1220 
011221 
161 1222 
1 71 l 223 
181 1224 
191 1225 
01 1226 
01 1 227 
01 1228 
201 1229 
01 1230 
011231 
01 1232 
01 1233 
01 1234 
01 1235 
01 1236 
01 1237 
01 1238 
01 1239 
01 1 240 
011241 
01 1242 
01 1 243 
01 1244 
01 1245 
01 1246 
01 1247 
01 1248 
01 1249 
01 1250 
011251 
Cl 1252 
01 1253 
01 1254 
01 1255 
01 1256 
01 1257 
01 1258 
01 1259 
01 1260 
Cl 126 1 
0 1 l 262 
Cl l 263 
01 1264 
01 1265 
Cl 1266 
01 1267 
01 1268 
01 1269 
01 1270 
011271 
Cl 1272 
01 1273 
01 1274 
Cl 1275 
01 1276 
01 1277 
01 1278 
01 1279 
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c Dtf'Auiv values 

C I N Ti.HNAL OO LOU* uuv*lC KLOU iKfib THAT 

C f i A L x = N.<r.S NlilO 

C ’.V H;Kt 

C NAcX > 0 

C AhJ 1 1 MUST uh RLUt.F I Nc.u IN COAOO 

NXf:S = l 

htlTO - 0 

c nxss = ui i*lam sensor signals 

C Nt 1 4 = NiJMUtr^ Oh C’JNiKUL if ST CM OUTPUTS 

C 4uS T HE oicK i)r.F INtU I F NCN-^riPC* Fur< cAAMP_E 

C NXSS = J 

C NCI TO - J 

IF (NUeLTA • EG . 0) R L I uk N 
CCCCCCCCCC* LCC 

CCCC NO ll — TH I b SUuRUUTIhl MUSI ESTABLISH NJuTA.NXoii AND NbTQ 

CCCCC.CCCCCC 

C 

CCCC ESTABLISH THE i)/OU DtL TAS) 

c 

cccccccccc 

cccc — n i. r t — t I- i *> section is typical of use of i-ply. 

cccccccccc 

c 

IF (NPlY .hU. 0) uL T O 1 Uj 

L s LJtLH 

C L - START INC LOLA T A UN rUK FIRST DELTA PUT EUUAIIUN 

DC ll j K = 1.NPLY 
K < - 2*K- 1 

t. CALL TFPLY Tl) TOP U IFh LRE. N T I A L EOUATlJNS A:,SuC1ATEO WITH POLY 

C ThAnCSFER FUNCT iuNS 

CALL TFPLY 1 CPL Y < 1 .Nl) *CPLY ( l . K2+ i > .Ul ( K ) , X . K-* _ Y ( K ) , L ) 

L * L +KPLY ( K ) - 1 

1 1 i COM INJL 

C KFI..Y ( I ) 4- K P L Y ( *_ j 4- . ..♦ XPLY<NPLY> - N > L Y = T He NUMBER OF 

C F IO'jT ukJtU LUUATIONS OIF 1 NfcO AND PUT IN Yu f AkHAY 

116 CCMl NUE 
C 

CCCCCCCCCC 

C E > AMPLE CONTROL SYSTlM Fuk ATS-F 

C ICT4 = lCT* 4- 1 

IA = (AU4-1 J/4 

l A A - ( I CT4-2 >/4 

IF LAC = I A - IAA 
CO O 1=1*3 
6 I HAD V ( l ) = Y { c- 4“ I > 

CG 5 1=1.6 

5 TO < I ) = V (LOt’1.4 I ) 

W Til. EL 1 (ROLL INERTIA WHEEL CONTROL TURUUe) 

CEFINl O IFFERCM l AL EOLATIONS FCR POL. LunTrul LOOP 

LI = u/ .29SUOO*«OL( P.2 . I )/KOL ( 3.3 . I ) 

Lb = AL I M( T U ( L> ) . 29 . U J ) 

C L 2 = c • l /i> 0 *Ul - US 

C LJ = Al. l M I* 100 *U 2.1 • I 7 U 0 ) 

C TGC<e> = ( l.l)0/Bd.u0)*(-ro(bl ♦ <9/1. IDO )4JJ) 

C w6 = AL l»v ( 0*U3. i . oBU J ) 

C v>8 = AulV.(TO(o) ,1.900 1 

C IF C IFLAG .ED. 0) TO 32 


0! I 280 
01 12.81 
Cl 12 82 
01 l 2d 3 
Cl l 284 
Cl I 285 
01 1286 
01 1287 
01 1288 
01 1 2 89 
01 1 290 
011291 
01 1292 
01 1 293 
Cl l 294 
01 1 295 
01 1296 
01 1297 
Cl 1298 
01 l 299 
Cl 1 300 
Cl 1301 
01 l 302 
01 1303 
01 l 304 
01 1305 
01 l 306 
01 1 307 
Cl l 308 
01 1 309 
0! 1 3 1 0 
011311 
01 1312 
011313 
Cl 1314 
01 1315 
01 1316 
01 1317 
01 1318 
Cl 1319 
01 l 320 
01 1 321 
01 l 322 
01 1323 
01 1 324 
Cl 1325 
01 1 326 
01 1327 
01 1328 
01 1329 
01 l 330 
011331 
01 1332 
Cl 1333 
01 1334 
01 1335 
Cl 1336 
01 1337 
01 1 33e 
01 1339 


B-201 



u u 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c; 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

t 

c 

c 

c 

c 

c 

c 

c 

c 

r~ 

c 

c 


c 

c 

c 

c 

c 


ou = OAdS(ua) 

if (ll.uT. i.ijo) co ru 30 

IF ( 0 0). L T . 0. Jl)0 ) Co I U J1 

0 9 = R Fi O ( l ) 

CO TC 1C 

30 09 = 00/001 

co rc io 

31 09 = O.OC 

go rc io 

3 2 09 = RhC ( 1 1 
CO TC 33 

1 0 KHl)( n = U9 

33 CO NT INCH 

TUC(f) = (-10(61 F 2 . 50u *( 0)6-09 ) > / . SOO 

1300 RPF = 107.0795 KAG/bEC 

6 INCH*02 ■= .03125 FT*Lt)5 

IF ( C A3S ( T HA OV. I 1 I I .ol. 157.0795001 U9 - 0.00 
CL Mil) = .0312500*019 - j .D-Oo* TFiADW( 1 ) 

WHEEL 2 (I'lTCil lNtkTlA wilt EL CONTROL TJKUJi) 

Chi i Nt_ D If FELtNT I AL EGO'AT I CNS IN P1TC3 CU'drluL LOOP 

01 = -5 7 .295dDJ*l; JL < j . 1 . I >/kOL ( 3 .3 • 1 ) 

05 = AUX( TOl 1 I ,10.603 I 

02 = 2.1700*01 - 05 

03 = AL l «< .5200*02, l . I 700) 

100(1) = l-TQtl) * 03* ( 7/.62D0 )) /50 .00 

06 = AL 1F( 5*U3, l .oOOO) 

08 = AL 1M< T(j(2) . I .900) 

IF (lFLAC.tu.O) COi To 19 
00 ■= JA1351 Ob ) 

IF (00. GT. 1.00) OU TO 13 
IF ( 00 .LT. 0.500 ) Co TO Ic 

09 = WHC(2> 

CO TC 12 

15 09 = Uij/Oiu 
GO TC 12 

16 09 = 0 . UO 
GO TC 12 

l A 09 = K H 0 ( 2 ) 

CO TC 13 
l 2 SHU ( 2 ) =09 

12 COM I NOt 

TO 0(2) = (-10(2) F 2.5U0*(oo - 09))/. 500 

IF ( CA3S(TrtA0W( 2) >.GE. 157.079500) U9 = 0 

CLM2I = .03 12500*09 - 5 .o- 03 * I F AOM 2 ) 

WHEEL 3 (YAW INcKTIA WHEEL CONTROL TOXOOE) 

CcFINE DIFFERENTIAL tuOAHONS FOR YAW CONTROL oJUP 

Cl = 5 7 . 29'j6D0#R0L( 2 . 1 . 1 )/R0L < 2. 2 . I > 

02 = AL IF.( Ul ,2.00) 

06 - AL 1H ) 01 3) .29.00) 

03 = 2.1 700*02 - Uo 

04 = AL 1 M l . 4700*05, 1 . i 700 ) 

7Q0 ( 2 ) = ( l . 00/83.00 )*( -TQ1 3) F (9/1 .4 700 I * 04 ) 

07 = AL IN(a*U4. 1 .5800) 

09 = AL 1WIT014) , l .900) 


01 1 340 
011341 
01 1 342 
Cl 1343 
01 1344 
01 1 345 
01 1346 
01 1347 
01 1348 
01 1349 
01 1350 
011351 
01 1 352 
01 1 353 
Cl l 354 
01 1355 
01 1 356 
01 1357 
01 1358 
01 1 359 
Cl 13o0 
01 1361 
01 I 362 
01 1 363 
01 1364 
01 1 365 
01 1366 
01 1367 
01 1 368 
01 1369 
Cl 1370 
011371 
01 1372 
Cl 1373 
01 1374 
01 l 375 
01 1376 
01 1377 
01 1378 
01 1379 
01 1 300 
011381 
Cl 1382 
01 1 383 
01 1384 
Cl 1385 
Cl I 380 
01 1387 
01 1380 
Ot 1 389 
01 1390 
C 1 139 1 
01 1392 
Cl 1393 
01 1394 
01 1395 
01 l 396 
01 l 397 
Cl 1398 
01 l 399 
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c 


IF ( I F *_ AG.cU .0 ) 0 ij TO 20 

01 1400 

c 


LU - CADS( U9 > 

011401 

c 


If- (CU'GUl ,00* GO T u 21 

Cl 1402 

c 


IF (Lt.LT. 0.5D0) oO TO 22 

01 1403 

c 


L10 s Hhtj ( j ) 

0\ l 404 

c 


GO T C 13 

Cl 1405 

c 

2 1 

LlG = u9/Uu 

01 1 406 

c 


GO T C 10 

01 1 407 

c 

2 2 

CIO " J *00 

Cl 1408 

c 


GO TC 16 

01 1 409 

c 

20 

LIC = »hC( JJ 

011410 

c 


GG TC 24 

011411 

c 

i e 

RhCt 2) = U 10 

01 1412 

c 

24 

CON T INUE 

01 1413 

c 


TQC(4) = (-TGC4) ♦- 2.JUJ*(U7 - U10))/.5D0 

011414 

c 


IF ( CArJS ( 1 'mAJW ( 3 ) J • G T • i 3 7.0 7 ( JbD0) UlO = u.l>0 

011415 

c 


CLM(2> = *03 l 25D0*U 1 J - b • & — OG* 1HA0W ( 3 ) 

011416 

c 



01 1417 

c. 


IHT ALL CONTROL 3Y 3 1lM lGLATICN in yot AWkAV 

01 141 8 

c 


CO 34 1=1.6 

01 1419 

c 

2<i 

YD T { Uc'L + 1) = rOOi l ) 

01 1 420 

c 


YU 7 ( LUdL ♦ / ) = Y l lo) 

011421 

c 


SK4 = lMJTA ( NJb LT A-f l ) 

01 1422 

c 


CK4 = CNTUTA < NDEL TA+2 ) 

01 1 423 

c 


CL W ( 4 > — - ( SK * Y ( L UlL + / J *■ DK4* YDT( LOEL* 7) ) 

01 1 424 

c 



01 1425 



FETUfN 

Cl 1 426 



END 

01 1427 



SUbRCUl INK cXTOR lTtX.lbPN.NTEX) 



Cl l 428 

c 



DEBUG U 108 

01 1 429 


IMPLICIT «LAL*8 (A-H.C-L) 



Cl 1 430 


DlNtFGlLN TcMu.lh 1SPNI U 



011431 

c 




01 1432 


C U MM UN / M ^ X M J M / 



01 1 433 


♦ N •. J M A a ,N HMA X • NbP Mm a • NMi. Mm X , N M W GOD • NMD JJ U • K A u • X Y 

. KU 

01 1434 


COMMON /bPtCIF/ 



Cl 1 435 


* Ul T Aii ( O • 6 ) • be. 1 AM D < u # G) .41*0(2. b) iKril J* jijv) 

* 

MS l 3 , 3 . 30) . 

1 61 1436 


♦ . CH ( J, ) .DS < jiJO) . 1 Mol J . j) »NM«J.(6, u) 

( 

Id). 

1 71 1437 


* iJj.NH.N5PT MU. IWLlTA • I 1UPOL(2. 6 ) . 1 li or u X l 

o 

) • l HD A T A { 7 * 6 ) . 

181 14 33 


♦ LGCLl l 4 ) tLLNU l 14) ,U, NGt TA.NL A t* , NCQ 



l 91 l 439 


LG MM UN / 7lLT UR/ 



Cl 1440 


4 y 1 2 59 > . Y J T { 2 b o ) 



201 1 44 l 

c 




Cl 1442 


L A T A l 1 S F / 0 / 



01 l 443 

c 




01 1 444 

cc c 

ESI ABL IJH l'l Ui EXTERNAL F DULL/ 1 IJW CUE (6-LONG VcofJ<) 

mIW NUMUtW 

01 1445 

ccc 

IFF. C C R»\ G SPUN U l NO bLNbUK PU1 NIG • ALau V. 3 T A3 _ 1. Ori Trie 


NyMOER OF 

01 1446 

ccc 

S 1 X - L C N • » YLlT G5< S l N T t X ) • 



01 144 7 

c 

set VCL 1 : ti’AoL Ic 



Cl 1448 

c 

ISPN - IN 1 L REM ARRAY 1 u DL/INE rfMlCH liSNaOK -» U l .n T 

J 

ARE TC BE 

01 1 449 

c 

L jLG FUK FukLe / 1 GKuUt INPUTS 



01 1 450 

c 




011451 


li - ( I !-» r t lU * l) vj U To 5 



01 1 452 


! 1 S 1 = l 



01 1 453 
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rnnonnnr. 


co ic I* Uo 

CO 1C J— 1 * N5PMA X 
1C T6K( l • J J = 0.0 0 
C 

5 M LX - 0 

C 

RETURN 

END 


01 1454 
01 1455 
01 1456 
01 1457 
01 1458 
01 1459 
01 1 460 
011461 


C 


C 


C 

C 


c 

c 

c 


SULHCUrlNt SHAf-TT ( I 5HM ) 

IMPLICIT WEAL*ti (A-N.O-Z) 
Cl ^ENS ICN TSHFT ( 1 ) 


UEUUC 4 109 


COMMON /MAXMUM/ 

* NOMAX .NHMAX * NbP M A A * NM« M A X tN'MW 00 D « NMDidUD , K *1 of , K Y * KU 

COMMON / S PL C I F / 

* 0 ti T AH ( 6 , 6 ) * tic 1 AHOi 6 • 6)*AM0<2# 5 ) . RH( J , j * J 0 ) , RS ( 5 • 3 • 3 0 > • 

4 CiU 3* 3b ) *05 ( 3 ,30 ) . I MU( 3* 5) ,NMCW(t», u ) *iFT3Mto( 15)* 

4 Nd • NH *N 3PT *NUF MQ t NUELl A. I TOPOL ( 2 • 6),IRsrLX( o).IH0ATA(7. 6). 

4 LUCU( 14 ) ,LcNU( 1 4 > * NU • NUt T A « NL A M • NE Q 

COMMON /VtClOK/ 

4 Y( 250 > • YOT ( 250) 

CATA l 1 S T / 0 / 


IF ( I 1 5 T • c.0 * i ) ut TO 2 0 
I 1 S T = l 
CO 5 1=1 *NMfc MAX 

5 1 S FF 1(1) = O.U 0 
2 C CONTiNUt 


INTERFACE WITH bOURUUTINt CCNTRL* WHE£_ ru.XjJcb COMPUTED 
IN CCNTRL STORES IN CLM ARRAY, DISCOS TridM IN 

TFt T SHF I ARRAY 

example : 

1) 50 TUP COMMON BLOCK TO TRANSFER DATA 

2) O COATc TORQul AkRAY CLM TC TSHFT TCXJUC ARRAY 


CC THIS COMMON IS TRANSFER BETWEEN CONTRL ANu SHAFT! ONLY 

COMMON / * HLLL / 

4 CLM (4) 

C 10 DO If 1=1.4 
C 15 I S FF 1(1) - C LM( I ) 

C 

PE TURN 
END 


01 l 462 
01 1 463 
Cl l 464 
01 l 465 
Cl l 466 
01 1 467 
01 1 468 
01 1 469 
l 61 1470 
l 71 1471 
181 1472 
191 1473 
01 1474 
201 1475 
01 1476 
01 1477 
01 1478 
01 1479 
Cl 1480 
01 1481 
01 1482 
01 1 483 
01 1484 
01 1485 
01 1486 
01 1 487 
01 1488 
Cl 1489 
01 1490 
011491 
01 1492 
01 1 493 
01 l 494 
01 l 495 
01 l 496 
01 1 497 
Cl 1 498 
01 l 499 


C 


SUER CUT l NE EQADJ 


01 l 500 

UEGUG ft 11 0 01 1501 
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c 

c. 

c 

c 

c 

c 


c 

c. 

c 

c 

c. 

c 

c 

c 

c 

c 

c 

c; 

c 

c 

c. 

c 

l 


KMPlICII KCAL*b 

S5t VCl I l.»’AGc 1 5 

AUlLAWY l.OuAriU^ aniLH ULFINE Hit P<lf * KAulV McAL I ZABLE 
3 5N:»u!t blliNAI.5 C* J N I W OL ICROUtS ARE f tj j; L‘iA-.)c_0 IN T HC 

YCI ASftAY AFTER 1 Hr. L Aj I cJLAUCK. THAI Id Y .> I ( > 

trd CHOCK ASSUMED I b StNSUft SIGNAL, TOk.jUc 5 1 uNAL 
C U*iM Cfi / iti-Sk j / 

+ :JM (C, tb . 1 l ) ,&b( o . lo . ) »«0L( 3 . 3. o> 

COMMON /O.NAUX / 

♦ N\UX 

CCVMCN /LOS l cd/ NX.NY * N Jl l A , NXSS.Nb TO, NJO, 4 i ^ 

COMMON /HAaMOM/ 

v* .VIMAXiN HM A X • NbP MAX, NM A M A X , N .V w HO O , MOrtU-J ..<^.KYinU 

lGMMCN /SPt.LlF/ 

* l : i.TAii(U i o)«i)LlA1U(Ui 6 ) . AMO { 2 , 6 > *Hni J . 3 • 30 ) . Rb (3 ,3 • 3C ) . 

♦ utli j> j 5 ) iOSU«3o) , Iiou( J« C- I *NMUa{ 6 » .> > , I .= T 5 M* ( l o ) • 

* \u , NH , N SR T , NUI Mu • NUcL TA,ITCP0L(2* (j ) « i »< v»F _ x ( o I « l HO A T A ( 7 , 6), 

* I. w C L ( U ) ,L.hNui 04) • N U • N bt T A , N'L AM , Nt. 0 

COMMON / VcC T ( l ri / 

♦ Y( dd) ) * YD 1 l ft 50) 

THj SOijk0UTI.nl MUSi DEFINE NAUX 

NA'uX = NUMUlK Ul" AUxiLAkY ECUAT IONS, Aul I - l 

MJH T HO LlNcARUATlON POP T I ON UF j l j C.J J AT LEAST CNE 
AUXILIARY LJumTIuN »eCUlRHi>. IT viJbi' jc A FUNCTION 
OF TM*; bYSIdtf STATE VAFIAOLr. S 
TK.,c MJo 1 ML uUMPAUolL » I TH THAT OEFiJLO IN CwM RL 
I h V.LNT KL n»C ulF AUL T VmLUKS ARE J 
NXbS - l 
NoTu = 0 

NALX - i\ X S 5 + Nfl T 0 

DEFAULT L (2UA T I ON FIRST UNCONSTRAINED Be. f a ANoLl 
YOT(NK u-M) - Yl LiJCul 2 *Nut 1 ) ) 

SET lF AUXILAkY E0JATIUN3 FOR G P T A I N I No IHA^ShcR FUNCTIONS 
13 E T v* b t N PHYSICALLY R L AL i lAH Ll SENSOR blviNA.j AiSj APPLIED 
TCRwLLb 

t xampi : 

NA LX = to 


01 i 502 
01 I 50 3 
01 1 504 
01 1505 
01 1506 
01 150 7 
01 1500 
Cl 1 SC 9 
Z \ 1510 
011511 
Cl 1 51 2 
01 1513 
011514 
011515 
01 1516 
161 1517 
171 1518 
l 81 1519 
1 91 1 520 
011521 
201 1522 
01 l 523 
01 1 524 
01 1 525 
01 1 526 
Cl 1 527 
01 l 528 
01 1529 
Cl l 530 
011531 
01 1 532 
01 1533 
Cl 1 534 
01 1535 
01 1536 
01 1 537 
01 1538 
Cl 1539 
Cl 1540 
01 1541 


C LUEL = LClU< 2*Nd*2) - 1 

C. ACCN = 37 #29 5000 

C YOT(FfcGM) - A CUN*R UL ( J « 2 « l)/R CL (3,3,1) 

C YDT< M=0«*2> = -AC JN*H OL IS , 1 » l ) / POL ( 3 ,3 • i ) 

C Y0T( htUVj) - aCOn^OL (2 , l . t ) /«0L( 2 ,2, 1 ) 

C YOTIREo*4> = YILUlL+2> 

C YD1 ( I* E J ♦ 5 ) = Y(LDcLt4) 

C Y 0 T ( A L .J ♦ L ) = Y(Li)cLtU J 

PE TURN 
END 


01 1 542 
01 l 543 
0 1 l 544 
01 1545 
01 1546 
01 1547 
01 1 548 
01 l 549 
01 1 550 
011551 


SUERCuriNE GMI5C (N,LE.LG,V2) 

IMPLICIT RLAL*b (A-h,u-2* 

Cl VC hS I LN V 2 < 1 ) 


01 1552 

0E5UG #111 Oil 553 

01 I 554 
01 l 555 
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n n ^ n n 


CCMMCN /maxmum/ 

* N!'JMAX,NHMAX| NijpMA X , NMV. MAX « N MW 6CJD * NMDJJJ , KU 

CUMMCN /SPECIF/ 

* tit:TAH(o* 6 ) « dt. r AHi/{ c • o ) * AMO< 2 • 5 ) • RH < 3 * 3 • JO > . KS < 3 . 3 * 3 0 ) . 

* iiiK 2* 35 ) *OS( 3* 30 ) . I MO( 3. S)#NM0w(6* j) ,lrTSM*l IS). 

* N;3 • NM *N SPT • NCh MU» NuEL T A* I I QPUL ( 2 * 6), iHs.-wX{ oJ*<HDATA<7» 

* LUC LI l A > t LuNO ( 14) .N'JiNbtTA.NL AM.NHO 

COMMON /VLCTUR/ 

* Y ( 2 £0 ) « YuT ( 2'oC ) 

C 

CATA (1ST / 0 / 

C 

CCC LSER SUPFLltJ SUERCuT I Ni£ Tl C R C A T Ml SC. CuN Ikl d J T i Ofw TO R.H.S. 
CCC INCLUDING THE THERMAL uNADlcNT ENVIRONMENT • 

C IF THERMALLY INDUCED MU7IO.N MODEL REQUIRED ^EMLACc 0.D0 BY 

C T He THERMAL PUblllUN THt PARTICULAR MOD- l V THE DU L COP 

C APPROPRIATE CQMPUIaTXCn OK THE THERMAL POSITION MUST BE 

C CARRIED OUT. PNfcFtRABLc IN CCNTRL DATA T riA^SFtRci) BY A 

C SPECIAL PURPUSc COMMON BLOCK 

IF (II ST • L O ♦ l> Ou T L) 5 
II ST s 1 


CO NT INUfc 

LG Ml = LC - 1 

C(J l C 1 = I . Lt_ 

V2 ( t ) = VI LOMl 

PE TUPN 
END 


6 ) 


l 0 


I ) 


0.0 0 


01 1050 
01 1557 
01 l 558 
0 l l 559 
101 1500 
1 71 1561 
l 81 1562 
191 1563 

0 l 1 564 
2CI 1565 

Cl 1566 
Cl 1567 
01 1 560 
01 1569 
01 1570 
011571 
01 1572 
01 l 573 
01 l 574 
Ot 1575 
01 1576 
01 1577 

01 1 5 78 
01 1579 
01 1 500 
011581 
01 1 562 
01 l 503 
01 1584 
01 1585 


SUERCLTiNE DEF1 


C 

C 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


DEBUG * 112 


COMMON BLOCK / SUERCUTlNE 
CROSS-REFERENCE 
MATR I X 

A BC DDGOH l I I. JKLLLLLLLLLLLLLLLLL ^MMNNPPPP JS^r T vv 
NHONRCGALNV l OACBDO ikRSS l TV VttWZA lOHUlLRSPPJA A El 
LENA AD ON 1 TCLSMLDES JAUf T 10 l 2 ORM XSMN MN T* T REMPMCN 


ESPUTA ADNGGF ItioAbl VKCA kTL 
toRA X I T VStKNLZUNT OZ ATRTL 
DR CAE RLSGEAIAGE Y TIE 


ADT 
ACDT 
A S I ML R 
CAE 1 
t AK SL V 
BCOTOP 
RPGENR 


RKCMCESBPDJJKCMELTD 
KVOUNN RWTkE T lRNSOE 
llEVCG S AK r AF Y U SRP 
* 

* 

* * ** 


** 
* * 


01 1 586 
01 l 587 
Cl 1588 
01 l 509 
Cl 1590 
011591 
01 l 592 
011593 
01 1 594 
01 l 595 
Cl 1596 
01 1 597 
01 l 598 
01 1599 
01 1600 
01 1601 
01 1602 
01 1603 
01 1604 
Cl 1605 
01 1606 
Cl 1607 
01 1608 
01 1609 
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u u o 


c 

fcSCENiR 

* ♦ 

♦ 

♦ 

* 

01 1610 

c 

CCN TKL 

** * 



* «* 

011611 

c 

CPE A 



* 

* 

01 1612 

c 

CFEADC 



* 

* 

011613 

c 

C PE B 



* 

* 

01 1614 

c 

CPEC 



* 

* 

01 1615 

c 

C PEE 



* 

* 

01 1616 

c 

CPE NUO 



* 

* 

01 1617 

c 

CPET3 



* 

$ 

01 1618 

c 

C YN£ l 0 

* * * 

* * 

* 

* * * * 

01 1619 

c 

C YNSHO 

4 * * * ** 

** 

* 

* * * * * * * 

01 1620 

t 

CYNS30 




* * 

011621 

c 

CYN £40 

V ****** 

* ***** * 


* * * * * 

01 1622 

c 

ENGNCM 

* * 

* * 

* 

* * 

01 1623 

c 

ECACO 

* * * 

* 


* « 

01 1624 

c 

E X T CH 


* 


* * 

01 1625 

c 

F INCr 

* * * 



* * 

Cl 1626 

c 

FIN CU 

♦ * 4 

* 

* 

4 * * * 

01 1627 

c 

GAL SS l 

♦ 




Cl 1 628 

c 

GETGMG 

4 * 4 * 

* 

* 

* 

01 1629 

c 

GM SC 


* 


♦ * 

Cl 1630 

c 

GP V CPC 

* * * * * * 

* 

* 

* * 

C 1 1 63 l 

c 

I NV INF 

* 




Cl 1 632 

c 

KF I NGt 

* * 

* * 


* 

01 1633 

c 

L I N E A P 

* * 



* * * * 

01 1634 

c 


AjCLCGCjri I I I JKLLLLLLL. 

LLLLLL LLLL.VMM 

NNF 

’AAPiair r v v 

01 1635 


M-tiJNhooALW 10A<.OuJlKKb3lTVVh»ZA10HUiU^3r , r^JAiLl 011636 

CeMA /'.jjiM 1 1 CLiMUucjjAtl 116 1 2 0 P A a SMN MN T « 1 « 6 .<1 5 .-1 C N 011637 

fcS.'O IAAli.NOUF IbuAtil VKCAK1L P K C MCE 5t!PD J J <CA c u I 6 01 1638 


c 


ton A 

> l T V^tHNLZJNTuZ A TK ] L 


KVOUNN RRfl« 5 

r l R NJ'aUL 

Cl 1639 

c 


OR 

CAE HLSLcAIAuc. Y IlL 


t l E V GG S 

AN r 

Af y 


01 1640 

c 

L F L T V. P 


$ 



* 


* * * 

011641 

c 

LPKNT 


* 





* * 

01 1642 

c 

L TOPOL 


* 





* * 

01 1643 

c 

L TKtSP 


* * 

* 

♦ * 



* * * 

Cl 1644 

c 

y a i n 


** * 


$ * * 

* 

♦ 

* 

01 1645 

c 

i^GfcN 

** 

* * * 


* * 


* 

* 

01 1 646 

c 

y r I C- 1 c 




* 


* * * 

01 1647 

c 

w S.VCOC 




* * * 


* * * 

01 1 648 

c 

V SMCUL 




♦ * 


* * 

* 

01 1649 

c 

NLL IB 




* 




Cl 165C 

c 

N l FLL’I 


** 


* 

* 



011651 

c 

Ncy £ 


* 






01 1652 

c 

nvplot 


$ * 


* 

* 



Cl 1653 

c 

P A G £ H 0 


* * 






01 1654 

c 

PLOT Vi R 


* 


* * 

* 

* 

* * * 

01 1655 

c 

PIT CAR 


* * 


* 




01 1 656 

c 

PPNTG J 

♦ * 

* 


* 4 * 


* 

* * 

01 1657 

c 

U P D P V R 


* 


♦ 




01 1658 

c 

r< K A C A V 


$ 



* 

* 

* * * 

01 1659 

c 

hLCCUS 



* 





01 1660 

c 

rlflo t 


* * 


* 

* 



Cllool 

c 

*R C T CH 

* 

* * 


* 


* 

* 

01 1 662 

c 

PCI CS 


* 




* 

* 

01 1 663 

c 

PC T Tw 




* 




01 1664 

c 

$ F K t Q H 


* ‘ * 

* 


* 



01 1 665 

c 

ShAf-F T 




* 


* 

* 

01 1666 

c 

SFLCT 


* * 



* 



Cl l 667 

c 

START 


* * * 


* 




0 1 1 668 

c 

f FPL Y 







* 

01 1 669 


B-207 



** 

** ***** * * * * * * *** 
AtiCDDGuH I l I JKLLLLLLLLLLLLLLLLLMMMNNPPPPuSSTT VV 
M hONtiGoA LNV I QACb OO I K RSS TT V V '* WZ A I OH U I Lrt SPP J A l t 1 
IBNAAJSN I T CL SMUDES J A CT T I O l 20RM XSMN MN Tw T REMPMCN 


C 1 FT YP E 
C TCKCUfc 
C WTAFE 
C YCCT 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 

£***«* 4 * ** 4 * * * , 

c 

CCMMCN /AMJbW/ 
L$t iO in: 


E SPUTA AUNGUF IbUABl VkLAR 1 L 
U WA X I T VSfcRNL ZONT UZ AIKTL 
CR CAL RL-SGEAIAGe Y TIL 


RKOMCESBPJUJKcMccra 
KVOUNN RRTR r J 1 RNSuE 
liEMGG S AKrAFfUbRP 


‘* ********** 


AML 


C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c** ******* I 
c 


JYNS20 
FIN JU 
YDOT 


GtTbMB 
MGLN 
GR V gR D 


PR NT UU 


P A WAMLT tR S 2 


INtkH A MATRIX FOR BODY N * AT T=0 CJMPUTiD VIA DYNS10 STORED 
UN NT A Pfc. 1 v THEREAFTER UPCATEU IN MGEN 
COEFFICIENT MATRIX Uh EQUATION 11-34, VJ_ l 
SUBPARTITION UF fcHlCH IS INVERTED, COMPUTED IN E l NDU 


AREA ALSU USED 
COMPUTATION UF 


IN YDOl AND GET BM8 FuR 
LAGRANGE MULTIPLIERS 


WPU aSsuCIATCO WITH 


C CCMMCN /GHbSRO/ 

C LShJ in: 

C F I NJU GtiToMb ENGMCM 

C YUOT MG-N KHINGE 

C K CT DH GRVgRD CCNTPL 

C Li HGG NR ODD TOP PFNTUU 

C BSGCNR TGRUuE EGADD 

c parameters: 

C bH - 

c 

C ES 

c 

C RCL = 

C 
C 

C COL = 

C 
C 

C**** 4 «*H < * * 

C 

C CCMMCN /CUNPAR/ 

C USED in: 

C DYNSlO 

C UYNjlU 

C KHINGE 

c pahamcilhs: 

C CN10TA = INPUT IN uYNJIU. IN JYNS20 

C THE INITIAL CONDITIONS FOR 


PJINI KINEMATICS 


ARRAYS UF- ELc-MLNTS WhicH CEF lNt_ H INsjl. 

OCMPUTEU IN bhGcNK, SEE PAGE 36, VO. I 

ARRAYS UF ELEMENTS WHICH DEFINE SENIOR * 0 1 NT KINEMATICS 
CCMPUTED IN ji>GwNI<, Stc. PAGE 17, VO. II 

ROTATION TRA.mSFUR./iAT l CiNS RELATING T -i z dJJY AXIS SYSTEM 
TO THE INERTIAL REFERENCE. CCMPUTED In RUTDH, SEE PAGE 
V C L 2 

VECTUK CUMPUNtNT S f ROM INERTIAL REFwKENC E Is THE BODY FIXED 
AXIS SYSTEM, CuMPjTLD IN RCTDH, SEE PA oL io. VUL II 

* * ** **********.********** 


13 < 


CUN T HL 
IaNY OTHERS 


REQUIkcU SY UStKJ 


THE 
I HE. 


first nuelta elements are 

NJlLIA i)ir>tKLNT 1 AL 


01 1670 
Ci 1671 
Cl 1672 
01 1673 
01 1674 
01 1675 
01 1676 
Cl 1677 
01 1678 
01 1679 
01 1680 
01 168 1 
Cl 1682 
Cl 1683 
01 1664 
Cl 1685 
01 1686 
01 1687 
01 1 688 
Cl 1609 
01 1690 
Cl 1691 
Cl l 692 
01 1693 
011694 
01 1695 
Cl 1696 
01 1697 
Cl 1698 
01 1699 
01 l 700 
C 1 1 7 0 I 
Cl 1 702 
Cl 1 703 
01 1 704 
01 1 7 0 b 
01 1 706 
01 l 707 
01 1 708 
Cl l 709 
011710 
0117 11 
Cl 1712 
011713 
011714 
011715 
Cl 1 710 
01 1717 
01 17 18 
01 1719 
01 1 720 
Cl 1 721 
01 1722 
01 1 723 
Cl 1 724 
01 1 725 
01 1 726 
01 l 727 
01 l 72 8 
Cl 1 729 
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c 

c 

c 

c 

c. * ♦ * 

c. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c *' * * 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

l 

l 

C 

c 

c * * * 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c * *• * 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c ♦ * * 


r. UUAT l ON^ Ul T.ir.U IN CLMHL. T hf: ki.if aHl wuI.P OLF I NED • 
1 HU *w i»t k .v,a Y U.'.L I r-t i 5 ARC A TO l V j I •» X u A Me. I - MS NFi£ OLD 

i -J AN Y U jLH U lF SNlu S L t* i<OU TIN C 

< * < * ( M V H ♦♦**** >'<!♦♦?« ************** 

cc:>mc n zuma.uk/ 
u‘cj in: 

UYN^O 
L’ O AuG 

P/RAMt'.T lks: 

NALX t MUM'-ILN Ur AUXILIARY F.UuAT ION5 US- J T.J jJMNc THE SENSOR 
A Mu IfJkiTL SIGNALS kf. GUI k r.u FOP f . it., i f An I L l f Y ANALYSIS 
NAUX - N *65*00 TO (IN EC ADO) 

CCMMCis /Ok at U;/ 
use.) in: 

MAIN 

uAUiSi 

MUMS 

PAP wuuhs: 

If LI = INTEGER FLAG. OLEINES IF CALL TO jAujjl IS FPOM MUMS. 

If- SO IFLI--1. INI! IALIZC 10 /ERU IN MAIN 
IF L 2 = I Ml t.^uR Fl.A.j, IF L/.LL IS FROM NU-lo ANO lr L2 SET =1 IN 

s. AuSb l- A /tkj »<LiMc.KATGk u A l N CONDITION tNCO'JKT L ML 0 

CRV6C = »* I V 01 LLc.scMS oGh o IN GALSSI TC Cu.'PjTi: ThfcSE 

In F»/hN IL tit: i/Stlj TO GUT OET ( A ) 


****** $***■; 


r * * * * * *r * * * * * * * * * ***** * * * * *********** 


CO.VMtN / (5 uOA T A / 

used in: 

MA l N 
U Y NS l 0 
.»R Vui<L) 

P A « A ,v c TLk S : 

CAVG I = INPUT DAI A FROM JYNS1 0 CCMPCNfcNT GF GRAVITY VECTOR IN 
INERTIAL CtJUkU l NATES. SEE SUBWOUT t Nl JcF 3 KEucMNEl) 

I in UYNSU T G ou. COMPONENTS OF UNi I V-LluR iN DIPECTICN 
liF GRAVITY FIcLl). L GU l VALENCE < GA.Mo I ( i > . WV( I > ) IN DYNSIO 
(f’KCM GRAVITY oLGRCE TC VICINITY iuJEu LcNTEP OF MASS) 

CMAG - MAGNITUDE Uf- LOCAL GRAVITATIONAL 4 L C £ L b R A T l U N , COMPUTED 
IN DYNSIU. 5LE PAGE ‘♦b. VOL I (viAG« uF InR^T GAMGl) 

P C M A C- - MAGNITUDE Lr VLCTGk FFLM GRAVITY iUU.-<:: TO VICINITY GF 

SPACECRAFT INPUT DATA FF.’CM DYNSAO 


****** ** **********•, 


c*«********* 


COMMCN 

usl.j in: 

MGliN 
vjK V Gk u 
T OR OUE 

parameters : 

CGS = GRAVITY GRAulL.NT EFFECTS CN THE ELASTIC CUuTuiNATES OF EACH 
tICOY, CCJMPuTLu IN KutN SEE PAGE 52.VGL 1 

* * ********************** ******** * * * * 1 


Cl l 730 
01 l 7 .11 
Cl i 732 
01 l 733 
01 l 734 
01 1 735 
C\ V 73b 
01 1737 
01 l 738 
Oi I 739 
01 1 740 
Cl I 74 1 
01 I 742 
Ci 1743 
<U 1 744 
01 1 745 
01 i 74b 
01 1 74 7 
01 1 748 
01 1 749 
011750 
Cl t 75t 
01 l 752 
Cl 1 753 

01 1754 
01 1 755 
01 1 756 
Cl l 757 
01 1 756 
01 1 769 
Ci l 760 
C 1 1 7 b l 
01 l 762 
011763 
01 1 764 
01 1 765 
01 l 766 
01 l 76 7 
01 1 768 
01 1 769 
01 1770 
011771 
01 1772 
01 1 773 
01 1774 
01 1775 
01 1 776 
01 1 777 
01 I 778 
Cl 1 779 
Cl l 780 
01 1781 
01 1 782 
01 l 703 
01 l 784 
01 1785 
Cl l 786 
01 I 787 
01 1 768 
01 l 789 
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COMMON /KANOS/ 
usep in: 

jyNjcO bnoLNR boot OP 

YuOT R0TD:> 

ftOTuH oSoENR 

PAPA ME Tdfrs: 

HATH s MCUAL 0 l S PLAC cMtN IS AT HINGE POINTS 
5 I CM = MCUAL RUT A I IONS AT HINGE POINTS 
KATS = MCOAl 01 SPLmCc_MENTS A T SENSCR POINTS 
SICS = MCUAL KOTA! IONS AT SENSOR POINTS 


MM>******<«< 


(***?«(**¥***** 


COMMON /ILlNtfft/ 
USED in: 


MA 1 N 
DYNSIO 
DYNS20 
YDO r 

P/fiAMEl tks: 

IFLNER = 1 PERFORM LlNtAk TIME CR FREQUENCY wcSPON^E ANALYSIS 
= 0 PERFORM NUN-UNt A<< TIME RFISPCN^c. anjALYjIS 

THIS INTEGER IS SLT IN OYNSlO BY .> A T A INPuT PAR AML TER 
IPl) AT A ( J ) # jCL SUliRCUriNE L)EF 3 

** *4 *>(‘e#>9‘ 1 S<>C'>ic***$**t*#«**$4t**** ***************** *?«**$* 


COMMON /INTURL/ 

USED in: 

DYNStO GkVCKD 

YUOT TORQUE 

MGEN tNGMOM 

FARAMEThhS : 

AM = UNUEfORMLU INEkTIa MATRIX (M SUQ 0 IV EG 11-37) 

ACC F = ALPHA COuFMUtNrb UF EO II-bO U:>iO I u UEKiNE BODY • S 
STATIC MASS MOMENTS LINEAR DEPENDENCE UN DEFORMATION 
ECCF = l> COEFFICIENTS OF EU 11-88 USED TO OEFl.ME JOUY INERTIA 
TENdUK*S LINEAR DEPENDENCE UN DOORMAT I oN 


OOF 1 1 
COF 22 
CCF 23 
A K 
COF 12 
COF IJ 
CCF2J 
AO 

u;f x y 
COF >2 
CCFYZ 


>Ub 11 COEFFICIENTS OF EG I 1 -8* • i N e 4 I 4 A 
iUti 22 COEFFICIENTS QF EQ I 1-8^, iN-rillA 


TENSOR QUAD DEP 
TENSOR QUAD OEP 
IcNSOR QUAD OEP 


C SUB 
C S UU 


C SUB S3 COEFFICIENTS OF EQ l I -8^ • 1 N£ '< T l A IcNSOR QUAD OEP 
MODAL STIFF NE S^* MATRIX 

C SUB 12 COEFFICIENTS OF EG I I -9* • 1 N£fc T i A TENSOR QUAD OEP 

C SUB 13 COEFFICIENTS OF EG l I — BV t l NE R T I A TENSOR QUAO OEP 

C SUB 23 COEFFICIENTS GF EQ l l -9* • l Ni R T l A TENSOR QUAD OEP 

MODAL O AMP l N o MATRIX 
C sub XY CuEFFICILNTS CF F.Q I I —33 

C SUB X2 COEFFICIENTS OF EQ I I -8b 

C SUB ZY COEFFICIENTS QF EG l I -8p 


:$***«*«#*** 


COMMON /I VCD NS/ 

USED in: 

YUOT 

GCTUMri 

PAfiAMEl ERS : 

JV = INTEGER ARRAY SET UP IN GET 6MB » USED TU PERFORM THE SELECTIVE 


Cl l 790 
011791 

0 i l 792 
01 1 793 
01 1 794 
Cl 1 79S 

01 1 796 
01 l 797 
01 1 798 
Cl 1 799 
01 1 800 
011801 
Cl 1802 
Cl 1 803 
C t 1804 
01 l 805 
01 1806 
01 1807 
Cl 1808 
01 1 809 
011810 
Cl 1 81 1 
011812 
011813 
01 1814 
011615 
01 1816 
01 181 7 
011818 
Cl 1819 
Cl 1820 
Cl 1821 
01 1 822 
011823 
Cl 1 82 4 
Cl 1825 
01 1826 
01 1827 
01 1 828 
01 1829 
01 1 830 
01 1831 
01 1832 
01 1033 
01 1834 
01 1835 
01 1836 
01 1837 
01 1838 
01 1 839 
01 l 840 
Cl 184 1 
01 l 842 
Cl 1843 
Cl 1644 
01 1 845 
01 1 846 
Cl 1 847 
01 1848 
Cl 1849 
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onrrinnr rvnnnnnno 


C KOI* HULTiPLIUTluNj REQUIRED IN Ut TtJMcJ • PlCi^i JUT CONSTRAINED 

C 4ND UNC ONSTR 1 ANE J COORDINATES AT EACH Hl.NGc POINT* 

C. PRLVIdLS THc NUMdLK ING SEQUENCE FOR f He. .AJkANUc MULTIPLICRS 

C cVaLJATEO IN YUUf 

C 

C * * * * * * * * * i If if * * * ** ********** ********** ******* l * * * # 

C 

C CCFMCN / J l LF LG/ 

C USED in: 

C Y DOT 

C RKAuAM 

c parameters: 

C JIL = 1.2.3 UR 4 DEFINE CYCLE NUMBER IN FJJk STEP RJNGE KUTTA 

C l N fCuR AT l.UiN RUUllNt. USED IN YOGI Tu, Sc f FLAG WHICH SIGNALS 

C VihfclHcR OR NO I A NE« btT Or INDEPENDENT COORDINATES SHOULD 

C uh E V A L'JA T L'D l N F i NDO 

C 

C ***** * * ** ♦ * * *************** ******** ********* * * * * * * * * ******* 

c 

C CC-MMC N /KuSl /L/ 

C t it j In: 

C DYN340 LTLKOL 

C SFkLU2 LTklSP 

C PAUrt^tTtki : 

KR = J I Ml. Ns i uN OF ARRAYS IN / L I J V / * / L W A Ra Y / . / L V 1 / , / L V 2 / , /L WO RK 1 / 

KV1 = DIMENSION OF ARRAYS IN / L I J V / • /L R A RA Y / , / l. V l / • / LV 2 / * /L A QRK l / 

KRT = DIMENSION LF AkKAY R IN / L c L 0 T / 

KRX -= DIMENSION Or ARRAY Ra IN / LR CGT / 

KV2 = DIMENSION OF ARRAY R If- / L W C C T / 

KVX = DIMENSION OF ARRAY RX IN /LRCCT/ 

******* ** ** J ‘* ********************** ********* ******** ******* 


CLMMCN '/LAML3CA/ 

o iuj in: 

yoct 

PKNIGU 
PLOT VwR 

P/RAMcl CRj: 

C AL AM - IN YD J T LuUlVALc.NCc 1 A L AM ( l ) « V ( I ) ) arc A ujUJ TO COMPUTE 

C LAGRANGE- MULTIPLIERS* Ur'CN LX I T FROM r JUT ( ALAM ARRAY 

C CONTAINS TML Nl AM i N TLR CC NN E C T I C N LUNSJRA1N1 FORCES 

c i lambdas ) 

c 

C* ********** ***<C**V ************************** ***'**«-* ******** 

c 

C CG.VMCN /LUDAIA/ 

C uSeD In: 

C OYNjAO 

c. parameters: 

L F.MIN = FkuUUaNCY ^uL-’ LUlK LIMIT ( JYNS40) 

C FMAX - FKL'JUENCY UPPek LIMIT (DYNS40) 

C CftMlN- MINIMUM Do «xPuIIuJc FOR H CTOS’. NIC-iUL^ PLUIS (DYNS40) 

L MAXIMUM do AMFl H Jut FOR JJOt. NlCiuub PuJI’j IdYNS«*0) 

C 

C * * * * * ♦ * ** ******** 2* ***************** ****^**is***^**-rv ******** 

C 

C COMCN /LC GU NT/ 

C u 5 ld In : 

C DYN'jtu 


01 1850 
01 1851 
01 1852 
01 1853 
Cl 1854 
01 1855 
01 1856 
01 l 857 
Cl 18 58 
01 1859 
01 1860 
011861 
01 1 862 
01 1863 
01 1 864 
01 1 865 
Cl 1866 
01 1867 
01 1868 
01 1 869 
01 1870 
Cl 1871 
01 1872 
01 1873 
01 1874 
01 1875 
Cl 1 876 
01 l 877 
01 1878 
01 1879 
01 1 880 
011881 
Cl 1882 
01 1 883 
01 1884 
01 1885 
01 1886 
Cl 1887 
Cl l 388 
01 1 889 
01 1890 
01 1891 
01 1892 
0 I 1 893 
01 l 094 
01 1 895 
01 1896 
01 1897 
Cl l 898 
01 1899 
Cl 1900 
011901 
Cl 1902 
Cl 1903 
01 1904 
Cl 1 905 
01 1 906 
Cl 190 7 
Cl l 908 
Cl l 909 
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r>onnrvpnnnnr>nnnnnnr'nnnr)nnnnnr>r>nnnn 


C PAR AMETEkS : 

C NNR = NUMoLR Of REAL AND ZERO ROOTS IN NUA^RATQR ( DCURRT ) 

c ICN = NoMbER OF COMPLEX PAIRS IN NUMERATOR (DCORRT) 

C NNZ = NUMBER OF ZEkUS IN NUMERATOR (OCQRRT) 

C NOR = NUMBER UF REAL AND ZERO ROOTS IN DENJMINATUR ( UCQPRT ( 

C ICC = NUMBER UF COMPLEX PAIRS IN DENOMINATOR (uCQRRT) 

C NOZ = NUMBER OF ZERUS IN DENOMINATOR (JCOfiRTI 

C 
C 
C 
C 


c** ***♦**#> 


CCMMCN /LUtBUG/ 

USED in: 

l ALL ROUTINES HAVING DEBUG PRINT I No COOED ) 

PARAMETeRS: 

DEBUG =LUGICAL ARRAY SKIP DEBUG PRINT IN SUBRJJT1NE (DEBUG ff K) 
IF DEOUG(N) = .FalSE.. PRINT IF OuSUG(K) = .TRUE. 


CCMMCN /LOS l ZE/ 

used in: 

L i NcAR F1NUT LPLTWR EiAUD 

D Y NS AO TFTYPE LPRN T 

ASIMlR LlhtsP CC NT RE 

PARAMEIERS: 

NXSS - NUMBER OF PLANT SENSOR SIGNALS. JSuR UcF l N C D IN 
CONTRL. DEFAULT is 1 (FOR STABILITY ANAdYSIS) 

NHTQ = Nu,»iBER OF TuKQUL SIGNALS. USER OuF'iNEO IN 

IN CONTRL. DcFAULT IS 0 HOWEVER FUR LIABILITY ANALYSIS 
NOT Q MUST BE AT LEAST CNE, NR T G = Nb IN surtu ROUTINES 
NDLTA = NUMBER OF DIFFERENTIAL EQUATIONS JcFlvED In CONTRL 
EQUAL TO INPUT PARAMETER NDELTA IN LJNTRl 
NX = NUMBER OF iNULPLNuLNT COORDINATES IN THE SIATE VECTOR Y 

CUMPUTED IN L I NEAR 

NJC = NX + NUMBER OF AUXILIARY EQUATIONS. CUMPuTtD IN LINEAR 

NY2 = NX - NDLTA - NXSS. COMPUTED IN DYNsfJ 

NJ2 = NDLTA - NBTQ . COMPUTED IN OYNsAJ (NBTQ=NB) 

NY = UNUSED 


tn*t »*«*»< 




tCiVMCN /LI JV / 

c Li to in: 

C iJ YNb4 U 

C FINJT 

C p AiMKElLKS! 

C IV = INTEGER V.L3RK VECTLK PASjtO TO ASIMLR JYN5<*0. USED THERE 

C FbR RfcLuROfc-RlNU R * * ( - l > *M* R • EXIF RNJT WITH IV UElNG THE 

C fk ANSFOKMEL) STATE VlCTLK CCRWELATICN ARkAV 

C JV = ltsTtGEU V.UKK AREA OSLO IN FI NOT 

C 


C**t**44*4«tf«*> 


c 


c CCMMCN /LKAkAY/ 

c u^u in: 

c UYNS40 

c PA^AtVETtHS! 


01 I 91 0 
011911 
011912 
011913 
01 l 91 4 
011915 
01 1916 
011917 
01 1918 
01 1919 
01 1920 
01 1921 
01 1922 
01 1923 
01 1924 
01 1925 
01 1926 
01 192 7 
01 1928 
Cl 1929 
01 1930 
Cl 1931 
Cl 1932 
01 1933 
01 1934 
01 1935 
Cl 1936 
Cl 1937 
01 1938 
01 1939 
01 1940 
011941 
01 1942 
01 1943 
Cl 1944 
Cl 1945 
01 1 946 
01 1947 
01 1 948 
01 1949 
01 1950 
Cl l 951 
Cl l 952 
Cl 1953 
Cl 1954 
01 1 955 
01 1 956 
01 1957 
01 1 958 
01 1959 
01 1960 
01 1961 
01 1962 
Cl 1 963 
01 l 964 
01 1965 
01 l 966 
01 1967 
01 1968 
01 1969 
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U U 


C pfiRn = 

C t L'NC = 

C 

c 

c 

C Miwo = 

L f tfUC - 

c 

<. * * nc r». 

c 

£4***4 


I IML CUMilANl'b A •> .iuC 1 A 1 RO a l TH AIL »<_Au V^ulj Ui NUMCR A T CP 
P iV.UlicNC I E.5 OMz-jA ANd OAvl.MNo /.H TA* ^ irj.^UAlc.0 fcITH ALL 
CCM^S.cX fCUijl !» •-> T I riL NU Vilvi.A T GT< 
p ;;i.;m : 

5^*.- + L v 4 L ] A vCML C* A *S 4- OMC-i.>f >«i - o 
I IMt CON jr ANTS A^UJUAICO ’a tin ALL «l«. Kuuti Cf OfNCMlATCK 
F UndLitfiL l CS UMhwA Ariu 1 NCj ZF T A* j A.'j.yJ 1CA I tO '*1 TH ALL 

CCNPLfcA KtiUo Ur I>i*_ JtNCMI kaTUM 
44 NUMt:KA lUk/O-NLMi :\A TOR ~ TRANSFER hjNU h)N kKOUfcSTED 

4 * 4*4 4 4444 '* 4**4444 44 * 4 $: * 


c 

c 

c 

c 

c 

c 

L 

t 

c 

o 

c 


CCMMCh /LHIjUT/ 

LSfco in: 

DYNS40 

PARAMETERS: 

i< = »;t,CTS ARRAY CuMPili-U IN T frF FOB PART l «.UL A -< ImAiMSFCR F UNCI ION 
ROUTS COPMCN IU JI.NWINATOH and L ANClL LEO in cancor 

KX ARRAY USED TL S 1 UHL ALL C UEFh I CIlNTS .ir T ML NJrttHATOU AND 
CuMJMlN ATiJi< P*iLVn..:;-i IAlS . RCCTS I N R I J COMPUTE ThtSfc 

CufcFF l C I fc'NT S IN Klu 


C4« tM 44>4 4444*tf 4 44*44*4 v 4444444444* <-'4444444444444444444444* 


t 

c. 

c 

c 

L 

L 

C. 

C 

C 


C C v v, t N / L 5 T A R T / 


u Std in: 

jTAKl SPLof HI. PLOT 

PAUfc'Hd NlPLdT PL1CAR 

wTAPL NTPLUT 

FARAMIsTEkS: 


IRLNM = HUN NUMOcK, iNRul i N START 

30 AT t = JAT A UP RuN PLUM d I n ARY POUT INC 

ST* AGE = PACE CUUNTcR UPUA 7z.J IN PAOtHD 


4 * 4444444 * 4 44 4 4 4**44444 4 ♦ 4 ♦ *4 * * * 4 * 4 * 4 * 4***.***.*4 


C 

C CO MM C N /L3Tk n/ 

c used in: 

c iTAKt 8 PLCT RLPLOT 

C PALLHD MPLOT PLTCAR 

c WTaPl NYPLCjT 

L PARAMETERS: 

C L fv A M fc — USERS NAMl t I WPoT b I API 

C UTLEl = FIRST llTLu cAlH i'auc , INPUT START 

C IITLE 2 = -jlCONO I 1 1 Lc tACrt PAGE, INPUT STrrI 

C 

C44*4444***4*«4*4**44**4*4***4*444*4*****»***4*4***V****4*4* 


C 

C CGMMCN /LlITLt/ 

c uslu in: 

c DYNS4 0 

c p akameTcks: 

C. TilLE = INPUT PUH^AT ^0A4, PUT CN ALL FRCJJc.NCr JUMAIN OUTPLT DATA 

c. pp. int-uut a nj plots 

c 

£ 4***4 4 «** 4 ***** 4 * 4 ************ 9 * 4 ** 4 * 4 * 44 ***** 4 * 44444 * 4 **** 

C 

C CCMMCN / L I UL / 

c uscu in: 

C DYNS-4U 


U1 19/0 
01 1971 
Cl 19 72 
01 1973 
01 1974 
01 1 975 
01 19 76 
01 1977 
<M 19 76 
01 1979 
Cl l 980 
Cl 19 8 1 
0 l 1982 
01 1963 
C 1 l 984 
Cl 1 9 80 
Cl 1986 
Cl 1987 
Cl 1 988 
01 1989 
0 1 1990 
011991 
C L 1992 
01 1993 
Cl l 994 
01 1995 
01 l 996 
01 1 997 
01 l 998 
Cl l 999 
01 2000 
C l 200 1 
Cl 2002 
012003 
01 2004 
012005 
01 2006 
Cl 2007 
Ci 2008 
01 2009 
01 20 1 0 
01 20 1 1 
C l 2 0 l 2 
012013 
012014 
01 20 15 
012016 
01 20 1 7 
01 20 1 8 
012019 
01 2020 
012021 
Cl 2022 
Cl 2023 
Cl 2024 
01 2025 
012026 
Cl 2027 
Cl 2028 
01 2029 


B-213 



parameters: 

TOLN = iau = TOUkANCc. PARAtME Tt'RS ALL NUMlKmIlJM ANJ OtNGMlNATCR 

root LLjb than toln. ttjlu arc str iu 2t:RCi in call to 

SIFl VIA OYN540 


Ci i T T T i M $ A 
C 

c ccmmcn / l v i / 

C OSco in: 

C OYNSaCi hLLCUS 

C SFRKuE LTRL5P 

c p a h a .v t r e r s : 

C Vl.Vi.VJ = TcMPURAk* *ORK rtkt A S 




CMMMMMMMMMMS 

c 


/LV2/ 
) IN : 




ParamETlrs: 

XVI = «CRK AREA USLu IN CYNS40 FCR FREUUtNCY -IfcSPOMSE ANALYSIS 
x V 2 = 1»0RK ARC A OSLO IN uYNSAO FCR FREQUENCY liSHuNSc ANALYSIS 
XVJ s aCKK AREA ustu IN 0YNS40 FCR FREQUENCY MESPGNSc ANALYSIS 


WORK AHEfA OSLO IN UYN540 FCR FPCGUEN* 


RESPONSE ANALYSIS 


CMM+MMMMMMMMmmMMMMMMMMMMMMMMVMMMMMMMMMMMMMMMMMMMmMMMMMMMMMMM 

c 

C CCMMCN /LW0RK1/ 

C usco in: 

C UYNl.40 

C ORORVR 

C ETRE.SP 

c parameters: 

C Ml = o S E 0 AS MURK AREAS 

C M2 = OSEC AS WORN AKEaS 




c 

c 

c 

c 

c 

c 

c 

c 

c mm * * * 

c 


CCMMCN /LWRKV1/ 

lslo in: 


P ARAMETbR S I 
= MURK ARfcA 


CCMMCN /L2MOJL / 

USED in: 

START MHLuT 

PL T CAR NYPLCJT 

SPLOl RLPLOT 

parameters: 

AMCOfc = ARRAY SET OP bY SC4G20 ROUTINE MllJtSi 


c** * MM MM MM MMM MMMMMMMM MMMM 

c 

C CCMMCN /MAXMUM/ 

c oiiu in: 

C MA I N 


G l 2000 
012031 
C I 2032 
01 2033 
01 2034 
01 2035 
Cl 2036 
01 2037 
01 203S 
Cl 2039 
012040 
01204 1 
012042 
012043 
012044 
Cl 2045 
012046 
01 2047 
Cl 2048 
01 2049 
01 2050 
012051 
01 2052 
012053 
012054 
01 2055 
012056 
012057 
01 2058 
01 2059 
012060 
012061 
012062 
01 2063 
012064 
01 2065 
01 2066 
01 2067 
Cl 2066 
Cl 2069 
01 2070 
012071 
012072 
012073 
012074 
01 2075 
01 2076 
01 2077 
012078 
Cl 2079 
01 2080 
012081 
C12082 
Cl 2083 
012084 
01 2085 
Cl 2086 
Cl 2087 

Cl 208e 

01 2089 
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c. n Ci n r> 


C 

DYNS 10 

BHULNR 

BDUTQP 

EX I UK 

c 

mgmudc 

CiSGENR 

TORQUE 

biAFF 

c 

D YM 520 

GET bMB 

ENGMCM 

L J AJ J 

1 c 

F I NDU 

M.ut N 

PLOT wR 

DM I SC 

c 

parameters: 





c MLVA> = MAXIMUM NU.MU^K Ur BODIES 

C N H V A > - MAXIMUM NUMBER UP HINGES 

C KSPMAX = MAXIMUM NuMbtk CF SENSCR POINTS 

C ►MUMAX = MAXIMUM NUMBER OF MOMENTUM WHEEL* 

C f'MWUCD = MAX l MU M NUMBER LF MOMENTUM WHEELS PE BODY 

C ISMCHCO = MAXIMUM NUMBER CF FLEXIBLE BOD Y WuDES PcK L*UDY 

C KMU = MAXIMUM NUMBER LP VELOCITY VARlAu-tS J CK BODY (U*S) 

c ky = maximum number ci- parameters in Ml state vector 

C KU = MAXIMUM NuMBER CF VELOCITY VAftlAuucS : J« SYSTEM 

C (ALL OF THESE PARAMETERS ARE SET IN MAIN* IU CHANGE ANY OR 

C ALL UP THEM THE ftLulMcNSICN PROGRAM MUSI u£ USED WHICH 

C Vi ILL REDIMENSIUN THE APPROPRIATE PARAMEI^kS IN THE PROGRAM 

C REU I MENS I CNLU PROGRAM MUST THEN BE RcCuMPu 1 1 J i 

C 

C**#***$4 i i t **44*4**4*4*4#**<' [ 4< J *4**4*< c 4*************4#**< t *44** 

C 

C CGMMCN /MSCNO/ 

C USED in; 

C MAIN PHNTGU 

C OYNSiC LTRESP 

C L)Y N*2l) DYNSEO 

c parameters; 

C NOPRM = INPUT PA UhMl I l K iPUATA(l) READ IN uYN*lU. PRINT OUTPUT 

C JA1 A EVti<l Nu PK N T MO L T I PL tS UF l.jf tioTAI ION STEP 

C MJPLCT = INPUT PAmMlILK l PDA T A ( 2 ) READ In UVNSIO. PLOT CCNTFCL 

FUR TIME htaPtiNSc PLOT EVERY NOPLJT HUL/iPuES CF 
INTEGRATION *TeP 


C * * 4 4 4 * * * * 4 K tf « 4 4 4 4* >U * t't 4 4 * * * V ■* **♦♦***¥ 4**4 R H # f * 

C 

C CCM.VCN /NuMENG/ 

C USED in: 

C YuC f PKN I UvJ 

C I OR' Du E Pm. 1 rtR 

C ENG Mu M K 1 1 1 No E 

C PARAMETERS: 

C P - OLD i NARY MOMENTA COMPUTED IN YDOf ♦ SEc cuJAI'iON 

C iI"<*^iVOL i 

C FMCM = UUNTRiBUTiUN To ILIaL ANGULAR AN* uI-JLak MUMEMUM OF 

C LALii bliur. LUMP U I c. u IN en gm om 

C MCI - JiJTal uYulcM ANuULAR MOMENTUM VL’U I u»< • Cu.'iPoIED IN CNGMCM 

C TOTAL = TOTAL S ySIeM uInuRAR MOMENTUM VcCfJ«« CuMPJTEO IN ENGMOM 

c lngxl - cun r»t luuriu.N to iutal mnetic ln^kvjy of lmlh body, 

c Computed if* 

C CNGPC - uUN TRLlJU 1 ft UN lu fulAl. POTENTIAL uEKjf Ur EACH BUOY * 

C - COMPUTED iN -ciUuMUM - - 

C TUTKTE = 'IUTAL K * Ul. I i C ENcKOY CC4PUTE* 1 i>* 

C I CJ T P G — TulAL POTc.NTIaL LNlI^Y « COMPUTED IN ^NUMUM 

C 1UTEKG - IUTAL i-N'-hoY l T ♦ V ) • uC. MPUlEu iN cinuMuM 

C AMICI - J'UI «L ANGULAR .MI.'-IlM V-«t * COMPUTED JN fcJJ -»MOM 

C A T C T L “ TOTAL Ll.NL/iK Mu ML MU** . CC.MPU T r .> IN "NuMuM 

C 


Cl 2090 
Cl 209 l 
012092 
01 2093 
01 2094 
01 2095 
01 2096 
01 2097 
01 2098 
01 2099 
Cl 21 00 
012101 
012102 
Cl 2103 
012104 
Cl 2 1 05 
012106 
012107 
Cl 2108 
Cl 2109 
012110 
012111 
012112 
Cl 21 13 
012114 
Cl 21 1 5 
012116 
Cl 21 17 
Cl 21 18 
012119 
CI 2120 
012121 
012122 
Cl 2 123 
012124 
01 2125 
Cl 2 126 
01 2 1 27 
01 2 128 
Cl 2129 
012130 
012131 
01 2 132 
Cl 2133 
012134 
01 2 135 
01 2 1 Jo 
012137 
01 21 38 
Cl 2 1 39 
012140 
Cl 2 1 41 
012142 
01 21 4 3 
012144 
Cl 2 145 
01 21 46 
012-147 
012148 
01 2149 
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n r. 


c 

C CCN'.MCN /NHNli/ 

c j in: 

C DYN510 MRiGIO 

C MSMuOL 

C MSMUDC 

C P £ R A M L T Ek S : 

C NHPQI = NUMBER UF nlNGES D N L ACH ECOY * COMPUTED IN DYNS10 

C NSPQI = NUMutK Ui- SLNSUR POINTS ON EACH UIJDY. lUMPuTED IN OYNSIO 

C 


. 4 4 4 4 4 4* 4 44 44 4 


C 

c 

c. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


CCNMCN /NUMuHl)/ 
UEcD in: 




M A I N 

Ck'L a 



MSMUUC 

CftLb 



MSMUOL 

CREC 



CRC T^> 

«U I T R 



CREADCJ 

DYNS20 

P/JRAMETcRS: 



iRQ = 

0 • DU 

( ALL oc T 

IN MAIN) 

CNE = 

1 .DU 



T to C = 

2. DU 



TRES = 

2 « DO 




F 1NDU 

U - TDM 0 

ENGMCM 

YOCT 

M G E N 

CREMUCJ 

CREE 

v* "i V GK 0 


BHGENR 

BJDTCiP 


OSGF.NR 

TDK DUE 



£# 44444444 ; 


:* 4 ## 4444 v 4 ¥ 444444 * : <* 44444444 #v 4*444444 


C 

C 

c 

c 

c 

c 


CLMMCN /FINPP/ 
L ScO in: 


RUTOH 
BHGENR 
DDG TOP 


PARAMETERS: 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PIN = PC1ATIUN TRANSP uKMAT I CN MATRIX PEL AT L NO BJuY FIXED ANGULAR 

R A 7c. 5 TO EULfcR RATES BETWEEN P AND J FRAMc AI EACH HINGE. 

CLMPUTED IN KUTOH 

RP2 - CCMPJT ED IN KOI T K VIA CALL P R CM ROTDH 

R P 3 = CCMPUi CD IN KO I i K VIA CALL FROM RCTJi 

(OLTH f < P 2 « R P 3 uStO IN PD G T QP TC OBTAIN J / J I ( P l < I N VEP SE ) ) 

4 4 4 4 4 4* 44 4444*444 44*44»4444 #4444444 4 444 PH 

CCMMCN /FLluTA/ 

USED in: 

MAIN UYNPJO 

UYNS^O UYNS+O 

PLUTtoK lpltwr 

p arm meters: 

NRFLCT = BOTH ARE INTEGERS CUMPUTED IN PLJIttk, UPLlaR AND D YN S3 0 
NCPLCT THEY ARE USc IN D > i\S 3 0 FUR CM E A T i D N Jr PCUl S 


C 4 4 444 44 4 4 > 




c 

C CCMMCN /PHWUftK/ 

C USED in: 

C LINEAR 

C KK ADAM 

C PAKmMcTLRS: 

C FK — UuAL PURPOSE «UkK AREA. TEMPORARY STORAGE AREA FOR ADAMS P/C 

C INTEGRA T ION ,U.UoR?f«M IN UK AO A V * TEMCrARY S)URA<,L AREA IN 


012 ISO 
012151 
012152 
01 2153 
012154 
012155 
01 2156 
012157 
012158 
01 2159 
01 2160 
012161 
01 2162 
012163 
01 2164 
012165 
012166 
Cl 21t,7 
012168 
01 2169 
012170 
012171 
Cl 2 l 72 
01 2 L 73 
012174 
012175 
012176 
012177 
01 2 l 78 
01 2 1 79 
012180 
012181 
012182 
012183 
C12 1 84 
01 2 1 85 
012186 
012187 
012188 
Cl 2 1 89 
01 2 190 
012191 
01 2 1 92 
012193 
Cl 2 1 94 
01 2 195 
Cl 2 l 96 
Cl 2 l 97 
01 2 1 98 
012199 
C t 2 2 0 0 
C l 220 l 
01 2202 
01 2203 
012204 
01 2205 
Cl 2206 
01 220 7 
01 2208 
01 2209 
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u u 


c LiN£A(< FOR OdVAlNING PARTIAL VATlVe 4AH<I A 

C 

C 'f * «M * * «+ ■* 4 $ * 4 * * 4 * * *f <= ******** ******* 

c 

c Ct . ■■* m cn /PS ruf'F/ 

c uScj in: 

c. rl MP iur o v NS 4 o 

L ft LOCuS NYHLUr 

C SPLOl KLPLCM 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

(<~- 

c. 

c 

c 

c 

c 

c** 

c 

c 

c 

c; 


P AWaMLI 

K s a V 6 


SA',bC -- 


SAVED 
SAVE P 
S A V f; A 


C F THt 


THE TRANSFER 
HI CH 


K S I 

TOTAL NJMUlK Ur PulMS SAVED FOR Tin ^.'MllrJ 
FRr.GJcNCY hL SPUN SE DATA 

(IN ST-Rf G2 ) | Mu ARRAY CF F Mr CUE NO Lb A I a M i s. 

rUNCUHN IS EVALUATED T F A T I :» ALL FOX 

TFU¥i.Mtv>A> = At.f|-A »■ («Ot:(A 

IS LCMFUTtu 

(IN RLuLLs) tiJOl VaLlMCl*. I S a V E O ( l ) »< .> A ✓ r. ( l ) ) f HE ARRAY 

Cufef Alw&b PIE Ki. AL LuOPO l N A TfS OF I rlu ’uINTS FLU NO TO LIE 

AL UN 6 THE mOOI l.L'CUb 

(IN RL(JLUS) LuJ[ VALL.\Ci: ( 3 AVEP( 1 ) , Y jAVi i l ) ) THE ARRAY 

CENT Ai NEb THt 1 M AGINARY 0.0 CR l) l N A T i o UF T i ici Pol Nl b FOUND 


TO LIE ALCNw 
{ IN SF LO 2 > 

Aft = 

JPHi = 


1'hli RLU I L ( > 0 U 5 


JbxiMi AlPHA»*2 ♦ U£Th¥¥^I 
oAT AN 2 ( J c T A * ALPHA ) *57 . 29 j 6 


ObtLL = 8 
CUnLL FOR cACH 
u» * m I FOR cACh 
A rt f OP lAvlh 


< jPhi < 260.0 
» U c5i> 69 6 l * 01. 06 ( A R ) 
lKEOA 
l j N i_ G A 
uKc u A 


> i c. c. o.ooo — 20*LCG(E) 


H > * 4* ***«'*• V ****************** V*** ** ***>****:*¥*„£ (i«* » 


tCVMEN /CPF NT A/ 

uSdJ l n : 


uYNoLO 
RK AC AM 


C 

C 

c 

c 

c 

c 

c + 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. 

c 


P Aft A VLTcKj : 

CRN = IMII ALI7LJ IN UYNS«_0 TO C.DO. TR MP u -i A « Y oIORAGC AREA USED 

G> NU Eft I C Ac l N < t v»R A I I UN PULTInE 

Ph K s V.LNS7AN1 5 KcOiJt ntD UT INTEvjPATIiJN A w oii R i i MM • oET IN O Y SN 2 0 

Nl — CCUNT ck cRDATL AT iiNJ OF EACH INTEGRATION bIbP 

* * 4 4 < * H 4 * I* * »v«1< ********** *****<•' **************** ********** 


CC.MMC N /sPtCIF/ 


used in: 

M A l N 
u Y N S | 0 
M o -MUuL 
MS MOLL 
MR 1 61 D 
OYNSuO 


F 1 Ncu 
>«JUT 
bHbLNK 
KOTOS 
Loo LN R 
oc T om o 


MG EM 

GRVGRO 

COOT OP 

TCJRCUE 

ENGMCM 

PRMQU 


P> jl WK 
A o I MLR 
FINjI 
K i i Nub 
con r KL 
T uft 


SHAFF T 
EOAOD 
GMISC 
ROTDH 


R Art A ML t e r 5 : 

tic T Ah - INPUTT to IN JYNblO. 

I Ni T I AL CCJNO I ^ l LNb . 
STRIPPED f kM STATE 
Hi PRNTOJ, St L PAGE 


C C NT l GOOuS Hi N \jC FRAME UftlENTATl CN 
UPDATED RELATIVE OkIcNTATICN DATA 
VECTOR Y IN RuTD.H. UoTPuTTEO 
IS. VOL II ANJ sJSRUUTINc DEF3 


01 22 l 0 
0 12211 

012212 
Cl 221 3 
012214 
01 2215 
Cl 2216 
01 22 1 7 
Cl 22 l 8 
Cl 22 19 
01 2220 
012221 
01 2222 
C 1 222.3 
012224 
01 2 225 
Cl 2226 
01 2227 
Cl 2226 
01 2229 
01 2230 
Cl 223 1 
012232 
Cl 2233 
Cl 2234 
012235 
012236 
Cl 2237 
01 2238 
01 2239 
01 2240 
0 l 224 l 
C 1 2242 
01 2243 
012244 
012245 
01 2246 
Cl 2247 
01 2248 
01 2249 
01 2250 
01225 1 
Cl 2252 
Cl 2253 
012254 
Cl 2255 
"1 2256 
012257 
01 2258 
01 2259 
012260 
012261 
01 2262 
012263 
012264 
Cl 2265 
01 22o6 
01 2267 
01 2260 
Cl 2269 
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nonrionnnnonr»nnnr>nrinnnnnnr, nr 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 


c 

c 

c 


LETAFO - INPUTTED IN DYNSIO. CONTIGUOUS Hi NGE =«AMc RELATIVE hAT£ 
INITIAL CUNu 1 T 1 LNb • UPDATED RELATIVE mA]£ DATA CCMPuTEO 
IN YOGI STORED IN YOT AND HETAHD AHtiAVb, SEE PAGES 
iu, VOL II ANu IjuuUUUTI.NL D£F3 

AM C. = INPUTTED IN o YNSIO. MOMENTUM WHEtL u J i N RaTu AND SPIN 

iNuRTlA INITIAL CONDITIONS. VALUuu WJT UPDATED. SEE 
3 Uu RCJ T 1 NL OuT 3 

KH •■= i NT EUMh.0 i AT L NOTATION TRANSFGRMA1 i UN'j UStU TO COMPUTE 

rttLATlVE l.R i uN! ATI CN OF OOOY FIXtJ KlFzkcNcE FRAMES 
COMPUTED IN WuTuH* SEE COMMENT CAi<D5 TH«_RtlN 
RS = NUTATION iH ANuH UKMAI ICN BETWEEN sCNSJrt AXIS SYSTEM AND 

tJUUY FIXED AX l U SYSTEM, CCMPUTEO IN TJIOS, jtE RCTOS ALSO 
SLL PAGE 1 9 * V UL II# INITIAL VALUES CjvIPUlciD IN NOTTR 
VIA A CALL F R CM MN l G l D 

OH = VECTOR TO POSITION HINGE TRIAD M T H «-5P£CT TO BODY TRIAD 

INPUTTED IN MKiuiUi IF FLEXIBLE jJJY uuMPUTlD IN MSMCDL 
OR MSMUOC. UPDATED IN RGTDH • SEE JUT iNt DEF3 

OS = VECTOR TO POSITION SENSIJR TRIAD w l TH REsPECl TO BODY 

TRIAD INPUT TuD IN MkIGIO* IF FLEa Idle BUOY computed in 
MSMQDL OR MSMOUC. UPDATED IN ROTDs, SuE SUuKGUTINE OFF 3 
IMO = OAoIC MCML.NTUM WHEEL DATA INPUTTED IN DYNSU* SEE PAGE 

Su’OKOUTlNt D u F3 • DcF I NES SENSOR PJlNT NUMBER F CR WHEEL# 
SPIN AXIS NUMBER AND WHETHER IT is ACHVc OR CONSTANT 
SPEED, ALsu SEE SUE, QEF 4 OUTPUT uYNSlU 
NMCW = THE MOMENTUM WHEEL/cKJOY TABLE, SEE DuF<* OUTPUT DYNSIO 
DtF I N'E i> NUMBER OF WHEELS CN BODY, WHICH ARE VARIABLE 
SPEED AND RESPECTIVE SGNSCR POINT NUMBERS# COMPUTED IN 
DYNSU 

IFTSMW = SuNSOR POINT /BODY CORRELATION ARrAY DEFINuS body number 
CN WHICH LAC 1 afcNSCR POINT DEFINED. INPUTTED IN DYNSIO. 
SCc SUB L)tfj AND ucP4 INPUT/GUTPuT JYNolO 
NO = NUMBER OF BODIES IN MODEL. INPUT DYNSU. stu Dt F 3 

NH = NUMBER OF HlNoLS IN MODEL, INPUT uYNslU. StE l)E F3 

NSFT = NUMBER OF SENSuR POINTS . INPUT UYNslU. SEE Dt F 3 

NOFMC - NUMBER OF MCMtNTUM WHEELS, INPUT DYNSIO, SEE OEF3 

NDELTA - NUMBER CUNTRL u I FF • cOS. , INPUT DYNSU, SEE DEF3 
ITOPCL = TOPOLOGY ARRAY, , INPUT DYNSIO, suu DEF3 DEFINES 

THE BODY NUMBERS OF THE CONTIGUOUS U'JDIuS aT EACH HINGE, 
ALSO DlFINcS DIRECTION OF POSITIVE cUucR ANGLE ROTATION 
RL T = A 1 * 42 * A 3 

AUA2.A3 I RANSFURMAT I CNS FOR l - ST , 2-N D , 3 - r<D POSITIVE 
ROTATION, SEE PAGES 4-7. VOL II 

IRGFLX - NUMBER OF FLiXlELt BODY MODES FOR EACH uuDY , SEE PAGE 
4-7, VOL II AND DLF3 

1HDATA = HINGE POINT CONSTRAINT DATA, SEE DcPS, INPUT DYNSIO PP 4-7 
VUL 2 

LOCU - STATE VEC1UR LuCATlUN ARRAY, SEE DEF'4, CUMPUTTED 
IN DYNSIO 

LENU = STATE VlcTUk LcNoTh ARRAY, SEE DE r 4 , LGMPuTTED IN 
DYNSIO 

NU = NUMBER OF U»s IN STATE VECTOR, SEu DSF4. PP4-7 GF VGL II 

COMPUTED IN DYNSIO 

NB ETA - NUMBER OF BE 1 A * 3 IN STATE VECTOR, SEE DEF4 H PP4-7 VGL II 
COMPUTED IN DYNSIO 

NL AM = NUMBER UF L AM Du A 1 S ( Cl > N S T P A I NT S ) . S £ E J-F 4 PP4-7 VOL II 

COMPUTED IN DYNSIO 

NEG = NUMBER GF SI Alt cGUA T I GNS TQ' INTujRATE SEE UEF4 

COMPUTED IN DYNSIO 



01 2270 
01 2271 
Ot 2272 
01 2.2 7 3 
012274 
01 22 75 
Cl 22 76 
012 277 
Cl 22 70 
01 2279 
Cl 2200 
0 1 2281 
01 2282 
01 2283 
01 2284 
01 2285 
Cl 2286 
01 2287 
01 2288 
01 2269 
01 2290 

0 12291 
01 2292 

01 2 29 3 
Cl 2294 
012295 
Ct 2296 
012297 
012298 
01 2299 
C 1 2300 
012301 
Cl 2302 
Ul 2303 
Cl 2304 
01 2305 
012306 
012307 
01 2308 
012309 
01 2310 
012311 
012312 
Cl 2313 
012314 
Cl 2315 
Cl 2316 
012317 
Cl 23 1 8 
01 2319 
012320 
012321 
012322 
01 2323 
012324 
01 2325 
01 2326 
012327 
Cl 2328 
Cl 2329 
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n n o n n nnnnnnnnnnr. nnnn 


CCMMCN / £l>MMRY/ 

lsed in: 

O V .N s 1 0 MR I O 1 D 

MjMUUL 
M SMuU L 

P ARAMfc l uHi: 

KSUMPY = RUV» DIMENSION OP A&O.MRY AND ISUMRY A-< k A Y S (DYNSIO) 
ASLMFY - REAL NUMdEK WORK AKfcA ARRAY 
1SLMKY = INTEGER NUMdcR WUKK AREA ARRAY 




‘+♦**♦♦***♦*¥*4 


CCMMCIS / 1 APi.NO/ 
uStJ in: 

MA l N 

CKL ADO 

0YNS20 

U Y N g 4 0 

UYN3 10 

CkEA 

YDOT 

AS I MLR 

MS MULL 

CkLC 

PLCT *R 

LPL T mH 

M 8 MuU L 

CKlu 

L I NE A R 

LT RLbP 

CHET 3 

MR 1 GI O 

UYNS30 

C R a M U O 

PIWAMtl £ k S i 

NTAPEl = I SCkATCm TAPE 
MAPEt = 2 SCRATCH T AP c 
MAPEJ - 3 jUATCu TAPE 

NjMLc R 
NUMocK 
NJMLEP 

SET IN MAIN 
SET IN MAIN 
SET IN MAIN 



CREE 


C 
C 
C 
C 
C 

c 

C CCMhICN / I i ML S'j/ 

C USE j In: 


• * * * 4 * 


C CF = oiilTA r = IMjATA(c) INPUTTED PARAMEIEk JIMgU (STEP 

c ' I •= T 1 r«i i_ t J AK AMlIlK iNLhuMtNTEO IN R .< A DA A u« l/KE^P 

L ~ t :N_/T - TMDATAld) INPuITLO PARAMETER UYNjlC Il.NO RUN 

C I Vi $ T - C • J IN DY NdcUl T 1 Mu cLAPbUD FROM SI AN I I INCkuMENlEU 


SIZE ) 


TIME) 
RK ADAM 


C 

0 

c 

c. 

c 

c 

C** 


P L k A ,vfc |\.k g : 

Y -= STaTu vtULh loLL APPENDIX P* . Yuu 1 PJR ARRANGEMENT) 

>) = FikST I I ME Ul>lvAMVr. UP SYbTtM SfAI- VcuUKi AlL fcCUATICNS 
1U cJu IMC-iHAIt*) INCLUDED. IN L OAOD .NJa AJXIlURY ECU A T l CNS 
PUR LlNuAk jIAuIU TV ANALYSIS. ( Yul = YJ» 


Cl 2330 
012331 
Cl 2 332 
012333 
0 1 2 334 
01 2335 
01 2336 
Cl 2337 
01 2338 
01 2339 
012340 
01 2341 
01 2342 
Cl 2343 
012344 
Cl 2345 
01 2346 
Cl 2347 
01 2348 
01 2349 
01 2350 
C l 235 l 
01 2352 
012353 
Cl 2354 
01 2355 
01 2356 
Cl 2357 
01 2358 


C 

DYNSi 0 

FR.NTUU 

LPRNT 


01 2359 

c 

JYNS^O 

PL-0 T *> R 

L T UR GL 


012360 

c. 

F 1 NOu 

UY N34 0 

CENT KL 


012361 

c 

YJUT 

L 1 «tbP 



01 2362 

L 

K K Ad AM 

LPL 1 wR 



012363 

c 

P Ari A ME Ic«5: 




012364 

c 

ST = START T = TMuATACl 

) INPuTT 

Ed PARAMEI-R 

(INITIAL TIME) 

01 2365 


012366 
Cl 2367 
012368 
01 2369 


C 


LA L 1 ktiSP 




012370 

c; 






0 l 2371 

c * 

<; £ £ * « * * * « <: .* 



)i««f «#(iH 

* .jc * * * * **«?#** 

Cl 2372 

c 

(. 

L C V M l N 

/ v£CT JR/ 




012373 
Cl 23 74 

c 

u SLJ 

IN : 




01 2375 

c 


DYNoEO 

•ok V ok 0 

0YNS40 

AST 

Cl 2376 

c 


P i Ni)u 

bUL TyP 

A S I 4lR 

AS J J 

0123 7 7 

c 


YDOT 

Tuk UJE 

tfpl y 

Co Ml RL 

012378 

c 


L 1 NEAR 

lng mum 

L T fit SP 

C.A I UK 

Cl 2379 

c 


r’U T Uri 

Rk AuA .•*. 

LPLT »P 

oil Ar P T 

01 2380 

c 


KU Tug 

PPIv I LU 

LPRNT 

fc*J Ad J 

012381 

c 


MGLN 

J-'Lu I i> R 

L T OR GL 

GM 1 SC 

012382 


Cl 2 363 
C 1 2384 
01 2385 
01 2386 
C l 2387 
012388 
01 2389 
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nonnonnAn aaaaaaaa aaaaaaaaaa 


* # 


CO MM C N /VINDEP/ 

USED in: 

l)YNJ20 
F I NDU 
L I NEAR 

pfi Rmmeters: 

INOEF 


RKADAM 
AS I MLR 
F l NOT 


IV 


= USED TO DEFINE INDEPENDENT CCOROiVATES IN THE STATE 
VECTOR Y « FROM FiNDU IF INDLP(I) = 0 CuURj I N AT E I 

IS DEPENDLNT IF = 1 IT IS INDEPENDENT. IN FINDU A OPTIMUM 

SET OF INDEPENDENT COORDINATES IS EVALUATED AT THE END 
OF EACH FULL INTEGRATION STEP. IN DYNb 20 ALL COORDINATES 
IN STATE VECTOR Y INITIALLY TAKEN AS INDEPENDENT 
= IN LINEAR EOU l VALENCE ( INDEP< 1 )• IV t 1 ) ) 


* « 


£ * ** * A 


FETUFN 

END 


01 2390 
012391 
012392 
Cl 2393 
012394 
01 2395 
Cl 2390 
01 2397 
012398 
012399 
012400 
01240 1 
012402 
012403 
012404 
012405 
Cl 2406 
C 1 2 40 7 
01 2408 
012409 
Cl 2410 
01241 t 


SUBROUTINE UEF2 


DEBUG A 113 


C 

C 

C 

C 

C 

c 

c 

c 

c 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE CALLED E Y / SUBROUT 1 ML CALLS 
CROSS-WEFfcKCNCE MATRIX 

A EUUGCCCC CCCCCDDDuEFF GG 1 ILL LLLMMMMMNNN.^PPU JR K*RRkRRRPSSS T T I Vw WY 
S AGHSCUkkRKKRRYYY Y.N1 1 LRNN IPTTT AGRSS IUYAlRM-<c.c.KLLJJOT WFP TFF OR RO 
l K CG GMNeE Et'EEE NNNNS NN T V 1 VNR ACRI E I MMP MPo T NCD A A AuP 1 I T ARRLAPTRI 10 
MS TcEEl mAUCEMTSSSSMDDD^A 1 LNPRENNGOOL SLlil TU-* OOOCLOOTP IECRLYCT T T 


LLCNNNR D 

UJ1234L)1U MRP NA TECS 

I DO 0 

OiAONV 

i A JUrlbRE T QTT YPUE 1 

RVPRRTL U 

U 000 OM BJtPk LP 

DCLT 

T J R o K 

MMST E2 EE M 

ADD T 




* 

ALC3 * 

* 




ACT 

♦ 




ALP F A A (NUNE) 





AS 1 VLH 

* 




ASQR 

♦ 




GAG T (NONE) 





E AK SL V 





UDO TOP 





LJFGENR 




* 

nsGENR 




♦ 

OTASA 


* 



CANCOR 

* 




CCMENT 

* 





012412 
012413 
01 24 l 4 
01 2415 

01 241 6 
01 241 7 
01 2416 
01 24 19 
01 2420 

01 242 l 
012422 
012423 
0 12424 
Cl 2425 
01 2 <426 
01 2427 
Cl 2428 
0 l 2429 
01 2430 
C 1243 1 
01 2432 
Cl 2433 
01 2434 
01 2435 
012436 
01 2437 
Cl 2438 
Cl 2439 
012440 
0 1244 I 
012442 
Cl 2443 
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c 

< C;\ ML 



C i 2444 

c 

c. r. l a 

<* 


01 2445 

c 

L h >- AO L 

A 


Cl 2446 

c 

C P t= L' 

* 


01 2447 

c. 

CP EC 

<x 


01 2446 

c 

<* s ,-e 

♦ 


Cl 2 4 49 

c 

cnr*: vijt; 

A 


01 2450 

c. 

c.wf rj 

* 


012451 

<: 

LUN a 1 


4 

01 2452 

c 

l r a ..tv i 

* 


01 2453 

c 

JY.tr l 

( :\ i j N L; ) 


01 2454 

c 

.:,r 2 

INUMh > 


01 2455 

c 

fjf r f,Mh 

* 


01 2456 

c 

0 IX A^i 

♦ * 


01 2457 

<; 

:;Rfc* «L 

* * 


01 2456 

c 

.)VN 01 U 

* 


01 2450 

c 

o v \ ? 2 o 

* 


01 2460 

c 

3 v ns j c 

* 


012461 

c. 

o 

♦ 


012462 

c 

A PLoULCCC CCCCC r Hwu 4 i LL 4.. l.LV kP P SSS T T TW to V 

01 2463 

c 

fi 0 

C.L* ! i\i Hkcft s'k Y Y Y YM I l L«NN l P T T T AtjRfiS l OYA^k W ■< i *i KL l. JOCT ViF FFCRHO 

01 2464 

c 

f KU 

»G n:4i;. J liulijifc NhNNu NN TV VVNft AC« 1 fc I MM P AP ^TNtJAAAii P T V T ARHLAPTH I 

IO 

Cl 2466 

c 

M £ T i. ,:L T /* A HC h:M T 55 5 6 '4 uuhO A ILNPRt **i Nf»OCL SLc.1. IU<i^i)U.'jwTP ItORLYCYTT 

01 2466 

c 

LLC.'INNH o U.312aAL) 1 i>f.-.i<PNA 1 f£C5 IOOQ OhaoIW l AguilsRt' TOTT YP0£ 

l 

012467 

c 

Q \ t > 

UttlL O i) >JoOQri cot.PR LP OCl r r< MMSl' E2 tf E 

M 

01 2468 

c 

c u; vi ic 

* 


Cl 246G 

c 

i N'.i N 0 .v 

$ 


01 2470 

c 

».C 4 Cl.) 

♦ 


01 2471 

c 

X f CP 

♦ 


Cl 2472 

c 

f L- T CP 

<t * * * if. * <e $ 


01 2473 

c 

HNi T ♦ ’ 



01 2474 

c 

f !NCU 

❖ 

4 

01 2475 

c 

F f T 

* 


01 2476 

c 

rcPNh 

{NUNE J 


01 2477 

c 

CAL SS l * 

* * * 


01 2470 

c 

GL'T £ M U 


4 

012479 

c 

CM iC 

* 


01 2480 

c. 

<J f* V CRD 


4 

Cl24ei 

c 

I NT APt 

« 


01 2402 

c 

l IS V 1 N P 

* 

4 

01 2403 

c 

r\ h l N G £ 

* 


012404 

c 

UMrAF 

■* 


01 2485 

c 

l.rL lWf» 

* 


01 2486 

c 

L.PR M 

* 


01 2487 

L 

l T A F-k 

* * 


01 2488 

c 

L T CP 0 L 

* 


01 2489 

c 

L. TP ESP 

* 


01 2490 

r 

f/.MN 

(NuNC MAIN PROGRAM) 


012491 

c. 

MC-E.N 


4 

012492 

c 

VLT Srf 

* 


01 2493 

c 

Ph t C: 1 C 

* 


01 2494 

c 

M S V. t'Uf 

* 


Cl 2495 

c 

vc y COL 

* 


01 2496 

c 

vi.LT A * 

* 


Cl 24 97 

c 

VLLTAD * 

4 * * 4 


01 2498 

c 

VULTcS * 

4 


012499 

c 

V LL T 3 * 

V * 44 4 444 * 

4 

01 2500 


(_ AEtu*CCCCCCCCCClXyL>L>!£KF -j%»l l i_ L L L LM MMM.ANNIsP 3 P 3 j R KRK RRR PR RS SS T T TalU Y CI2501 

C. S t JiiSCLiHKRk'RKftVrY YN 1 l cKNM PTTTAGPSStUYA^RxRiCKFLJOGTfcFPrFFCRRD 012 502 

C 1 KijuCS'NF.eciee.etNNNf'iGNN 1 VI V.NRACftiel VMPMP^I Ni_P A A AvjPT TTARRLAPTRllO C1250 3 
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o n 


c 

MS U.LETAAHCLM r 6 jSSMOJ JV,A l ENPHEMVGtJOLSLEL T»J< OJOLLOOTP IEORL YCT T T 

01 2 SO 4 

c 

L LCNNNR 

0 

U 3 l«i J40 T UMRP N A r EG S 

I0l)0 OrtAUNY i AJuHSKi: 1 Q T T YPUE I 

Ot 250b 

c 

ft VPfcfiTL 

u 

0 GjuOri 60LPR LP 

OCLT Tl>Ru « MMST £2 EE M 

012506 

c 

MPLOT 


* ' 


Cl 2507 

c 

MM£ 


* 


Cl 2508 

c 

N YPLCT 


♦ 


01 2509 

c 

PAGEHC * 


* * * * * * 

** **** ***** 

012510 

c 

PLO TSS 



* * 

01251 1 

c 

PLC 1V»R 


* 


01 2512 

c. 

PLTCAR 


* 


012513 

c 

PRN TOO 


* 


012514 

c 

PR3 



* 

01 2515 

c 

GRCCN 



4c 

01 2516 

c 

OPCPVR 


* 

4c 

01 251 7 

c 

GP2 



* 

01 2518 

c 

n e ac * 


4c * 

4c ** 

012519 

c 

REACI ^ 


* * 

4c 

01 2520 

c 

RcVAQC* 


* 


012521 

c 

REV ISE 



4c 

01 2522 

c 

RK ACAM 


* 


01 2523 

c 

RLQCUS 


♦ 


Cl 2524 

c 

RLFLGT 


* 


012525 

c 

RV VZftC 


* 


01 2526 

c 

RC TCH 


* 

* 

01 2527 

c 

ROT CS 



4c 

01 2528 

c 

RET TK 



* * * * * 

Cl 2529 

c 

RTAFE 



4c 

Cl 2530 

c 

R TCP 


4c 


012531 

c 

RaR 1TE 


* 


01 2532 

c 

SATE ****** 


Cl 2533 

c 

SCALE 



4c 

Ct 2534 

c 

SFREQ2 


* 


01 2535 

c 

5FAFTT 



* 

012536 

c 

SIFT 


* 

4c 

01 2537 

c 

SKEYV3 *44 



** * 

01 2538 

c 

SFLCT 


♦ 


Ci 2539 

c 

START 


* 


01 2540 

c 

STORE 


* 


0 l 254 1 

c 

SLBC I A 



* 

Cl 2542 

c 

TFPLY * 




C l 2543 


AetiuecccccccccooouGFFGGi illlllwm mmmnnm ppujKKRKKKHKRRsssTTTwwY 012544 

S A Oh SCOKRRRRRRYYYYN i I tr<NN I P T TT AGfi 5S I U YA _ A RR iLiCLLGijGTWFPTFFCRRD 01 2 545 


C IKOJCiNNEEEEEEENNNf\K»NNTVlVNRACRIEl MMP MPoT NLO A a A up T T T ARRL AP T R I 10 012546 

C M STL GET A A8CCMT5->5 5M JO bo A l E NPS GN KGOOL SLE C T OR OODCLOG TP I ECRL Y C T T T 01 2547 


C 

LLCNNNR 0 

U3 1234UT JMRPNAT ECS 

1000 OrtAONV I AUUHaRETQTT YPUE I 

01 2548 

C 

KVPHRTL 0 

U 

000 CM uJLPR 

LP 

DCLT TukJ 

k MM;,! E2 EE M 

01 2549 

C 

TFT YPE 



* 




01 2550 

C 

tcr cue 






4c 

Cl 2551 

c 

TPFE 

(NONE) 






012552 

c 

TTFF 



* 




01 2553 

c 

UN I TY 





* 


012554 

c 

aRITE * 

******* 

4c 


* * 

* 

012555 

c 

AN I TE S* *4 * 



* ******* 


* **4c * 

* ♦ * 

Cl 2556 

c 

WR I TIM 

(NUN t ) 






01 2557 

c 

WR i T I S* 



** 4c* 


*** 

4c 

012558 

c 

A TAPE 






«c 

01 2559 

c 

Y CO T 



* * 



* 

01 2560 

c. 

YCCTL 




* 



Cl 2561 

c 

ZERO * 

*4t 


* * 

♦ ♦ 

4c** 

4t 

C l 2562 

c 

DATE 






4c 

01 2563 
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onnr\nr*r\nnnnnon 


SECCND 
TIME 
ecxG 
E* l 1G 
GR I OG 
L AEELG 
LcGNUG 
L JNESG 
MGDESG 
MMe«G 
ce JCTG 
PAG tG 
PGP IDG 
PL A EL G 
PL I NEG 
PSE IG 
PSUEJG 
RSE IMG 
SET SMG 
SFTLPG 
SLE JEG 
1 EX I G 
T 1 TLEG 


* * 
* * 

* 

9 9 

9 9 

9 

9 

9 

9 

9 

9 9 

9 9 

9 

9 9 
9 9 

¥ 


At liLuCLLCCCCCC JUJJcFh ^1 ILL LL LM YMMMNNNPP P } j< kRR RRR RRKS SS TT TW *Y 
S A JHbCUkKkRWKRY r Y YN1 I CKhMPl T T AGR3S l U YA _ H k < £ b KllDU OT WFPTFFCRRO 
1 KUyKMELEL££ewNNlM-jNN I V I V.NR ACR I El MMP MPo I •NLJAAADPT TTAkPLAPTRI 10 
MS TtLlIT AA OClM T bob tsGA l L NPRENNGCUL SLiiu f G-ij JULLUJTP IEURLYGT TT 

L L jAi N NK o U 3 1 2 J 4 U To MKP N AT ECS 1 ODD OmAuNS t AisUriX RE T Q T T YPL E I 
RVPkkTL fJ U 0000.4 bJLPR LP DCL T TJ4J * MMjT t2 EE M 




i *********** 


SUERC^l INC A Ji> T CC8UC * 105 

U.* lK JLr IiscJ SUERCUTINE 

C Ai_Lb : 

(NCNL Ui'JLubb USER RcCJUtbTtU) 

c /llld ov : 


c 

c 

c 

c 

c 


Y DO r 

P LKPL SL : 

ru vcMNt lilt ALCELCRAUtN J= 1C WHICH 

R r IL ^u^l ICxuLY LUN b I P A I MI0 * I’M 4 I lb I C PRDV I DE THE 
ALPHA u-^bULL LOT TERM IN CCjA 1 I UN 1 1 -o« V CL 1 A 
Ubtlk JLr iNLJ ROUTINE 


C * b 9 * 9 9*99 * 9 A 9 *999999 9999999 *9999999999*99*9 9 9999 999 *999*999 


IS 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


fUURCLflM; ADD 3 


c alls: 

{ fiCNu ) 

C ALLLL iJY : 

CREc 
CM EL 

plrplsl : 

MULl i PL Y 
FORM I He 
A L 


DEBUG a Z7 

UflLllY, MAIR IX CPERATICN 


Ihhfct MATRICES EACH UY A JLALAH AND ADC. 
^ uM : 

= iA *a ♦ SO * 0 * SC*C 


012564 
012565 
Cl 2566 
Cl 2567 
012563 
012569 
01 2570 
012571 
012572 
012573 
012574 
01 2575 
012576 
012577 
012573 
012579 
01 2530 
C 1 258 1 
012582 
012583 
Cl 2584 
01 2585 
01 2586 
01 2587 
01 2588 
Cl 2589 
012590 
C 1 2 59 1 
Cl 2592 
012593 
C 1 2594 
Cl 2595 
012596 
01 2597 
012598 
012599 
01 2600 
01260 1 
Cl 2602 
012603 
Cl 2604 
Cl 2605 
Cl 2606 
Cl 2607 
Cl 2603 
C 1 2609 
Cl 26 10 
Cl 261 1 
012612 
Cl 261 3 
012614 
01 2615 
C126 16 
012617 
Cl 2618 
C 1 26 1 9 
01 2620 
012621 
012622 
Cl 2623 
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nrvof^. nrinnnonnnnnrnpnnnnnnrionnnnnnn 


C WHERE 

C A.fcf.C ARE INPUT (NR, NO MATRICES 

C SA.SB.SC ARfc INPUT SCALARS 

e,C ARE NCT DESTROYED, i NPU T A IS 

AC UU THU T MATRIX RET JKNl J IN A ARRAY 


SUERCETINE AUI DEBUG W 104 

User DEFINED SUBROUTINE 

C ALLS : 

INCNL UNLESS USER REQUESTED) 

C ALLEC BY : 


F 1 NUU 


PLFPCSE : 


TO DEFINE THE VELOCITY OF COORDINATE IE WHICH -IS 
RHENOMICALLY CONSTRAINED. THAI Is ID PROVIDE THE 
ALPHA DOT TLRM IN EQUATION I 1 -6 VUL 1. A USER 
DEF 1NED RUUT I NE 

CAUTION TU AVOID EXTRANEOUS IMPlusE EFFECTS 
INTEGRATE ALPHA DCUSLE DOT Ij OE I ALPHA DOT 
PfiODLEMS CAN ARISE DUE TO NJMLW I CAL INTEGRATICN 


********* 


l¥#¥***»* 


suercu r i ne alpha a 

C ALL 3 : 


(NGinc) 

C ALLfcC BY : 

( NCiNti) 

pikpcsl : 


MULTIPLY 
a l 3 NUT 


deeug * ^5 

UTILITY. MATRIX OPE PAT I CN 


SCALAR SA QY MATRIX A* kcTUHN Z 

L. - SA*A 

UbSTRUYEC 


C*****************, 


‘* ********** 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SLBRCLllNE A 31 MLR 
CALLS: 

ZcRU 
HEVa[)U 
MULT A 

C ALL cC uY : 

DYNS4G 

plmhcsl : 

LSTALLIoH TRANSF CRMcO PARTIAL UifViVATlVL MATRIX 
UY PtikFOhM TNG A SIMILARITY T R aNj r JR M A l i CN TU 
EXCHANGE PLANT STATE VARIABLE i F uH SLNS UR SIGNALS 
XSS mNU CuNTKCJL SYSTEM VARIABLES PEL I a for TORQUE 
SIGNALS U. jcl SECTION » EXCHANG- OP VARIABLES • 

PAGc 5S VuL l FOP BACKGROUND THEORY 


D6EUG * 65 


MAIN LlNt uPLRATION 


WR i T I S 
F I NOT 
ijAO SS I 


Vs R I T t S 
WRITE 
MULT 0 


* * * * tf. $ 4 $ 4 4 4 4 44$$444< £ 4***V ******* 


C 

C SUBRCLIINL A SUN 

c 

c c i'll s : 

c (NONE} 


DEFliG ft l I H 

UTILITY, matrix OPERATICN 


012624 
Cl 2625 
012626 
Cl 2627 
Cl 2628 
012629 
Cl 2630 
012631 
01 2632 
01 2633 
01 2634 
01 2635 
01 2636 
01 2637 
012638 
012639 
012640 
Cl 2641 
012642 
012643 
012644 
01 2645 
01 2646 
01 2647 
Cl 2648 
01 2649 
01 2650 
012651 
012652 
01 2653 
012654 
01 2655 
Cl 2656 
01 2657 
01 2658 
Cl 2659 
01 2660 
012661 
Cl 2662 
01 2663 
01 2664 
Cl 2665 
01 2666 
01 2667 
01 2668 
Cl 2669 
Cl 2670 
012671 
C 1 2672 
01 2673 
012674 
01 2675 
01 2676 
01 2677 
012678 
01 2679 
Cl 2680 
012681 
01 2682 
012683 
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n r, 


c CMxtC l»y: 

c 

C {»L 5 I.*» 0 Sc : 

c 
c 
c 
c 

c 

£‘J*rHC c 1 1 Ni_ liAUT :)E 6 UG A 9 6 

Ol iUl Y, . 4 ATH 1 X GPt*R AT I CN 


LL.M*'ufL «juOA*<E iJF THL V.A T R I A .* » rtcT^fti'o A**2 IN B 
fc = A *A 

A 1 b NOT Jfjl KIj Y cC 


c / l l s : 
CAl.LtL ilY 
PLWPCC-fc : 


r * < L) \J <j G T 


c 
c 
c 
c 
c. 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 

C SUERCGTlNti. UAKSLV DEBUG * t>2 

C U » l L I f V • -4 A T H l X OP£ R A T I C N 


( NuML ) 
( ML NL ) 


F-UWM T Hu oPlC l AL MATRIX FA I; 

4 . = 

J A I « I X (Nu)iNCO) S V M Mt T K IG 
Li M A f n IX (MVd.NCV) 

z mai-<ix (NttbtNRy> « iu. ne ^ r mmc j i c 

NU I rliNo UL ^ThGYr. 0 


A 


c alls : 

C ALL t C BY 

pghpu Sl : 


aK i r t. s 

YOGI 

SPECIAL UPLKAllQN TO CSt DECJM^ J jtG tiMU ANO D 
MATRICES UdTAlNF.L) VIA 0 CUM 2 AL(J> 1 G * l I’M THE V MATRIX 
CCJMPuItU IN YOU T TC COMPUTE lh^An«l MULTIPLIERS 


C 

c 
c 
c 
c 
c 
c 

C*************^*#********'#****** ir <h * * **«=$*<«$:**<« £***** ***#»*♦ 

c 


SOBRCuTlNt. riDOTOP 

c all s : 


C ALL t C bY : 
plrpc S t. : 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C £ * $ * * * * *> $ $$$ v< 

C 

C SUL'RCuT INE HH 6 ENW 

C 
C 

c 
c 
c 
c 


DEBUG A SI 


Mh I ,s . I Ml uPuRATICN 


SKE WV3 


W R I It b 

MULT AU 
MUL I j 

VOGT 

oLT 1 Ht L^Y.ER CASE 8 UCT MAT R IX IN luJaTICN 11-6, 
REFLk TJ APPENDIX C VOL l FUR SUPPORTING THEORY 
ALSO PAoEl> 3c - 38 • VOL l 


DEEGG f* 4b 


NUiN LINl OPE RAT I CN 


C ALLS : 


c allLO uy : 


MULT 3 
SKEV, Vj 
WR 1 Tf.S 


Cl 2684 
01 2665 
Cl 2666 
Cl 2667 

01 26 as 

01 2o89 
01 2690 
01 2691 
01 2692 
0 l 2693 

0 l 2694 
C l 2695 
Cl 2696 
01 2697 
Cl 2698 
Cl 2699 
C 1 2 7 0 0 
C 12701 
01 2702 

01 2 70 3 
01 2704 
Cl 2705 
Cl 2706 
C 1 2707 
Cl 2 7 OH 
012709 
012710 
012711 
012712 
012713 
Cl 2714 
012715 
Cl 2716 
Cl 271 7 
012718 
012719 
01 2720 
012721 
012722 
01 2723 
C l 2 724 
Cl 2725 
012726 
Cl 2 727 
01 272S 
01 2729 
01 2730 
Cl 273 l 
0 1 2732 
012733 
012734 
01 2735 
Cl 2736 
012737 
Cl 273Q 
Cl 2739 
01 2740 
012741 
012742 
012743 
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c 

c 

c 

c 

c 

c 

c 

c 


DYNbt-0 

YD or 

used rc Cumpute the llement., uf rnt jh array this 
ARRAY ULHiNtb H I NGFi POINT KINtMAflco AND IS U EF l NED 
IN VuL l oY tUuATIGNS II-d2 ANJ i L -8 3 


C * * * * 


******** 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE US'JENR 


DEBUG ff 47 


C ALL s : 


C ALLEC dY : 


PLKPCSc : 


MAIN LI Nn UPtKAI I ON 


MULT 3 
SKE*V3 

YDOF 


COMPUTE IHc tUMEMS OF T HE o^> A3RAY THIS DCF INFS 
F HE KINEMATIC C O t F F I C l E N 1 S rW CL btiNbOR PCINT 

KfcFCKENCt frames • see page i / yjl ii 


c * * ♦ * * » 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE UTA3A 
CALLS : 


DEBUG * 35 

UT l L l I Y . ciA TR I X 


( NONE.) 

CALLEC oy: 

MSMUuC 

PURPOSE : 

POKiM The PARTICULAR MATRIX lr<lP_t PRODUCT 
AZ = £!** T * A * B 

l NPU I MA1RH.US A AND D. OUTPUT A Z . MATRIX 
IS DusTROYLU 


c * * * * * ************ 


OPERA T I CN 


A 


C 

C SUbRCuf I NE CANCOP DEBUG # 76 

C UTILITY* NON-MATRIX GPER. 


c 
c 
c 
c 
c 
c 
c 
c 
c 

C** * * * ** < 


c fix. l s : 


CALLED dY : 


PROPOSE : 


< NONE) 


DYN5**0 


TU Cancel CuT OR THE ROOTS ARRAY H 
TRANSFER FUNCTION V»HlCH ARE uUMMDN 
NUMERATOR AND Ot N CM l NATllR 


Tilt ROOTS OF 
I U BOTH 


THE 


C 

C 

C 

C 

C 

C 

c 

c 

c 

c 


SUERCUT INE C CMtiNT 


DE6UG A 7 

utility • data control* i/o 


calls : 

CALLED by : 


PURPOSE : 


P AGtnD 


MAIN 

TO REAL) IN AND OUTPUT ON THE F13ST PAGE OF THE 
OUTPUT DATA ANY NUMBER OF USSR « 3 i T T EN COMMENT CARDS 


012744 
01 2745 
Cl 2746 
Cl 2747 
012748 
012 7 49 
012750 
012751 
01 2752 
Cl 2753 
012754 
01 2755 
01 2756 
012757 
012758 
01 2 759 
012760 
012761 
01 2 762 
01 2763 
01 2 764 
01 2 765 
01 2 766 
Oi 2767 
01 2 768 
012769 
01 2770 
012771 
012772 
Cl 2773 
012774 
C12775 
012776 
012777 
012778 
012779 
01 2780 
012781 
01 2782 
Cl 2783 
Cl 2784 
01 2785 
012786 
01 2787 
01 2788 
Cl 2789 
012790 
C l 279 1 
Cl 2792 
012793 
01 2794 
012795 
012796 
01 2797 
C 1 2 798 
01 2 799 
Cl 2800 
01280 1 
Cl 2802 
01 2803 
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c 

c ** * * * 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c <£ * p p * 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c * * * * * 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c ** * * * 

c 

c 

c 

c 

c 


4 * * * 4 PP 1 

FUERCUTINL CCNTKL 
C ALLS : 

TFPLY 

RtAO 

wr< i rt 


DteUG # 107 


Ujcn JcKlNti) SUBROUTINE 


ZLhO 

(OTHERS *H ICH ARE jSuk kEOJt^TQU) 


CALLED UY 
PlPPCSL : 


T UR uub 

l IACLcPJ TRANSFER FUN'CTIUN Jl SvK I .*> t J UN OF LINEAR 
CONTROL SYSTEM 

2 ) Dkr i Nc ALL AUXILIARY DIFfu^tNl 1 aL EQUATIONS 

kfcOUl*tD rbk SIMULATION PJ* PUSES (UStk DEFINED) 


SUtiRC \j I I Nc L REA 
C ALLS : 


i pp^pppppp M 44 


jeeuG # 21 


U 1 iLil Y , yrtIA PROCESSING 


C ALL E 0 UY : 

plhpcsl : 


ZLhU WR 1 1 c 

sa ru 

y etcm 

MSMUuL 

MAKES U^l. LF LUMPED PARAMETER jATA IU COMPUTE ThE 
ALPHA LUUFU.it.NiTS IN LO I I - j o »nlCH AkL ASSOC CAT ED 
WITH THE L Ci-iPO TATI ON CF T HE IN jTATIC MASS 

MUMi.Nl JUt TU FLEXIBLE tJ G 0 Y jiiF JR.«iAT I UN • SEE ALSO 
APPLwui X-A YLL 1 EOS* A— |2 i u A— 2 U 




SUERCUI INL LREAOO 


JcCuS # 19 


UliLlTY. JAfA PROCESSING 


C fiLuS : 


C ALL ED UY : 


PL RPC SE : 


Wk I Tl 
KLTCh 

s-«» ru 

MSMO^L 

M A K *_ S USE C.F LUMPED P A R A M 6 T c_ .< DA I A TU cUMPUTt THE 
U ANu A CuEFF ICiENiS WHICH. ARE 1 N Jc P LiYjt N T CF' 
UEFUKMAT 1 LN AND UfcF ii\C THE 1 RE «<1 1 ml COUPLING BETWEEN 
6 N'ulAl 1 ON A i\0 I ft ANS.L A T I L’N v_ S vJ'k J 1 AT lS AND THE 
IRGrL.Xl.iJ MUUAL D l SPL ACE N-E NT LLj Ui r*A T c S • 

SEE cU 1 I -o/ 


4 ^ P P P P P P ?■ P P P -r * P P 

SUdHCUl INu LriLB OEEuG * 2 2 

C ALL s : 


Uf ( L I J H jAT A PROCESSING 


/. L t< U 


SAIL 


C12804 
012805 
01 2806 
Cl 2807 
01 2808 
01 2809 
01 2810 
01281 l 
01 2812 
01 2813 
01 281 4 
Cl 2815 
01 281 6 
012817 
01 2818 
01 281 9 
01 2820 
01 282 1 
012822 
01 2823 
012824 
01 2825 
012826 
01 2827 
Cl 2828 
Cl 2829 
Cl 2830 
01 2831 
C 1 2832 
01 2833 
01 2834 
01 2835 
01 2836 
01 2837 
Cl 2838 
01 2839 
01 2840 
C 1 2 84 l 
C L 2842 
01 2843 
01 2844 
01 2845 
01 2846 
Cl 2647 
Cl 2848 
01 2849 
Cl 2850 
012851 
Cl 2852 
01 2853 
0 l 2854 
01 2855 
Cl 2856 
01 2857 
01 2856 
01 2559 
0 l 2360 
012861 
Cl 2 862 
01 2863 
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onnnnnnnr>r*'->nnor>nnr»n 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


WR i TE- 
FL TCH 

C/LLEC BY 

MSMGDL 

PURPOSE : 

MAKui USE OF LUMPED PARAMETER DATA TU COMPUTE THE 
B COEFFICIENTS IN EO 11-68 WHICH AHl ASSOCIATED 
WITH THE COMPUTATION OF THE CHANm IN THE BODY'S 
INERTIA Ti_NSOR DUE TO TERMS LINEAR IN FLEXIBLE BODY 
DEFUKMATIUN, SEE APPENDIX A V UL I ECJS A-21 TO A-26 


C 

C 

c 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUERCLTIM: CREC DEBUG * 23 

UTILITY, UATA PROCESSING 


C ALLS 5 

FETCH ZERO 

3 A Tii WR I T E 

ADD J 

CALLED BY : 

MSMCioL 

PURPOSE : 

MAKES USE OF LUMPED PARAMETER DATA TO COMPUTE THE 
C COEFFICIENTS IN EO 11-88 WHICH ARc. ASSOCIATED 
WlTn THE lCMFUTATICN CF THE CHaNGc In THE COUPLING 
COEFFICIENT^ be T WEEN ROTATION ANJ DISPLACEMENT 
COURDINaIES UUE TO TERMS LINEAR IN FLCXIBLE BCDY 
DEFORMATION, SEE APPENDIX A V UL i lUS A-27,28,29 
ALSU COMPUTES THE C CCEFFICluNTS IN CO 11-89 WHICH 
ARE ASSOCIATED WITH THE CCMPsTATluN OF THE CHANGE 
IN THE BODY'S INERTIA TENSOR DUE TO TekMS QUADRATIC 

in flexible duuy defcrmatign, see appendix a vol i 

EQS A— 3 0 IG A-JS 


SUBRCUI INC C REE 

c^lls: 

wr i re 

FETCH 

SATo 

c />lLcC by : 


DEEUG tt 20 

UTILITY, UAIA PROCESSING 


ADDS 


MSMOuL 

PURPOSE : 

M A K w S USE OF LUMPED PARAMETER uA T A 10 COMPUTE THE 
E COEFFICIENTS WHICH ARE I Nut PEN JtNl OF DEFORMATION 
THESE DEFi.NL THE MODAL MASS MATRIX WHICH IS DIAGONAL 
IF THE MOuES ARE ORTHOGONAL Sue ED l I -o 7 MODES MAY 
C i3E NLN-ORT hOGLN A L 

C 

c 


c 

C SJCRCUIINL CReMUO DEEUG A 18 

C UIILITY, SATA PROCESSING 

C C 4LL s : 

c fetch 

c SATu 


012864 
Cl 2865 
012866 
012867 
01 2668 
01 2669 
012870 
012871 
01 2872 
012873 
Cl 2874 
01 2875 
Cl 2876 
012877 
012878 
01 2879 
Cl 2880 
012881 
012882 
012883 
Cl 2884 
01 2885 
012886 
Cl 2867 
01 2888 
01 2889 
012890 
0 1 289 l 
01 2892 
Cl 2893 
012894 
012895 
012896 
012897 
012898 
01 2699 
Cl 2900 
C 1290 l 
Cl 2902 
Cl 2903 
Cl 2904 
012905 
Ct 2906 
Cl 290 7 
Cl 2908 
Cl 2909 
Cl 29 l 0 
Cl 29 1 l 
01 29 12 
01 2913 
C l 29 1 4 
01 2915 
01 29 1 6 
01 29 1 7 
Cl 291 8 
Cl 29 19 
012920 
012921 
012922 
01 2923 
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C «LLtU c'jV 
plnfcsl : 


v;r • i c 

MAKr;, U5L L> LU.-IRO P/lPAM>. Tr.,< ^ 4 I A IU (.Olf-UTt THt 
Kl.cXloLc UN U IlNsUR* A J 1C 

.4 A j 5 ! M A ,\J TOTAL f'ASS, ^ *_u _ U l i -o 7 


L 
C 

c 
c 

r 
C 
c 
c 
c 

C ^ > * ♦ £ * * P * $ * ****** *$¥*** ******* t * 4*4 * * * * * ****•.£££ V ****** 

c 

SUBRCuIlNt C L t. T 3 OEfsuG « 17 

UiH.Ilr. uATA PKOCESblNG 


c all. s : 

c all t l tn 

P L H * J I*, b L t 


i-'LTCn 
S 1 URL 


M S *4 *. i\j L 


ru ftrCH r*. aw fLcxnu nouv jaia f dm nt apls ano to 

CklAIc Th t. F UNC T 1C NS WHICH .viUbl lie INI toRATCO CVF.R 
THE (»uOY ' j vLlUMN TU 0C1F l NCL <c-.bJLl.4NI MOOL OEPENCENT 
INUI IA HA! 


£**,■**:*•*!*** ****$$(***.;******.**:.* **^*****$**********#*<t********|c* 

c 

SUERCLIINE OCCJ M2 OEE'JG # 4? 

UTILITY. MATRIX GPtRATitN 


c 
c 

C CALLS: 

c 

C C ALLcC bY ; 

C 

c. PLMi»cst : 

c 
c 
c 
c 
c 
c 
c 
c 

C * * * * * ♦ * * * Hv * * * * *****£*:***.***:-,. ****** * * * * Hf^Uy**** 

c 

SUERCUT£M£ UCCRRT JEGUG <Y 70 

UTILITY* NuN- MATRIX GPFfi* 

C ALL 5 : 

( NCNt ) 

C Au.L L D UY : 

DYNJ4U 


( NCNl ) 

YOOT 

Jf.LC.MHUaLj A TU FCRM AN 'JPPca KlAN^ULAR MATRIX 
WITH ljWcS CM LI AGCNAL ANO ZiPutS LiciL J* SUCH THAT 
a = u * * r * 0 * U 

A RtAL » SwUA NX. ANO i YMMC T fU L . ' -<u JU Nt ACTUALLY 
L L A v*. b oAmJAcjI: LN J I AGCNAL ANj JiLUtt 
.USLw IN LJNJUNtl ICN WITH BAKjuV TU uJTAIN 
L A orv aN Iil. MULTIPLIERS 


pu P l S r. : 


c 
c 

c 

C 5U0R Cu T INb ul> 1 

c 

c calls: 


T AKdb COMPLcX ROOTS ( RR 4- l*Ri> HJUNi) IN QR ROUTINES 
PLACES 4L/.L ano ZERO ROOTS IN I'<l k t AKkAY. 

COUNTS THl NUMBER CF ZEROES («vZ). AMJ PLACES 
C(Jf4Pi_c X PAIRS IN CMPR ARRAY. (KC = NJ Mb£K OF PAIRS) 


t******** ' 


C ***V *********** 


oceug a ii2 


Oc F INI I I ONb 


01 2924 
01 2925 
Cl 2926 
Cl 292 7 
C! 2928 
01 2929 
Cl 29 30 
C 1 293 l 
Cl 2932 
01 2933 
Cl 2934 
Cl 2935 
01 2936 
01 2937 
Cl 2938 
012939 
012940 
Cl 294 l 
01 2942 
01 2943 
C l 2944 
Cl 29 4 5 
01 2946 
012947 
Cl 2948 
Cl 2949 
Cl 2950 
012951 
01 2952 
Cl 2953 
012954 
C t 2955 
Cl 2956 
01 2957 
Q l 2958 
01 2959 
01 2960 
012961 
01 2962 
01 2963 
0 l 2964 
01 2965 
01 2966 
01 2967 
Cl 2968 
01 2969 
Cl 29 /0 
012971 
012972 
012973 
01 2974 
01 2975 
01 2976 
012977 
012978 
Cl 2979 
01 2980 
01298 I 
01 2982 
01 2983 
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c 

C C/!LLt:C av 

c 

C PLI-PCSK : 

c 
c 

c 

SUURCLTIM; JUH2 


( (SUNK ) 

( NONL.) 

OtFlK.c. CCttMUN ULCCKS ANO P AN A :4t T £ 2a sIUKEU THEREIN 


C. 

C 

C calls: 

c 

c cakllc uy 

c 

c plrpcse: 

c 
c 

£***** 4 * * * 4 * * »'c * * i 

C 

SUER CL r I Mi DEF 3 


S********' 


Of: eUG A 113 


it********* 


D- F INI U JN5 

t NCjNL) 

( NUNL) 

DEFINE ALL SUUROLl INES AS TO 3 iJSt 


calls: 

CALLED t>> 

plrpos a : 


c 
c 
c 
c 
c 
c 
c 
c 
c 

£ * * * * 4 4* ****?**********«****’ 

c 

C 5ut«CLTl^t DEF4 

C 
C 
C 
C 

c 
c 
c 
c 

c * * * * * ************************ 
c 

C SUERCLTINE jul-5 

C 

c 
c 
c 
c 
c 
c 
c 

£***** 4* 

c 


DEBUG tt 114 


D- r l iN I T l U N 3 

( NONc ) 

( noisil) 

DEFINE HtwUI KcD INPUT CAT A SlI JP AND FORMAT 


t»*****«t* 


DEBUG * 115 


O- r INI 1 1 JNo 


calls : 
called uy 
plrpcse : 


{ nqnd 

( NQNl ) 

DEF i f,E OUTPUT DATA 


DEBUG d 116 

DEF INI I IONS 


C ALL £ : 


( NUNt) 


callec uy : 


plrpcsl : 


( nunl ) 


DEF INI. ALL PARAMETERS COMPUTED 14 DISCUS 


SUERCLTINt UFOHMb 
calls : 

C alleC uy : 
plrpcse : 


OEEUG * 80 


JTlLllY. NON-MATRIX OPER. 

( NONE) 

DYNS40 

TAKlS REAL ROUTS DEFINED IN ARRAY RLRT ANO COMPUTES 


Cl 2984 
Cl 2985 
Cl 2986 
012987 
C 1 2 988 
01 2989 
01 2990 
012991 
Cl 2992 
01 2993 
012994 
Cl 2995 
01 2996 
01 2997 
01 2998 
01 2999 
01 3000 
01 3001 
Cl 3002 
013003 
Cl 3004 
Cl 3005 
01 3006 
01 3007 
Cl 3008 
Cl 3009 
Cl 301 0 
013011 
01 3012 
013013 
01 3014 
013015 
013016 
013017 
Cl 3018 
01 3019 
01 3020 
013021 
Cl 3022 
01 3023 
Cl 3024 
013025 
013026 
01 3027 
01 3028 
01 3029 
013030 
013031 
Cl 3 032 
013033 
01 3034 
Cl 3035 
01 3036 
013037 
Cl 3038 
013039 
01 3040 
Cl 304 l 
013042 
01 3043 
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ft n 


ASSUCiATED I i ME CONSTANTS Fur = -l ,0/KLRT 
TAKES COMPLEX PAIRS DEFINED IN 4 3 ft A V CMPR, CCMPLTES 
FbC<L) = OMEGA 
FJClL-1) = Zc.T A 

WHERE COMPLEX PAIR ARE ROOTS UK I 

S**2 * 2*ZE TA^CMEGA *S *■ uMEGA*#2 = 0 
ALSO FORMS PK uO L/C T OF ALL ROUTS r UR oUOE GAIN 
CUMPuT AT luN 


C * * * * $ * t $ * t 
C 


: * * * * 


FUNCTION DlMAolS) 

calls : 


UtieUG 76 


( NGNl) 


c allec uv : 


c 
c 
c 
c 

L 

c 
c 
c 
c 
c 
c 

c 

c FUNCTION DRLAL(S) DEPUG * 77 


UriLiTY, NJN- MA TR I X GPER. 


PLRPUSE : 


RL OLuo 
5FREU2 


UlMA«(s) - IMAGINARY PART GF CuMP»_lX iNOMQLR S 
PRECISION REALMS 




UliLllY. ,vj,NJ-MATRlX UFER. 


CALLS! 


C AuLLC OY : 


( NONl ) 


RL 'JCUb 
SFkcu^ 


OHEAlI jJ 


k c: AL FART GF C G LEX N \j M U t. ft S 


Cl 3044 
013045 
01 3046 
Cl 3047 
01 3046 
Cl 3049 
01 3050 
01 3051 
01 3052 
01 3053 
01 3054 
Cl 3055 
013056 
01 3057 
013058 
01 3059 
01 3060 
013061 
01 3062 
01 3063 
013064 
013065 
01 3066 
Cl 3067 
01 3068 
01 3069 
01 3070 
01 307 l 
Cl 3072 
01 3073 
01 30 74 
01 3075 
01 3076 


c 


PK E L 1 S ! CN Rc AL *3 

01 3077 

r 



01 3078 

C * * * « * 4 * if. -if. *$£*** 4 :* 

****£**#**#****4 *****#***$*«« *****«*««#* 

Cl 30 79 

c 



Cl 3000 

c 

SUGRCuriNL UY.V510 OE 8 UG ft 2 

01 308 l 

C 


MA i _ 1 Nil EXECUTIVE 

01 3002 

c 

c alls : 


01 3003 

c 


.•I «>MOivC f 1 *: ji^Ul/L P AGE 1 1 0 

Cl 3004 

c 


KC Aji M HlAu WRITES 

01 3005 

c ■ 


•ah i l u .VKlC.lf) 

01 3006 

c 

C ALLcC UY : 


Cl 30H7 

c 


M A l :< 

Cl 3000 

c 

PURPOSE : 


01 3009 

c 


ru uoiLJ The it i M LL ATI UN MOOcl FkuM lliE INPUT DATA 

01 3090 

c 


SLc FLCa C Hm kl PAGE 23 VOL 11* flit FuLlUxINC 

013091 

c 


I I’ii'Ll iJrtl rt iS READ* 

Cl 3 092 

c 


1 ) bA j I C MUjcL SIZE. 5 AND TUPulJjV 

Cl 3093 

c 


2) UJUY I YPL » ; 4 U M U F. ft lk .v c j l s 

013094 

c 


J) jLi'i GUk -PLInT location 

01 3098 

c 


A) LuS^|.«AUL CCAO.I..I IliSIS. 

01 3096 

c 


5) CUUlloUoLS HINGE FRAME JA 1 A, jklLNf AT ICN * RATE 

01 3097 

c 


6 ) .-.L M k_ N I UN V. i \ i_ EL DATA 

01 3098 

c 


/) 1 l.Mc Mis TORY DATA 

013099 

c 


6 ) Fkl,«l, PL L V CONTROL 

01 3100 

c 


■J) ■.•JMRLL br..H.V DATA 

013101 

c 


10) CkAVIlY GKAJlFNT L A | A 

Cl 3 1 02 

c 


li) ALL i'* K 1 vj 1 U TC ft C AC R 1 ji u o j jY viiARAC 1 LR I ST ICS 

Cl 3103 
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c 

c 

c 

c 

c 

c 

c 

C 

c 


Id) CALL PiSMUDL TC READ FLEXIBLE BOB Y LUMPED 
HAKAMtTLR DATA 

13) CALL MSMCJDC TC READ FLEK I bLZ BODY CONSISTANT 
MASS PARAMETER DATA 

WITH THIS DATA 5 C ME CATA-SEI ARRAYS ARE COMPUTED IN 
DYNbiOt AN ECHO OF ALL INPUT DATA AND COMPUTED CATA 
IS LIVEN* SEE SUCROUT I Nfc S DE F 3 AND DLF * LISTED IN 
VUL 2 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. 

c 


SUER C u I INt DYNS2 0 
C ALLS : 


DEBUG #37 

MAIN L I Me. EXECUTIVE 


RK ADA M YD L T RGTDH 

F l iMUO bHGENR PRNTOU 

LINEAR Eng MOM 

PLOT UR UK I IX S 

CALLtC bY I 

MA I N 

PURPOSE : 

1) READ NTAPfcl ON WHICH ALL TIME INDEPENDENT RIGID AND 

FLtXlBLE bUUY DATA HAS BEEN » K i I TEN* 

2) LUAl/ INITIAL CUNDIT1CNS INTO jTATc VECTOR. 

3) COMPOTE INITIAL KINEMATIC Dm T h ( Jd^L NR . RO T DH ) 

4) FIND INDEPENDENT COORDINATES (PINDU) 

5) GET TIME DERIVATIVE CF STATE VECTUk (YoOT) 

6) CUMPuTc ENERGY AND MOMENTUM r uH bJu I LS AND TOTAL 

SYSluM (eNGMLM) 

7) INTEGRATE NON — L I NE AR EQUATIONS oF . MOTION ( RK A CAM) 

B) LINEARIZE CUuPLEO EQUATIONS Ur MJIlUN (LINEAR) 

9) OUTPUT DAT A LN PRINTER CR PLOTTER ( PknT OU . PLO T WR ) 


* * * ******** <. • 


SUER COT INI. DYNS3 0 

c Pi_L_ s : 

PL T LAR 
PAGLHD 

C/iLLLC by: 

MA I H 


UCtUG n t)2 

MAIN i_ I NE EXECUTIVE 


0 l 3104 
Cl 3105 
013106 
013107 
C l 3 1 08 
013109 
013110 
013111 
0 1 3 1 l 2 
013113 
013114 
013115 
013116 
01 31 17 
Cl 31 18 
013119 
01 3120 
013121 
Cl 3122 
013123 
013124 
013125 
01 3126 
013127 
01 3128 
Cl 3129 
C 1 3 1 3 0 
Cl 3131 
01 3132 
013 133 
013134 
C13135 
Cl 3136 
013137 
013138 
013139 
013140 
C l 3 l 4 l 
Cl 3142 
013143 
013144 
013145 


PURPCSE : 


READ DATA KLUO IKED TC SETUP Pl_Uf TAPE FUR SC4020 


C*********************** ************************************ 

c 


SuF.HtUT i NL D YDS 4 0 


C A LL ' 


DEBUG ft 1 4 


main i nl. Executive 


013146 
Cl 3147 
013148 
01 3 149 
Cl 3150 
013151 
01 3152 
Cl 31 53 


c 


A S I ML rv 

N U M S 

K t A D £ M 

KakIIL TTFF 

013154 

c 


CANUCK 

N> PLU T 

KLOCUS 

bP R E Q 2 ttRITE 

01 31 55 

r 


DLDkK ) 

P AoLHD 

RLPLOT 

blFf Z E R G 

01 3156 

C 


*_1 kuSP 

LRdK V R 

R MV 2 RO 

jPLJI DF UR.MB 

013157 

C 


N 1 PLOT 

RcAD 

R T UP 

r- r yp._ 

013158 

c 

c All c c by : 





01 3159 

c 


i A A I N 




01 3 l 6 C 

c 

PURPLSL : 





013161 

c 


ALL mNALYS 

IS ASS C Cl A TED vs I Ti 

1 H'» *_ I N L A R l Z t D 

Cl 3 162 

c 


E Q U A 1 I o N S 

D 1 R L L T ED 

BY DYNS40 


013163 
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c 

c 

c. 

c 

c 

c. 

c 

( 

c: 

c 

o 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


l) Hi AJ LlNFARl/L'O PARTIAL ):K iv A f I vi*. MAlf-l> FRCM 
N I A 2 

.1 ) .IN O i- l Oi_ l-i K* . 01 :i. *•» * l *. 5 CF v. I i«l - A m ,'f) SVITfiM 0 RO MVP. 

Ii > ».L I y !!./.«« I T Y jh j <.4W IliN IG F XCHANGt 

•jLHl of Arc VAMl.\ni Kj FUR ANJ TLROUfc: 

» 1 G <*’% L j ( rt 'j 1 L »’ ) 

4) f iNi) k: I L..M sir. GLt*>X. i /;;> HE V i< .* -i o F » i *« M*r u cCWATICNS* 
ilUlULiJ t>i- .* A *4 tr A 15 A.lUVF. U.\DRV-< 

5) .«4y -J.V 14 CAM*j Ti! OFFING I Y Mc_ ,;i- ANALYSIS 

6) u«UL f ».R l . 1 Nt : A it 1 I.V.b ri [ ?, I v. k Y «<i: VUNjE (LTRESF) 

7) O.uha TC UFFIM. I Yi» c Ur UAN:.h«.H tUNCT ICN, 

1 y.LLm WHICH VARIABLES, JJf 'j! -Jl’.MLAY 

a) i «t>I A 1 M CHAW AC URl S r IC :ai <u A «U {-^<hCSPCN0 I NG 

l»<PUl ICICN1S FGk Tk>n^-cM ruNllICJN (TFTYPE) 

0) U«. f'ALiS M.L.T^ OK UF.NCM t N4I t*M ( »JR )KVW ) 

10) uilAfN »'.CL 1 J OF NUVir.M AT a-< iNUrto) 

11) »t\ T wr- M.iJS AMP AY < 5 l F- T , n.U v •< I , _>F UKMU , RMV ZHC . 

rtNU l 1 1' : F ) 

12) CANL-L cul MOOTS <GUMPN fJ NUM-raIUK ANL) 

JLNtM l i'i a I l jr< ( C A NC 0 R ) 

13) f r'<:. 4 Ljr>CY MdSPF*Nor. » > i .» ML A Y OAT A VIA 

ui>v)c • NlUu.L.Ji AND/OR NYOol jl' 4 3 ' j Lj T * N I PLCi T . N YPLO T 

14) I.UWlk!' Moots T(j POLYNOMIAL ( R I .Jr» ) 

15) .\Uf !,!<■% KLt! l.r.CUS ANALYi I l» ( Ku jC jS • RL PL 0 T ) 

io) OiMPJlt Ll'jfTVCCTl^S OF ciH»«.UTu5UTIC MATRIX 

I ok St.LLLTLD L f GtlN V 4LUL S 


* fr ji <,<( .>4 ♦ liv* W V* ¥ Vf ^* > * ►<:* l< V* + 


C 

C SUCK C L r l Nt. Li uVE.C 

C 

C c «llS: 

C ( iVCNL ) 

C C ALLfc U OY : 


UfegijG a 117 

U H l l I V • MA I m 1 X OPERATION 


c 

c 

c 

c 

c. 

c 

c 

c 

c. 

c 


UYNjAO 

i- 1 L (i • 1 C Sc I 

TO FIND T rtL «_is»LN VECTORS OF A NJ M-aYMMt TP IC MATRIX 
BY a MCJlF lcD V, I LXF.NSCN* S CvVck^i ITLkATICN METHOD 
SUtiMOU I I Nr_ ALCe.PT 5 MATRIX A, m **2 AN u lIolNVALUE 
LAMDua FROM WHICH IT COMPUTES ci ScNVdCTUR X OF 
4*X = LAM3’JA*X 

AND lhL Tk AiN^PUSEC EIofcNVECIJR V oh 
A * * T * V - L AMfU A « v 

L I o!;.\vLC 1 (..‘kj ASSOCIATED W I Th R L . j c; A T l i) c I Gfc NVALULS 
CAKnUT cl L f- uu Nv 




* * * 9 <£*#«*** 


C 

c 

c 

c 

c 

c 

c: 

c 

c 

c 

c 

c 

c. 


S Li B R C e T i N L l NGMGtM 
c all b : 

m*jl u, 

MuL TAD 

C ALL c 0 liY I 

U YN;>«.D 

P OPPOSE : 


DFEUO a SB 

MA IN _ I Nc OPL R A T l ON 


TO ^MPJTu LINEAR ANC 
MNlIIL AND POTENTIAL 
Fuk ) hi total system 


ANGULAR MJMuNlUM ALONG WITH 
ENERGY f UR lAld dGDY AND 


C l J I 6 4 
01 J 1 OS 
OUT I 66 
010167 
013160 
Cl 3169 
0131 70 
C 1 3 1 7 1 
0131 72 
C 1 3 l 7 3 
013174 
01 3 l 76 
C 1 31 76 
01 J 1 77 
01 3 1 70 
013179 
01 31 BO 
C131BV 
Cl 3182 
Cl 3 1 83 
013184 
0131 85 
013186 
013107 
01 3 l 88 
013189 
013190 
Cl 3191 
013192 
C l 3 l 93 
013194 
013195 
C 1 3196 
C l 3 l 9 7 
Cl 31 96 
Cl 3199 
013200 
01320 1 
01 3202 
C 1 3203 
013204 
Cl 3205 
Cl 32 C 6 
013207 
Cl 3208 
Cl 3209 
01 32 1 0 
Cl 32 1 i 
0132 12 
013213 
013214 
013215 
01 321 6 
Cl 321 7 
01 32 l 8 
013219 
01 3220 
01 322 l 
01 3222 
0132 23 
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c 

SUERCUflNL LOAD.} JiiBJG 4 110 

’JStK Q t_F INi;l) subroutine 


C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 

C + fr 1 ******#* 

c 


C ALLS : 

C A L L t: U HY : 
PLRPCSL : 


(NCNh. oNLt jS» Ui.tR REOUEGfE'D) 

TuM Uut 

TO .Ji-h 1 Nl J rlc. AUXILIARY E UUAT I JNi ViriiCH WILL DEFINE 
THt 5CN5UK SIGNAL AND TOR 0U- bloN*L cOUAl IONS TL 9E 
JotJ FOR STABILITY ANALYSIS (sjL.tR DEFINED) 

* 4 4 ■> 4 * 44444444 * 4444444*44444 


iUGRCU r I Nc L X1CR 
C A LL s : 

CALLED 0 Y : 

PL ROCS t : 


DEBUG tf l Cd 

Uj-k > : ir Ii\lJ SUHPCUTINC 
(NONE UNLESS USER REQUESTED) 

TuRlUl. 


TO UtFlNE ALL EXTERNAL FORCc / 1 ULJ'JC LOADS • 

THL'JC alt at slnjch points 


: 4 4 4 \ 


SUcRCor INC FlTCH 
C auls : 

CALLED BY 


t444444444444’444444444444444 

UEE'JG ft 2 5 


UTILITY, t> A I A CCNTRCL? I/O 


( NGNL ) 


M it M GDL 
CkEl 3 
CUEMUO 
CR E Aulj 


CKL E 
CktA 
CRLo 
CkLC 


purpcsl ; 


TO FLTCH A PARTICULAR MATRIX hKiiM IAPL, THt TAPE IS 
ASSUMED TU tit WRITTEN IN BINARY AND THt RFCLRO 
NljMbr.k ASSOCIATED WITH THE M rt 1 H i K KNuiKN 


44 4 44 44 4 4 4 * 4 44444444 4 444 4 4 444 44 * 444444444444 4 * 44 4444*444444 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c< 

c 

c 

c 


SLORC UT 1 Nc F INDT 

c^lls: 


UCEUG M 66 


MAIN _ I Nt UPcRATICN 


C A Ll. e l oy : 
PURPOSE : 


ZERO a hi i T i S 

PAGthD WRITES 

REV AbD 

A S I ML k 

COMPETE THl SIMILARITY TRANSFORM AT 1 UN MATRIX R CF 
EQUATION 111-23* VOL I* SEE PAGE oJ VUL 1 ALSO 


SUSRCUTINE F INDU 


C ALLS : 


DEeuG * 33 


MAIN LINE OPERATION 


01 3224 
Cl 3225 
013226 
01 3227 
01 3228 
Cl 3229 
01 3230 
01 323 i 
01 3232 
C l 3 2 3 3 
013234 
01 3235 
01 3236 
01 3237 
01 3238 
013239 
01 3240 
C l 324 i 
013242 
013243 
Cl 3244 
013245 
Cl 3246 
013247 
01 3248 
Cl 3249 
01 3250 
013251 
013252 
Cl 32 53 
013254 
01 3255 
01 3256 
Cl 3257 
01 3258 
013259 
01 3260 
0 13261 
01 3262 
01 3263 
01 3264 
01 3265 
01 3266 
013267 
013268 
01 3269 
013270 
013271 
01 3272 
013273 
C l 3 27 4 
Cl 3275 
Cl 3276 
01 3277 
01 3278 
C 1 32 79 
Cl 3280 
Cl 3281 
01 3282 
01 3283 


B-234 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Ao r 

WR I T i S 
wR I Its 

C ALLEC UY : 

DYN620 

YOCJT 

PLHPCSt : 

IN DY.NS20 CALL FINDU TO CCM^JTc I HE INDEPENDENT 
COMPLNLNIs cf the u vectors 41 r-J FOR INSERTION 
INTO 1 He a IA1 E VECTOR. 

IN Yl/UI CALL FINOU TO COMPUTc. THE DEPENDENT 
CGOKuINATtJ AT EACH TIME S Te P f Jk INSLRTICN INTO 
THE SFaTL VECTOR 

ONLY 1 NJtPcNUeNT COCRDlNATco ARE INTEuHATED 
DEPENDENT CJUFOI NATES MUST JL CjMPuTtD IN FINDU 


# $ * * $ * $ 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


EUEKCUT INL FIT 

calls : 

c allEC ti y : 


DEDUG ft 75 


UTILITY* NUN-MATRIX OPEH. 


( MOM:) 


PCRPLSE : 


RL Ulus 

find THE SLOPE GF THE LLASI jJUAkE^ fit line through 
THE LUG CF The COEFFICIENTS UF A PUlYNDMIAL. LSfcO 
Fok SCALING 1 L RETAIN NUMERICAL PRcClSlCN 


C 

c 
c 
c 
c 
c 
<: 
c 
c 

c 

SU CMC 01 1NE O ACSi* l 


* ****♦ + **♦♦** <*****♦*#***♦< 
DC 6 L G 6 79 


C 

SUtiKCL I I Ni_ F OR MU 
C ALL o : 

( NCNt > 

CALLED dY : 

( i'lUiNi. > 

plkpcsu : 

NEARLY OiL :>AhE AS DFCRMU fiJ I »IIriGv>r w AIN 
CUMPul AT ION 


<*$#*********#<)£*****# 


OEfcUG » M 


UUlITY, MATRIX OPERATION 


C ALLS : 

C ALuLu HY 


j chplsl : 


WR I TLS 

.*1 o sA (J «/ C 
AS 1 MLR 
NUM 5 


L T K L SP 


C 
C 
C 
C 

c 

r 

c 
c 
c 
c 
c 
c 
c 

H?#r 5 »»»♦*»<(»«* 

c 

C SC EH CL 1 INC St:. 1‘JMG OCECG # a 3 

C .'4a in _ i • <i L uPEHATICN 

c calls: 


MATRIX l N V Lrv S I C.N S U' Jk OU I INc» kcT JiiNo MATRIX INVERSE 
ALUNu WITH PIVOT ELEMENTS US_J r-J u-jIAIN it. these 
MA \ -^L jSuU TO DETAIN THE Dt l uk. 4 i N AN T OF Jhh MATRIX 


C 1 3264 
013265 
013286 
013287 
013288 
013289 
01 3290 
013291 
013292 
01 3293 
013294 
01 3295 
013296 
013297 
013298 
01 3299 
013300 
01 3 30 l 
013302 
013303 
013304 
Cl 3305 
013306 
01 3307 
013308 
C 1 33 09 
C 1 33 I 0 
01331 1 
013312 
013313 
013314 
C l 33 1 5 
013316 
Cl 331 7 
013318 
Cl 3319 
01 3320 
013321 
01 3322 
Cl 3323 
Cl 3324 
01 3325 
01 3326 
01 3327 
013328 
Cl 3329 
01 3330 
013331 
013332 
01 3133 
013334 
Cl 3335 
01 3336 
C 1 3 3 3 7 
01 3338 
01 3339 
01 3340 
013341 
Ol 3342 
013343 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


«h i ies 
MLT Sk 

C ALLtD BY : 

YD 01 

PiKPUSt : 

COMPUTE 

uMU - b*M**(“l 

OF tCiUATIUN i I - 6 VOL l • SAVc ALoU 
bM = 0*M* * C “l ) 

dOIH UbLU IN LAGRANGE MULTIP-lcR CuMPUIATICN 


SUBROUTINE uMlSC 


DteuG ft lit 

UbcK 


c alls: 
called bv : 


(NONE UNLESS USER REGUESTED) 
T ORGuE 


PURPOSE : 


Jcf iNtJ SUBROUTINE 


A CATCH-ALL SUBROUTINE (USEk UtrlMfcU) USED TO ACO 
TO THE R.H.S. UF THE EQUATIONS Ur MOTION ANY 
ADDITIONAL CU N TR I E U T l C NS SJCH Aj IhtMALLY INDUCED 


JcFUrtMAT IUN LFFECTS 


A****- 


). V it tf. if. if. *f q. + * * t }c * <c * * 




c 

c 

c 

c 

c 

c 

c 


SUBROUTINE GKVGRO 

calls: 

WK l i L S 
MULT3 
MOLT AD 

C A i_L CD OY : 

YDOT 

PURPOSE : 

COMPul L 
GRAVl T Y 


debug # so 

MAIN L I Nc GPL RATI ON 


I ML LUNTR IbU T l ON TO THE rURCc VECTOR FROM 
GRADIENT EFFECTS 


C * * * * # * * * t 




DEBUG A 9 


C 

c 

c 

C 

c 
c 
c 
c 
c 
c 


SUER C U T I NE I N T APE 
C ALL s : 
callec uy : 

P lrposl : 


UTIHIY* DATA ccntrcl* i/c 

P AGLrtD 
READ 

INITIALIZE TAPE FCR SUBROUTINE *TAPE 


c 

C SUBROUTINE INVINP DEBUG A 41 

C ' UULUY* MATRIX OPERATION 

c calls: 

C WK 1 f S 

c Yuor 

c PKNTOU 

c. purpose: 


013344 
01 3345 
013346 
01 3347 
013348 
01 3349 
01 3350 
Ci 335 l 
01 3352 
Gl 3353 
013354 
01 3355 
013356 
01 3357 
01 3350 
01 3359 
013360 
013361 
Cl 3362 
013363 
CI 3364 
01 3365 
01 3366 
01 3 3o7 
01 3368 
Cl 3369 
013370 
013371 
C13372 
01 3373 
013374 
013375 
01 3376 
Cl 3377 
01 3378 
013379 
01 3380 
013381 
01 3382 
01 3383 
013 384 
013385 
01 3306 
01 3387 
01 3388 
01 3389 
Cl 3390 
013391 
013392 
013393 
01 3394 
Cl 3395 
01 3396 
01 3397 
01 3398 
01 3399 
01 3400 
C 1 3 4 0 l 
Cl 3402 
01 3403 
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C C I’MPuTl 1 1 *. VI- P 5L «jf .jVK-vt IKC MA:> 5 .44 I K i X 

C 

t * ♦ y * ❖ ♦ £ $ t<:=S<fVC Vlf*#**^^* <• «• * * V 4 - * <’ > * <f * ❖ i * ■> £ 4 £ * £ * * ,* ^ 6 »«M 

r 

M.f.R CL I l NL :<HlNv.L OtrU G 4 I Ob 

U^i.k j.- INuJ SUhRCuTlNL 

C m.l5 : 

{ Ntif'iL Ji'H.L j j v>i>l l< kI OUf j 1 FOi 

C At i.LC .jy : 

r ui?uol 

• »l b'HSu : 

J^UK i;tl- iNr.u I<iVj T ! Ni‘ IS.,'U 1 «J JLr 1 F U s C L 5 AND 
I'IjHU’JLS AL'IlNu AT M l N(iFS 0U_. iU ;#PP lUOb AND 
0 A SrtPU T S 


C 
C 
C 
c 
c 
c 
c 
c 
r. 
c 
c 

c 

C r :UJRCwr iNE Ll?.EAf< ULF.UG « 40 

C MA i in . 1 i^i. UPtRATICN 


calls: 

CAUcC HY 
;>CFPi:bL : 


C VDO I 

C w F 1 1 1. S 

(. 
c 
c 
c 
r. 
c 
c 
c 
c 
c 

( . $ ft * * * 4 * * * 4 f ^t*******#******-^? *££***«**< 

<: 

C ioPKU I i Nt. L PL T W K OfiFUo » 10 0 


uVNot .0 

Ubt-D lu Ut'T.AiN Tt-li L l N F A R l Zlu c.)l>A I 1 UtNli UF MCMICN 
US I NO the THLLRY 0 I SCO SSL' 0 i.N V J. 1 jli. 1 ICN III 
• S YiMTHco I .a AND ANALYSIS OF hit <_ l NLA f< l 2C.D SYSTEM' 
THE ► A »V I l a L OcWlVMlve N'ATUU A * N 
Y 1 DC 1 ) = A*Y 

IS i/t.M VLu Aftu a’PITTETN ON NIAHti2 


UIIuiTY. DATA CCNTRGL • I/O 


C 4LI.S : 


C ILLLC UY : 


plfpcsc : 


( NOfNc ) 


L T RcbP 


TO V, Kite T APL hO*? PLOTTING _li’NL:‘Ar<l/LU T iMt 
HI ST LA Y Pc. SP ot\i>L C A r A 


C 
0 
t. 

c 
c 
c 
c 
c 
c 

C*<£*r** 4 * 4 .£ 4 ** **$<i* , **$*****#>!r***<‘<r**< < ***< ! 4 *<* , *« [ < c ****«***A*** 4*4 

C 
C 

c 
c 

L 

c 
c 
c 
c 
c 


SUdMCUTINt LFL.NI 

calls: 


J eFUi * i 0 l 


UJiuifY. l> A T A CCNTRCL* I/O 


C /LuhC 5 Y : 
pl wPCSt : 


f*************** 

c 

C SL6FCLTINL LTAPti 

C 


PAGUti) 

*R I TLS 

L TPEbP 

TO PK I NT LiNLAKiZeC TIME HI^TOKT HrzbPUNSE 

* * * $ $ * * « 1 *<£*« * 4 * I 

OE E JG A 14 


UJILlfr* DATA CONTROL* I/O 


Cl 3404 
Cl 3405 
Cl 34C6 
01 3407 
01 3408 
01 3409 
01 3410 
013411 
Cl 34 l 2 
C l 34 1 J 
013414 
01 34 l 5 
01 34 1 6 
013417 
Cl 34 1 8 
01 34 l 9 
01 3420 
0 1 342 l 
01 3422 
01 3423 
01 3424 
01 3425 
01 3426 
01 3427 
01 3428 
01 3429 
01 3430 
013431 
013432 
01 3433 
0 1 3434 
Cl 3435 
01 3436 
Ct 3437 
Cl 3438 
01 3439 
013440 
C l 344 l 
01 3442 
01 3443 
013444 
013445 
01 3446 
Cl 3447 
01 3448 
01 3449 
01 3450 
013451 
01 3452 
013453 
0 1 3454 
013455 
01 3456 
Cl 3457 
01 3458 
01 3459 
01 3460 
0 13461 
013462 
01 3463 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c** 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


C ALL S J 

c ali.el by . 


P AGLi »D 


RE AD 
K T APt 


LIST THE HLADINGS OF MATRICES Ml fltiM ON 
TAPE NUMbtR NIAPE 


4 ****** > 


SUb’RCUTINE LTCRCl 
C ALLS; 


*********** * * * * * * * * ******* 
0 b BUG A 103 


UsER QLFlNcD SUBROUTINE 


C ALLtC Li Y 
P u RPC SE : 


ZERO 

( QTHlK S IF uoLR REQUESTED) 


LTRESP 


TO CuMPjft ANY EXTERNAL FORCS^ ANO TORQUES ACTING 
ON THE SYSTEM FOR L I NEAR I ZEJ IlML hUTbRY ANALYSIS 
RESULTS TO bt PUT IN VTQWQ Of uStR, IN YOOTL DISCCS 
WILL I He N St T UP THE MATRIX cOUAMUNS 
YOI = A * Y + VTCRQ 

TO ut INTEGRATED IN LTRESP (NOT. UNI T ^ CF VTQRQ) 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUERCUriNE LTRESP 


C ALtS: 


called by: 


PURPOSE : 


ZERO 
MOL To 
GAUSS i 

0 YNSa 0 


oeeuG * s9 


MAIN _INE UPERATIGN 


YDOTt 

lpltwr 

LPKNT 


LTORQL 


TU MAKL USL OF THE LINEARIZED EQUATIONS TO COMPUTE 
THE LlNt'AKitLw TIME DOMAIN RLoPUNSt* SEE PAGES 
85-86 OF VOL l. OUTPUT DATA StiNT TO DOTH 
PRINT (LPRNT) AND PLOT (LPLl'ftK! kUuTINcS 


C 

c 
c 
c 
c 
c 
c 
c 

L 

c 
c 
c 
c 
c 
c 

C*# ♦** ** «* i 

c 


( O ISCOS) 


c Att s: 


C ALLEC dY : 


PURPOSE : 


0YN51 0 
dyn^zo 

DYNSdO 

OYNSLU 


DEP.UG » 


MAIN L l Nt EXECUTIVE 


START 
LUMEN T 


NUNt. THIS IS THE MAIN PROGRAM 

MAIN EXECUTIVE DRIVING PROGRAM, SIZES OF VARIOUS 
DIMENSIONED ARRAY DEFINED HERE 

THESE MAY BE CHANGED VIA T Ht RED 1 MENS ION PROGRAM 


0 I 3464 

01 3465 
01 3466 
Ci 3467 
01 3468 
01 3469 
01 34 70 
013471 
01 34 72 
C l 3473 
0 l 3474 
Cl 3475 
01 3476 
Cl 34 77 
Cl 3478 
01 3479 
01 3480 
01340 l 
01 3482 
Cl 3483 
013484 
013485 
01 3486 
013487 
01 3488 
013489 
01 3490 
01349 l 
013492 
013493 
01 3494 
Cl 3495 
01 3496 
01 3497 
013498 
01 3499 
Ci 3500 
01 3501 
013502 
Cl 350 3 
Cl 3504 
01 3505 
01 3506 
Cl 3507 
01 3508 
01 3509 
Cl 351 0 
01351 1 
01 3512 
01 351 3 
013514 
01 3515 
013516 
013517 
01 3518 
01 3519 
01 3520 
013521 
01 3522 
01 3523 
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SUBRCUI INt MvitW 


debug « 49 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c^uls: 


CALLEC BY : 
pc tfPUSt : 


Main uINd OPERATION 


WRl fcS 
MULT3 
MUL TAD 

YOOI 


TU CUMPJI c Hit U £F CRM ATI CN Ub Pt-Y Dei* I MASS MATRIX 


C ALLS : 

C ALL E C BY : 
PtRPCse : 


FOR 


C ** * * * 4 * * * 44 :* I 

c 

C SceRCuT INE mltsr 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C ** 4 * * 4 4 4 4 4 -4 * < 

c 

C SutRCuTlMS MIUGIO 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C*** 4 * 4 * 444 *#* 444 v 44 <t 4 * 44 V 44 i 


DEEUG ft 56 


UTIlIIY. MATRIX UPhRATICN 


( NC.nL) 

Cc TUMb 

USc Id PilkF CjRM MATRIX QP LR AT 4 BN 
C ~ A* O 

rththc 

L(G.L.M) = A(ciLE) ( LC» -M ) 


RCaS UF C 


( NU 1 H l i\, L JcdIrUYEO) 


DEBUG ft 28 


MAIN JNc OPcRATICN 


calls: 


C ALLLO UY 


ZtRo 
K(J T TK 
5Kb .. V 3 

UYN51 0 


aR l ItS 
4 kI T IS 
Rc AL> 


PALL HD 


Rfc'AJ AND PKOCLSS RIGID BCOY d A 1 4 h LiK ALL RIGID 
JUJltS, St L FluW CHART PAGt 24 Vu- ll> DATA INPUT 
jtF j and data output oefa 

[ 444 ** 4 ****** V* * 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SCfjRC v J l NL M J.MQDC DEBUG * 15 


calls : 



UCAJ 

SKL *V3 


U r 4‘jA 

Hr(J 


UN 1 1 Y 

ZtRC 


\i AUSO l 

PAGLtiO 



* U I 1 L S 

C ALL EC UY 2 

JYMSi 0 


• 3 c rp l Sl : 




MA I tv. .Iiml DPtRATILN 

.MULT A 
RCTT R 
A t AQ I M 
V.R l T l S 


tffc’AJ ANJ PRLL^SS FLLXIULC BJUY JATA tJR LACH 
PLtAloLJ UUY u*L SCRIBED W l Trt CU^aUI'AM MASS DATA 
.juC FLUX lHakT PAGES 27-28 ^dl 11 
DATA 1 Nr* jI Sv>b« JbF3, DATA *jj I juJ< DEF4* 

r.-mui appendix a.vol i 


01 3524 
013525 
01 3526 
013527 
01 3528 
01 3529 
013530 
013531 
01 3532 
013533 
013534 
01 3535 
01 3536 
013537 
C 1 3538 
01 3539 
01 3540 
013541 
01 3542 
013543 
013544 
01 3545 
01 3546 
01 3547 
Cl 3548 
013549 
Cl 3550 
013551 
C 1 3552 
013553 
013554 
01 3555 
01 3556 
01 3557 
013558 
01 3559 
013560 
013561 
01 3562 
01 3563 
01 3564 
01 3565 
01 3566 
01 3567 
013568 
Cl 3569 
Cl 3570 
0 l 3571 
01 3572 
01 3573 
C 1 3574 
01 3575 
01 3576 
01 3577 
01 3576 
01 3579 
Cl 3580 
013581 
01 3582 
01 3583 
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SURRCuflNE MSMuDL 


DEBUG ft 16 


MaIN L 1 NE OPt RAT I ON 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c** * * ♦ 

c 

c 

c 

c 

c 

c 

c 

c 

c 


INPUT AZ ANU d* CUlPur Z IN DU MM f A Rk A V A Z 


SUBHCuT U^E MoLTAD 

c /ills: 

CALLEC dY 


DEBUG ft 55 


UIILIIY, MAIRIX OPERA T I CN 


( NONE) 


M G E N 

GRVGKJ 

UDOIUP 


T UR uUl 
LNG MUM 


PURPOSE : 


F U KM MATRIX OPERATION 
t_ = 4 4- A*0 

A. 0,4 INPUT MATRICES 
ZZ OUTPUT IN Z ARRAY 

ORIGINAL 4 wEuTRCYED A AND 0 ARE Nu J 


SUE RCC TINE MULfd DEBUG * 97 

C ALLS : 




utility, matrix cperaticn 


( NUNL ) 


C *LLbD O Y : 


AS I MLR 
L T RLSP 


C 1 3584 
01 3585 
01 3586 
01 3587 


c 

CALLS: 




01 3588 

c 


CRcl 

CREA 

FETCH 

01 3589 

c 


READ 

CRLT3 

CREC 

013590 

c 


ROT TK 

WR l TE 

ZERO 

01 359 l 

c 


CREADO 

CREMUO 

WR ITES 

01 3592 

c 


WR I I i S 

CRLd 


013593 

c 

C />LLtC 

0 y : 



013594 

c 


OYNSl 0 



01 3595 

c 

PURPOSE 

: 



01 3596 

c 


K£Au AND 

PROCESS 

FLEXIBLE 0u j V SATA FUR EACH 

01 3597 

c 


flex idle 

dLJY DCSCRIGED WITH LUMPEl) MASS CATA 

013598 

c 


SEE flow 

LHAKT PAGES 25-26 VJL 11, DATA INPUT 

01 3599 

c 


JUt3. DEFJ 

, DATA 

OUTPUT SUE. l)EF > • THcoRY APPENDIX A 

01 3600 

c 


VOL 1 



Cl 360 1 

c 





01 3602 

C*# * * * $**$4**$*#: 

>4 ‘*$4***$$**** 

: * ** * * * ❖ 


013603 

c 





013604 

c 

suercut £f>e 

MULT A 

CF.eUG ft 34 

01 3605 

c 




UllLiTY, MATRIX operaticn 

Cl 3606 

c 

c *ll s : 




01 3607 

c 


( NONt) 



013608 

c 

C ALLEU 

bY : 



01 3609 

c 


msmuuc 



01 36 l 0 

c 


AS I MLR 



013611 

c 

PLRPCSL 

: 



013612 

c 


UTILITY fNUOl i NE 

TO MULTIPLY RECTANGULAR MATRICES 

013613 

c 



AZ ♦ 

e = z 

013614 


PURPCSE : 


Cl 3615 
013616 
01 36 1 7 
Cl 3618 
01 3619 
01 3620 
Cl 3621 
01 3622 
01 3623 
013624 
01 3625 
01 3626 
Cl 3627 
01 3626 
01 3629 
Cl 3630 
C l 363 1 
01 3632 
01 3633 
013634 
013635 
01 3636 
Cl 3637 
01 3638 
Cl 3639 
Cl 3640 
01364 1 
01 3642 
Cl 3643 
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c 

utility 

J-.uuTiNb TC MCLTIPY .clTAsoUlAk MATRICES 

Cl 3644 

< L 


A * tiZ - 7. 

Cl 3 645 

c 

INPUT A 

AN C U / * OUTPUT Z I N J I it: J U PM V A E R A Y 8 2 

01 364 6 

c 



01 J647 


4*4-* ♦ v ? * ^ *•) «* * VV * W 

* ** * 4 * $ $ ft •* <•' £ S 4 ft -X ft U ft ft ft ft ft ft 

01 3648 

c 



01 3649 

c 

( l N t M ».4 T J 

J f F U O # J4 

Cl 3650 

c 


UUlUYi 1-IAUIX OPERATION 

0 l 365 1 

c 

C P LLS : 


01 3o52 

c 

V NONc ) 


01 Jo53 

c 

c /ci.fcC bY : 


C l 3654 

c 

rut Tm 

bSotNH IGKOue 

C t 3655 

c 

kCil ivri 

Mot N CNGMC.v 

01 3656 

c 

4JHvj£NH 

UK V Uf< ..) Y O 0 T 

01 3657 

c 

PUT Oz> 

bOO TUP 

01 3058 

C 

plr ,j l sl: : 


01 3659 

c 

HjkM uLSf-RAL MATRIX PRODUCT Jh <iZUANGULAfv MATRICES 

01 3660 

c 

A(NKA.Nko) * b(NPU,NC£S> = /;( Nkm . NLb) 

01 3661 

c 

INPUT A 

AN!) b. OUTPUT / NOI.ii.jj Ji.j|no)!cU 

01 3662 

c 



01 3663 

C + + f + * 

* fr * « $ * X****^****'#*^**# 


01 3664 

c 



01 3665 

c 

sutjKCtriNc MPLCr 

oeeuu » °o 

0 1 3666 

c 


utility, ,j a r a processing 

01 3667 

c 


Utiutlr. Lt A I A CCNTROL. I/O 

01 3u68 

c 

C Ac.L 5 I 


01 3669 

c 

( sc^+o^o 

PLCT UOU T l KP. S 1 

01 3670 

c 

callel dY : 


013671 

c. 

i)YNS 4U 


01 3672 

c 

purpose : 


Cl 36 73 

c: 

vil-NcK Ale 

NKhUS PLOTS AMPLI TuJe. Vi PHASE ON 

Cl 3674 

c 

l<eC TmNGULAm GRID. OAT A IN /PjTJ FF/ 

013675 

c 



01 3676 

c *•-•**$ $ 


01 3677 

c 



01 3678 

c 

J-UERCUflNt N U.M S 

D £ t U Ci * od 

Cl 3679 

c 


MA IN l 1 Nc OP t RATION 

01 3680 

c 

c «ll s : 


01368 1 

c 

oAUb.il 

V.R l Tt 

01 3682 

c 

URDU VR 


01 3633 

c 

SIFT 


01 3684 

c; 

call.cc jy : 


01 3685 

c 

U YNJ40 


01 3686 

c 

plrpc S t : 


01 3637 

C 

MAKls USL CF THt REDUCED C HA*< AC T 1 3 i 5 T I C MATRIX AND 

Cl 3688 

c 

Cl’MklSPJNU INC INPUT CCLF F l Cl ENT .» TU SET UP THE 

013689 

c 

NUMtrtA T UK FoR THE PARTICULAR IRANiFcW FUNCTION 

C 1 3690 

c 

ftcUULS TlU ANu TO CALL THE RjJfi'Jci lu otiT ITS RCOTS 

Cl 3b9 l 

c 



013692 

c <* * * * * 


01 3693 

c 



Cl 3694 

c 

SUUKCUT V NL NYPLLT 

0E8UG H <> 1 

01 3695 

c 


JIlLlIT, JAIA PROCESSING 

013696 

c 


oriLirr. vaia control, i/o 

01 3697 

c 

c ^ll s : 


013698 

c 

PL 15 ToS 


01 3699 

c 

( SC**\j<£(j 

PL Cl ROUTINES) 

01 3700 

c 

c all c d bv : 


013701 

c 

oyns* 0 


Cl 370 2 

c 

pc rpc st. : 


01 3703 
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onrinnnnf'. r'nnnnnnnr<nr\r>r\nrinr>nnnnnnrinnnrino('. nnnnnnrinn 


c 
c 
c 

C * * * * * ************ ****** vS 

c 

suercctine pagehu 


GE NLP A I L NYOUISf PLOTS GAIN Vg PHASE UN 
POLAk COORDINATE GRID, DATA IN / 3 5 T OFF / 


debug <t s 


UT l L l T Y t JAIA CONTROL, I/O 


C ALLS : 


C ALucC UY ; 


PURPOSE : 


T I ML 
SECOND 

DYNS1 U 
RLADI M 
Iv R 1 T 1 M 
CO MONT 
I N T APL 


READ 
WR I TL 
LT APL 
MSMODC 
MR I ul D 


PR NT OU 
DYNS30 
DYNS40 
F INDT 
T F PL Y 


SFREJ 2 
R_ JCUS 

R*k 1 TL 
L 3 R NT 


UTILITY ROUTINE, ERIN GS UP ML* PAGE UN LINO-PRINTER 
AND PUTS HEADING AT TOP OF II 


SUfiRCOlINL PLOTS 
C ALLS : 

CALLED BY 


OEEUC, » 9 4 


UI1LIIY, DA I A PROCESSING 


< none; 


purpose : 


RL PLOT 
NYPLOT 

SELECTS PLOT UPPER AND LOWER LI 4 l IS FOR A 10 SQUARE 

linear plot grid 


subroutine plutwr 
calls: 


DEBUG « 61 


UTILITY, DATA CCNTROL, I/O 


( NONt ) 


C ALL L C UY I 


porpl.se : 


U YNS20 

PUT ALL TIME hi STORY CATA ON NTA 3 LS, PLOTS MAY EL 
MADE OF ANY GF THE VARIABLES WR1ITLN ON NTAPE3 


subroutine PL1 CAR 

CALLS : 


C ALL c C BY 
PLRPC5E : 


DLEOG A 63 


UIILITY, DATA CCNTHCL. I/O 


013704 
Cl 3705 
Cl 3 706 
01 3707 
Cl 3708 
013709 
013710 
01371 I 
013712 
013713 
Cl 3714 
013715 
013716 
C 1 3 7 1 7 
013718 
01371V 
01 3720 
01 3721 
01 3722 
01 3723 
01 3724 
01 3725 
01 3726 
013727 
01 3 ne, 
01 3729 
013730 
013731 
013732 
01 3733 
013734 
013735 
013736 
013737 
013738 
013739 
01 3740 
01374 1 
C l 3 742 
013743 
Cl 3744 
013745 
013746 
01 3747 
Cl 3748 
Cl 3749 
013750 
013751 
013752 
01 3753 


R St T MO 

SET SMO 

SETUPG 

013754 

T I TLLG 

OH i OG 

LINESG 

01 3755 

PAGLG 

TbA Tu 

SUBJEG 

Cl 3756 

LABLLO 

LECNDG 


013757 

NUMbkO 

CbJCTG 


01 3758 

D YN550 

MAKES UOL OF SC 4 020 

SUBROUTINE WHICH ARE RESIDENT 

Cl 3 759 
01 3760 
013761 
01 3762 

l N f HE 

GSFC ibM-360 

SYSTEM 10 GENERATE PLOTS FOR 

01 3763 
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n a o r, nnc. r\ o o n n r\ p 


c 
c 
c 
c 
c 

C*$ 4 4 4 4 * 4 * 4 * * 

c 

C SUHHCaiNc PRUTOU 

C 
C 
C 

c 
c 
c 
c 
c 
c 


UU1 PUT DATA oLN£ RATED VIA NUM-LlNcAk TIME RESPCNSE 
ANALYSIS. THE DATA IS TAKEN uFF N T APE 3 IN 0YNS30 
PUT IN JUkMY 4ARAY ANQ PASSu TO PlTCAR h UR PLCT 
UENERA T I UN 

oeeuo * 60 


utility, data ccnthcl* I/O 


c alls : 


callcO l*y: 
plRpcse : 


1 NVINP 


P Ao u»L> 

WR I 1LS 
Sc C«JNU 

J YNS«-0 

ouNwkAL PRIM ROUTINE FOR NUN — L 4 Nc AW TIME HISTORY 
RC S^LiNbt 


$ $ HV 4 4 * $ $ i i ****?********************'** 1 

SurjRCL r PK3 Ofc'EUG * 36 

C A Ll. S i 




uiiLirt, matrix opera t i c n 


C A_LcC 6 Y : 
PL RPC Sc : 


( NONE ) 

M jMUu/C 

I U I rtc. I'iATk IX RKCDUC T 

Zl - Z *■ 3 »C**T*A*e 

W HE ke 

Z IS .mlL.NCU INPLT OESROYEj, Uj I PUT kETURNED fere 
L IS Kli A , ;<J LL NOT OcSTRGYlLU 
A l* NRA # NCA NUT OF. SI CRY EO 
ti I J *NL^,iJCu i i O T OESlROYEO 
3 Is SCALAR NOT DESTROYED 


01 3 764 
01 3765 
01 J766 
01 3767 
01 3768 
01 3769 
013770 
013771 
013772 
01 3773 
Cl J 7 74 
01 3775 
01 3776 
01 3777 
Cl 3778 
01 3779 
Cl 3780 
013781 
Cl 3782 
01 3783 
013784 
Ci 3785 
Cl 3786 
01 3787 
Cl 3788 
01 3789 
Cl 3790 
013791 
01 3792 
013793 
01 3794 
01 3795 
01 3796 
01 3797 
01 3798 
01 3799 
Cl 3800 


c* * 

<• * v 4 $ $ $ 4 $ X * $ # 4 $ $ 

v 44 $* 44 * 44444 X 444 $ 44444444 4 $*XV 4 V* 444444 * 


Cl 3801 

c 




01 3802 

c 

soowcu r inl uklon oesug « es 


01 3803 

c 


ui i Li r v • matrix 

OPERATI cn 

01 3804 

c 

c all s : 



Cl 3005 

c 


JR 2 


01 3806 

c 

calleu j y : 



01 3807 

c 


UKwkVk 


Cl 3808 

c 

PLHPuSc. : 



01 3809 

c 


T 'J CALL f L’k 1 h£ J!< TKAN'jF CR«|A 1 1 J V Anu I CJ 

MAKE USE 

01 381 0 

c 


C*F THE LATA LLMPL 1 E T HERE IN 1 U JlI ; l Nc THL 

KCUTS of 

013811 

c 


T i iL ••> A 1 K 1 a ( >*Ll RCUTS /tRC if<i<iL» wUt'lPlcX PAIRS) 

013812 

c 




013813 

c** 

$ $ $ 4 $ $ $ 4 V -J: 

* 4 V 4 4 * 4 4 4 44 444444*4 + 4444 


013814 

c 




01 3815 

c 

S'JPR CL T IM. LA 

U R V R JLtUG 4 


Cl 3816 

c 


UIIUIY. MAIrtlX 

OPERA I I CN 

01 38 17 

c 

calls: 



Cl 38 18 

c 


UHCON 


Cl 3819 

c 


^ JJ Jl A 


01 38 20 

c 


w K 1 I c. S 


0 1 382 1 

c 

C ALL cl ti Y : 



Cl 3822 

c 


O r ' J j'»U 


Cl 3823 
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purpose : 


SUER C UT I ME UK2 
C ALL s : 

C *lL£D BY 

purplse : 


c 
c 
c 
c 
c 
c 
c 
c 
c 

c * * * * + 1 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c. 

ft * A ftft ft ft $ftftftftftftftftftl 

c 

C SUBROUTINE HE AD 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


NUMS 


TO DO A MINIMAL AMOUNT OF OA T A J « G T N 1 £ A T ( ON AND 
TO CALL THt ROUTINES THAT WILL COMPLIED THE COMPLEX 
ElGENVALUtS of THE N,N M A T R i \ A. THIS routine is 
AVAILABLE IN t X T ENDED REAL*li> PRECISION HOWEVER 
RUN 1 l ML uN IBM-360 IS ORDEk* uF MAGNITUDE. SLUWER 
THAN ktAL*tt PRECISION 


OEEUG ft 87 


UTILITY, MAI k IX OPERATION 


( NONE) 

ORCUN 

TO vj(J THROUGH THE JR — TRANSFJ 3 MAT ION AND RETURN TO 
URCUN THE uATA NECESSARY FUR GPi L 1 F l CA 1 l U N CF THE 
COMPLEX ROOTS 

>ft*ftft*ftft#ftftftft*ftftftftft-*ft 

DEEUG ft 10 


UTILITY, DATA CONTROL, I/O 


c *lls : 


C /'LL L C BY ; 


PURPOSE : 


i n r ape 
K 7 APE 
PAGEnO 

OYNSi 0 
MSMUUC 


WR1 TE 
LTAPt 
LTAPE 

MSMGDL 
MR i G I 0 


DYNS40 

CGNTRL 


READ MATRIX OF REAL NUMBERS .-RUM CARPP UR TAPE, 
AND PRINT IT, SEE COMMENT CARD* IN SJoROUllNE 


OEEUG ft 3 


UllLilY, JATA CONTROL, I/O 


c alls : 


C AL^L L LY : 


PAytnj 


D YNSi 0 
MSMUuC 


OYNSaO 


C ft ft ft ft ft ****** ft *<• ft ftftvft* 

C 

C SUEkCUTINl KEA01M 

C 

c 
c 
c 
c 

C 

c 
c 
c 
c 

c 

SUCRCUTINE RcVADU OtEuG ft 90 

UTILITY, MATRIX OPE RAT I CN 

C £LL 6 • 

(NONE 1 


PURPOSE • 


REAP INTEGER MATRIX IN FORMA FORMAT K » < U M CAROS 
PRINT lLHU uF INPUT IF ft IN CuL 60 ur HEADER CARD 


C ftLL E D BY : 


F 1 NU T 
AS I MLR 


PURPOSE : 


01 3824 
01 3825 
01 3826 
01 3827 
01 3828 
01 3829 
01 3830 
01 3831 
01 3832 
01 3833 
Cl 3834 
01 3835 
01 3836 
01 3837 
01 3838 
01 3839 
01 3840 
013841 
01 3842 
Cl 3843 
Cl 3844 
013845 
01 3846 
01 3847 
Cl 3848 
01 3849 
01 3850 
013851 
013852 
01 3853 
013854 
01 3855 
01 3856 
01 3857 
013858 
01 3859 
01 3860 
Cl 3861 
01 3862 
01 3do3 
01 3864 
Cl 3865 
Cl 38t 6 
01 3Q67 
01 3b68 
01 3869 
01 3870 
01 3871 
Cl 36 72 
Cl 38 7 3 

0 l 38 74 
0 1 3875 
01 3876 

01 3677 
Cl 3673 
C l 36 7< 4 
01 3880 
C l Je8 l 
013882 
Cl 3883 
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li. HlARKAMGE u G’aS AN.) t. a.U-iha iA : .-I.Ali-ICLS 
i ..mmunj (,akj:> i slbk *»ur i .*4v_ 


c 
c 
c 

c 

C sLiJKtiriNL l< <; V ( 5t_ OELUG » 30 

c it i 1. 1 r v * i-* \ i *< i x oplpaucn 


c c<. t.o : 

C Al U:G »;V 

plk m.sl : 


{ MCNO 


Kr; AKr AM '..it. fuA. b A NO CGI . w.*-i N*-J .jh A '4/< A , .w t. A 

rtH MaIUIa. I\Pjr 1A I l\ 1 A NdT 'JLbTWGY'JO 


c 
c 
c 
c. 
c 

C?+*?»0 

r. 

C. *? L ;j t\ C L f l N L K L • X .G 5 OfiPGo 0 7 4 

C IJIIUlVi NJN-MATRU CPtli* 

c CALi.:»: 

C ,)Kf.AL LIT 

C *»> 1 M A vji 

C H A v»iitiL> 

c c Aui.c;i: iiy : 

c D Yh:>4 o 

c pl:<pi:u : 

C r C C«,.v,PulE IhL Wf.CT t.rjc.ws Or- III- kcGwu^JEO TRANSFER 

C 1 Vj ti L I I l iN t L iJ 1 r’u T CAT A ‘iTCPEj IN 5 A V L \) AND S A V C P 

C -M’KAlb iJf* /PbJGLF/ 

C 

C 

C HC’HWCi; I (Mr. K K AIM M Oh PUG * 59 

C UIlLllY. NJN-MATRIX OPCR- 

C calls: 

c Yoor 

C. C AH. LC OY : 

C i)YNjcO 

C PL^PCLEJ 

C UASlL l MTl^AI l ON PACK A G L P.iVHc^ h L < III ORDER PENCE— 

C KDTTA OR AUAMi. PlUiOICTOW C(><k c.L I UK WU-IHGDS AVAILABLE 

C 


c 

SuellC uT I M. f<LPL g r 


S * * 4 >**<:* 4 4*44444 

oeeuG * 92 


UliLirv. DATA PROCESSING 
UTILITY, O a 1 A CCNTHCL. I/O 


c all s : 


c allci: uy : 


plotss 

(SC-4U0 PLOT RUUTINES1 


c 
c 
c. 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c * * * * * *444*V*4$$V* 

c 

C PueRCLIlNE HM V/RU OEEUG « 7 l 

C UIlLllY. NJN-MATRIX GPE P « 


PLKPCSL : 


UYNS40 


oLNchA T l KLuT LOCI PL C T FUR A SINvjLc hGOT 
DATA IN /PSlUFF/ 


0 1 398 4 
01 JtlSS 
G I 3886 
Cl .3 B >17 
Cl 3H3« 
01 3889 
01 3390 
Cl 309 1 
0 l 309c 
01 3093 
0 l 3394 
01 3095 
C l 309b 
01 3097 

0 1 139 b 
Cl 3399 
C l 3Q00 
C l 390 l 
0 l 3902 
Cl 390 3 
C l 3904 
Cl 1905 
Cl 39 0 6 
Cl 390 7 
Cl 3908 
Cl 3 90 9 
Cl 391 0 

01 39 1 I 
01 ^912 
Cl 39 13 
Cl 39 1 4 
01 3915 
Cl 39 l 6 
013917 
01 3918 
01 39 1 9 
01 3920 
C l 392 1 
01 3922 
Cl 3923 
Cl 3924 
Cl 3925 
Cl 3926 
01 3927 
Cl 3923 
01 3929 
01 3930 
C l 393 1 
01 3932 
01 3933 
01 3934 
01 3935 
Ot 3936 
Cl 3937 
013936 
01 3939 
01 394C 
01 394 l 
Cl 3942 
01 3943 
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nnAnr'finnnnnnnr onnn r> n n n r> nrtnnnnnnnnr»r»r$r;nr'nnr>r»n non 


c alls: 


c alllc uy : 


( NONE ) 


purpose: 


UVNS4U 


REMOVE REAL i.tKOS FRRM WEAL l<uUf AkkhY PRIOR 
TO CaLL TO TIFF 


**$**4*#**«‘«-*t* 1 )‘* ******* *******4*** ’ 

5UERC Ul l Mi NCJTuH OFCUC 

calls: 

MOL I j 
R01 Ik 
V* « I T i 5 


MhIN _ l ne operation 


C A a. izO dY ; 


PtKPCSt : 


D YNS«JQ 
YOOT 

to compote hinge frame transformations and velocity 

THAN&EUkMATluN MATRICES* THc cLi.Mc.NTj OF THE ARRAYS 
OHtKHfPl N# RUL ANO DDL ARE CUMPUTcO rlcRC 


*♦**♦♦*** 4* * + * * * ***4************ 44444 *** 4 ******* 
SUERCUl'lME ROTOS OF BUG tf 46 

C ALL i : 


MhIN .INc UPc RAT ION 


CALL EC OY 
PURPOSE : 


MULTJ 
ROT The 


YOOT 


TO COM PU T c SENSOR POINT FRAMi TTANSFURMAT ION MATRIX 
THE LLcMLNTS OF THE ARRAYS io AVJ US ARE COMPUTED 
HERE 


<: 4*944444 * * * * * * * * 44*4 4«4444*44*4444 i 


SUBRCC r IRE KOTTR 
CALLS : 

CALLED HY 


0E5UG * 32 


MAIN _I,x£ OPERATION 


MOLTS 


M S MUoC 
MSMUOL 
MR i LI L> 


ROT UH 

norus 


PLRPOSE : 


TU OOMPUTL ANY ONE OF THE T*cLV£ TYPeS OF EULER 
ANGlc TR ANSFORMA T ION MATRICES ANJ/Ok THE PI INVERSE 
VELClITy TRANSFORMATIONS* for T-ltORY SEL APPENDIX 0. 
VOL 1. AlSC ;>EE COMMENT CAROS HJTTR 


SUbfi CUT l Nl R TAPE 
C ALLS : 


ofceuG » i i 


UTILITY* DATA CCNTRCL. I/O 


L T APE 


C t 3944 
01 3945 
01 3946 
Cl 394 7 
01 3948 
Cl 3949 
01 3950 
013951 
Cl 3952 
01 3953 
01 3954 
01 3955 
01 3956 
01 3957 
01 3958 
01 3959 
01 3960 
01 3961 
013962 
0! 3963 
01 3964 
01 3965 
01 3966 
01 3967 
Cl 3968 
013969 
01 3970 
013971 
01 3972 
01 3973 
01 3974 
Cl 3975 
Cl 3976 
01 3977 
01 3978 
01 39 79 
Cl 3980 
013981 
01 3982 
01 39 8 3 
C 1 3984 
01 3985 
01 3986 
01 3987 
01 3988 
01 3989 
01 3990 
01 3991 
01 3992 
01 3993 
013994 
01 3995 
013996 
01 3997 
01 3998 
01 3999 
01 4000 
014001 
01 4002 
Cl 4003 
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n n n n n n n n n n n n r* n r> 


C C ALLEC uY l 

C HEAU 

C PL RPC St: 

C HE AO MATRIX A, S I ZL ( NR A . N C A> FRJM I APE ALONG 

C ROW ANu CiJLJMN LENGTHS. SEE LUMAcW f CARDS IN 

C 


C** <t $ * < 


t *$.#**$ * 


fc I TH 
KT APE 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUCKCoTlNt RTuP 


oeeug * si 


c alls : 


C ALL C U UY I 


P LHPGSt . l 


UTILITY* N.JN- MATRIX CPEF. 


( NONE ) 

DYN^O 

ru Tmkl The numerator anu ^NurttNAic>< roots stored 

IN THc kCUTs ARRAY R AND GtNcRAfE f ML CORRESPOND I NG 
POL Y iiEM l AL COtE FICIENTS* T He LVJd EE iLldNTS APE 
jTUhlu IN ARK AY ft* CF /LRPOI/ 




c 

c 

c 

c 


SUbR CuT i NL R ViK I I E JtEuG * btl 

'JULirr, jATa CONTROL* C/O 


C alls : 


called gy : 


plkplEC ; 


PAGtND 


•J Y NS** 0 

PR INI U^l PEAL AND IMAGINARY PAxlS Ur THE HOOTS 
OuT A1 .\lJ AT i/lEfEPEMT STEPS 1 nKJj^M I He STAUlLITY 
ANALYSIS 




C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c«* 

c 

c 

c 

c 

c 

c 

t 


OoERClTINc sAT’J 


O t: C U G ft 2 6 


CALLS : 


CAt.L.CL jy: 


pckpl el : 


UTILITY* 

( NUNc) 

CrxEtMOU CULL 

CrtCAyU Ckcc 

CkcA C R E’ r: 

EL RE uH >'• 1 lie i i*. A T K i X OP ERA 1 I UiS 
LL ~ L ♦ A<= * T *13 

/*A,u i NHL J i«! A 1 HI CES 
G INPlI SCALAR 

LL 'J j 1' HU I ,-1 A I f« I X UclUWNuJ I ■ * L 

L LNr'JI tJw jIK'LYcD 
A« ji j <\U ll S 1 »<: ) YE 0 


MATRIX OPERATION 


ARRAY 


f Ul vMi 4 #VH:Vr ^ jiLf 


SLl'HOCf 1 Nr» s C A L l. 


c j : 

C A l L c L u Y • 


( fiCilU ) 


SPLof 


J Lie U G o Vj 

UI1L1IY, jAIA PROCESSING 


01 4004 
01 4005 
01 4006 
01 4007 
01 4008 
01 4009 
01 4010 
014011 
014012 
014013 
01 40 14 
Cl 40 15 
014016 
01 401 7 
014018 
014019 
01 4020 
014021 
014022 
014023 
Cl 4024 
01 4025 
01 4026 
01 4027 
Cl 4028 
Cl 4029 
014030 
014031 
01 4032 
01 4033 
014034 
01 4035 
01 4036 
C 1 4 0 3 7 
Cl 4038 
01 4039 
01 4040 
014041 
01 4042 
014043 
01 4044 
01 4045 
C i 4046 
01 4047 
Cl 4048 
01 4049 
01 4050 
014051 
01 40 52 
01 4053 
Cl 40 5 4 
01 4055 
01 4056 
Cl 4057 
014058 
Cl 4059 
01 4060 
01 4061 
01 4062 
01 4063 
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nnnnnrnnnnonnrnfi 


URL AL 


C PLhPCSfcS 

C 

c 

C * * * $ $ 4 * 44 *4 ■*#$*$$ *$$*****¥*£**£***£ 

c 

C SUCRCU I 1 NL SFEG 

C 

c c all ^ j 

c 
c 

C C ILL EC bY 

c 

C PURPOSE : 

c 
c 
c 
c 
c 
c 

C*nH**m*»' 

c 

SU HR C of I NE S h AFF T 


CUMPuTL SCALE FACTGR AND SCALE ulMATS FOR PLOTTING 


OEEUG » 7 3 


UTILITY. NJN-MA TR I X GFER « 


P AGLHl> 
t> 1 MAG 


0 YNo40 


TO JLltKMlM S*" PLANE FREQUENCY ^ljPUNSE. ALL CATA 
COMPuTLD STOKED IN /PSTUFF/ FOR PLOT I i NG 
MAKES USE CF TIME CONSTANTS. DAMPING £ETAS AND 
F REUULNC l c. S STOKED IN ARRAYS F bR N • F ciNC • F U R— F U RD 
AND FbOL ALUNO WITH BODE GAI N=GA I N 


|£*** 9 <£#*** 4 ■{ 




OEEUG a 109 


calls; 

C AlLEC by 
P L RPC sl : 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C * # 4 4 * 4*4* 4 + * *4*;:* 4 *********** ********** * ************* 

c 

C SUBROUTINE oif-T OCtbk. fr 72 

UfluilY. NON-MATRIX CPEP. 


U^ k_ R DEFINED SUBROUTINE 
(NONE UiNLESS OsER REQUESTED) 

T GRuOE 

TU J^MNl ALL TOFGUES ACT IN^ DN lMULJJcO 
SYMMETP.lL WHLcLS (USER DEFlNcJ) 


C AL^S ; 
c alleu by : 

PURPOSE : 


l NONE. ) 


OYNS^O 
MU Mo 


SEARCH iNPol ARRAY A FOR NUMBERS i-ESS THAN TOLERANCE 
VALUti T OL • bLf THESE EQUAL lu 0.0 



C 

C 

C 

c 

c 

c 

c 

c 

c 

c 


jp^ 4 :** 4 (Xc 4 -**** ********************** 

OEEUG ff S3 


C AcLcC BY : 


( NCNL ) 

M S M^l/C 
MR 1 ulU 
B HGcNK 


purpose : 


UTILITY. MA1RIX OPE RATION 


b'jbtNR 
uuL I uP 
T UK OUL 


UTILITY KOUTlNi^ SKEW CPLRATJ* 


ir^V = -VJ 


V 3 -V2 
0 VI 
-VI 0 


IN)M (Vl.Vt.Vj) (.UTPUT SKV ARRAY 


01 406 A 
014065 
014066 
01 4067 
014068 
014069 
01 40 70 
014071 
01 4072 
01 4073 
014074 
01 4075 
01 4076 
01 4077 
Cl 4078 
Cl 4079 
01 *080 
C 1 40 81 
01 4082 
Cl 4083 
014084 
Cl 4085 
01 4066 
01 4087 
01 4088 
01 4089 
Cl 4090 
014091 
014092 
01 4093 
Cl 4094 
Cl 4 095 
01 4096 
Cl 4097 
01 4098 
Cl 4099 
Cl 41 00 
Cl 4 l 0 1 
Cl 4 1 02 
01*103 
014104 
Cl 4 1 05 
01 4106 
Cl 4 i 07 
Cl 4 1 0 8 
Cl 4 109 
Cl 4 l 1 0 
0 141 11 
014112 
Cl 4 l 13 
014 1 14 
014115 
014116 
014117 
014118 
Cl 4 1 1 9 
014120 
014121 
Cl 4 122 
01 4 l 23 
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U VJ 


: » M } ^ i H I > •/ *44 **<■•£< M: 7 * P f « H <1 ^ V ♦ i- f > f « < *•>*.* a V ^ t d 


.cu j r cv. i » m.. 


C all b : 


u »: C* w. ' » -v 


V.'.ALc 

<*;L4*)20 J'LLl 1:.,'.IMN[ S) 


oil*., irt* jriiA pm.cxss ing 

Jl i.. i I r , .)4U <.f NIHCL i I/O 


C 
t 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

vtn* * ♦ m <■ » ., f a t ' ■> H'f » * f-a a * 

C. 

DbliUii ft o 

Ulll. I I Y . jmIa CLNfROL. I/O 


c^i,.t.i: ly : 


fU.-Vo^L : 


,it.Mr JAIL UU>c PL L I 5 ijAlN AN> PM-*bi. v »> r*‘ i . i H-c N C V 
_<N :.». A l -LUG SLAl.i: *OA f A IN AM Jr - / 


= 0» : f<’f -j r l Nr 5 ! AH T 

c aj.u 5 : 


C^LLbD dV: 

Pls.v.rjL : 


c 
c 
c 
c 

L 

l 
c 
c 

f 

L 

c 
c 

c 

£ U L*H CiJ lAt. 5 It HE 0 L tfUG * 2 A 

Ul i L li Y « MATRIX CPERAT1CN 
UT 4 u l f Y « .MJa CCNlHOL. I /C 

C ALL .5 : 

< NL I'll- ) 

C AL L tU t>Y : 

C HLl o 


L X l T G 
A U i ) l. oO 

i ) a r is * 

MA l N 

IM TULl/J. PLOTTING CAPAOlLi TV « -tuA.j.'j JAF A TO OE PUT 
A ;> • i*_ A j l ‘‘4 vj UN EACH !X FPuT •’’A .» c • ir i Ho-N • F G . 6HHL GUG 
TvfO l a I \ A *.AhDb READ ;vh i C h Jcr i.sr; J H ^ bGtikOL'T INES 
t UK v.! i lull I ML u:-L : LG PRINT FPF iuv Li fu Oh 
rXLHi. 1 :*>tiu 


c 
c. 
c 
c 

L 

c 
c: 

C PLRPuiL 

C 
C 
C 

c 
c 
c 
c 

C 

C SU».*RC w f INL SLiHJIA U E RUG * <J6 

C Ullull V. MATRIX OPERATION 

c ^l. b : 

l NCJuu ) 


T UHM M .A T K i X P K O i J OCT 
L = ^ * -J 

vi HER c: 

A lb (NA«Na) DIAGONAL ST^Ai_J aS A VlCTOR 
o lb ( NA »Nul ) GENERAL 
WH1 It. I IN ulNAHY JN TAPc NlAPu 


calllc ly : 
p o r« p j sl : 


OHOhVH 


TO Pol THE MATRIX A IN UPPEk Hubb^NDURG FORM* 
Pt'HLiMlNAKY blLP IN OBTAINING uJMPl-cia RLC1S 


014124 
014125 
Cl 4 | 2 G 
Cl 4 12 7 
014120 
014120 
01 4 1 3C 
C 1 4 1 3 l 

0141 32 
014133 
C l 4 l 34 
0141 35 
Cl 4 t 36 
014137 
Cl 4 1 33 
Cl 4 139 
014140 

0 l 4 1 a l 
014142 
014 14 3 
014144 
014145 
Cl 4 140 
014147 
C l 4 l 4 8 
014149 
C l 4 I 5 0 

014151 

01 4 1 52 
OI4153 

01 * 1 54 
Cl 4 l 55 
01 4 l 56 
014157 
014158 
01 4 1 59 
01 4 1 60 
01 *161 
Cl 4 102 
01 4 1 63 
Cl 4 164 
014165 
Cl 4 l 66 
Cl 4 1 67 
01 4 1 68 
014169 
014170 
014171 
014172 
Cl 4 l 73 
Cl 4 i 74 
Cl 4 1 75 
014176 
014177 
Cl 4 l 78 
014179 
01 41 80 
014181 
Cl 4 1 82 
Cl 4 1 83 
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<‘4'4*4i‘***W* ! **£4‘*t**<‘**'***fr$*v£ $$*>**$*$«£******$********$ 


TO CLNVLr<r P G L Y N C M I A L TRANSFER ^JNU IuN EXPRESSIONS 
OF CONTROL LuCVS TO F f PS T t i<DER DIFFERENTIAL 
LOU AT L ON S • SLt- VUL I PAGE l± FUR THEORY. 

OUT Vo I Of IFPLY LOADED OIRfcLTLY INTu STATE VtCTCR 
OcH l VA f I VL ARRAY VDT 

* $ i* if if. if ^ ff if if * £ £ * v fvfcF******* * * * * * + fr******************* 


SUER Cl. f l NE TF TYPE 


C 
C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c** 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C** $*♦*£***$# 

c 
c 
c 
c 
c 
c 
c 
c 


iiulrclum: tfply 


DC LUG ft i* 9 


main uliMt OPE RATION 


c / ll s : 


c Al.LLL OY : 


plrpcsl : 


PAGLltD 


CON T RL 


OctrUG 6 7 


MA 1 N ulNt OPc RATION 


C ALLS : 


C /LLeO BY : 


PURPOSE : 


ZERO 


DYN$*0 

MAKlg USE LF THE INPUTTED hTtu£'-< CUJuG AND THE 
L I NEAR IZld SYSTEM EQUATIONS Jr 4u! lu.N TO SET UP 
T He RfeUUtcC CHARACTERISTIC MaIKIK ANJ THE 
CORRESPONDING INPUT COEFFICIENT :> FUR THE PARTICULAR 
IRANSFLR FUNCTION RE QUESTED* FuR THeURY SEE VOL l » 
pages 7J-78 

« ******************** 


SUfcrftCul INC TORQUE 


DEBUG * 57 


MAIN LINE OPERATION 


C ALL: 


C ALL c D uY : 


P LKPCSc. i 


MULT 6 
MUL TAD 
EG AUu 

YD UT 


CUNTRL 
EX T OR 
SHAFF T 


WR l TES 
GMISC 
KH INGE 


S AtwVJ 


COMPUTE ALL GYROSCOPIC KUKClj AND TuROUfcS ACTING 
ON THE SYSTeMt CALL USER ROUTINES wHICh DEFINE 
NOM-uYHG SCOP I L EFFECTS (SPRiNu. DASHPulS. MOTORS) 
WHEEL CONTROL TORGUFIS* GPAYIIY GRADIENT* ALSO 
CALL TO EuAOU DEFINES THE SENIOR AND TORQUE SIGNAL 
E UUAl IONS FOR jT ABILITY ANAL Y u i S 


SURRCLf iNu rf<FB 
C ^ ll s : 


DEBUG # 3 2 


C />LLEC uY : 
PL RPC Sc; i 


( NUNL) 
l NONE ) 


C I 4 1 54 
014185 
Cl 4 1 86 
014187 
014198 
01 4 1 89 
Cl 4 190 
014 19 1 
01 4 1 92 
014190 
01419* 
01 4 195 
01 4 196 
01 4 197 
01 4 196 
Cl 4199 
014200 

0 1420 1 

01 4202 
01 4203 
01 4204 
Cl 4205 
014206 
01 4207 
0! 4208 
01 4209 
01 4210 
014211 
Cl 4212 
014213 
01 4214 
Cl 421b 
014216 
Cl 4217 
01 4218 
014219 
Cl 4220 
014221 
014222 
01 4223 
014224 
01 4225 
Cl 4226 
Cl *227 
01 4228 
01 4229 
014230 
014231 
014232 
014233 
01 4234 
Cl 4235 
01 4236 
Cl 4237 
014238 
01 4239 
014240 
Ci 424 1 
014242 
Cl 4243 
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C 

SUHRLuriNE T ff F 


; v * v * ******* 


C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

£ ** 4 # * 4 * * * 4 

c 


JE60G fi 3 3 


UTILITY, NON-MATRIX OPfcR. 


C Al L5 : 
CAuLtiC dr: 
p lrpc Sc : 


SUURCuT l M_ UM T Y 


C alls : 


(NCNt) 

DYN5*0 

T A K L S ALL KEAL.ZtfC AND COMPlcX *UuTS uF NUMERATOR 
AND OcNJMl NATUK ALONG wlTH oOud la|N FUR PARTICULAR 
TKANSFLK HM.TION and PLACE* Iil£,4 IN T HE ROOTS 
ARRAY R 

c*44**44*4 **44 * ** * ******* 

oeeuG » 33 

U 1 i i_ 1 T Y • MAfKiX CPLRATICN 


01 4244 
01 A 245 
01 4246 
Cl 4247 
01 4248 
014249 
014250 
01425 l 
01 4252 
Cl 4253 
01 4254 
Cl 4255 
01 4256 
014257 
Cl 4258 
Cl 4259 
014260 
014261 
014262 


L 


( NGNlJ 



014263 

C 

C ALL cL li Y 

; 



01 4264 

C 


MSMluC 



01 4265 

c 

MliiFu Sc : 




01 4266 

c 


CPt; A1 t JNl 7 U 1 AuCNAi. MAf H I * 


Cl 4267 

c 





01 4268 

C * 4 4 * ♦ 

V* ** 

* £ * 4 * * 4* V * 

<t ****. 444 . ********:* ?##«»«»¥*#* 


014269 

c 





014270 

c 

SlCHClTIML- 

R 1 T L 

dcEUG A 12 


014271 

c 



UTILITY, J AT A 

CCNTHOLt I/O 

01 4272 

c 

c alls : 




014273 

c 


PAutliu 



Cl 4274 

c 

CAlLLL jy 

: 



014275 

c 


hGAu 

LklL AS I MLR 


014276 

c 


MSMUuL 

CHc A NUNS 


014277 

c 


LRF.hul 

CKcb DYNS4> 


014278 

c 


CRcAL/ij 

LklL CUNT PL 


014279 

c 

plhplsl ; 




0\ 4280 

c 


UTILITY 

KduTiNt US CU TC PRINT l*J JIMcNS 

IGNAL MATRIX 

01 4281 

c. 


OF RlAL 

NUMtlLni. IN FCRMA p Ck MAI ;v 1 f ft LftOCLtD HEAOING 

01 4282 

c 


AT HP «j F* N t 1 a PAGE 


014283 

c 





C 1 4 2 84 

C * * * *4$ >**?>** 

MV** *44**4 

******** * 44***444 444* # * .» * 4*4*4** 


01 4285 

c 





Cl 4286 

c 

- U U l< C U T 1 NL A K I T c 5 

Jl-CUG A 4 3 


Cl 4287 

c 



UTILITY, w*ATA 

LLNTRCL* I/C 

01 4288 

c 

CALLS : 




01 4289 

c 


l N JNL) 



Cl 4290 

c 

CALL CO UY 




01429 1 

c 


JY Nol U 

LINLAk 0UC TOP l j RNT 


01 4292 

c 


y» j mu^c 

i »M I *‘\P G AKSL V r i t‘<d T 


01 4293 

c 


MSMO^L 

UiIlLNP TURCUc AjIMlk 


01 4294 

r. 


Mf<loI j 

UlJcMO PKNTOU 


01 4295 

c 


f l Mt)u 

MjcN GAUSS l 


Cl 4296 

c 


Yd j r 

Of* \ uWD UR OR V P 


Cl 4297 

c 

MlnPCbc : 




01 4298 

r 


UTILITY 

RLU 1 & I'd 1C PRINT Two dl 'LUjIJ.nAL 

ARRAY OF 

01 4299 

c 


PL At MUM 

ubl<j IN PCHMA T CRM AT. 


Cl 4300 

c 





C 14 30 1 

C * 4 4 * 

4V*t HrOVVi! 

> * .4 * V * Vi * 4 

* * V 4 4 4 4V ♦<■** 4* 4* 4 4*4 •* *4444*44**4 


014302 


014303 
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SUeRCu I I Mi teRI T IM 


callec by: 


DEBUG ft 4 


UTILITY. DATA CCNTROL. I/O 


PCKPUSL : 


PULL UP NLa PAGE PRINT INTEGck ARRAY IN FORMA 
FORMAT WITH LABEL 


C 

c** * ** - 


SUERCUT 1 ML WHIMS 


oeeuG # 5 


UTILITY. jATA CLNTROL. I/O 


C *LLEC bY ; 


PLRPCSt ; 


DYNSi 0 
MSMUjC 
MSM UUL 
MR I Gi 0 


UYNS20 
F I NUU 
ROT OH 
FINDT 


PR INI 1 lit UIMLNSICNAL INTEGER ARRAYS IN FORMA FORMAT 


SUERCUTINE w T APE 


C ************> 

c 

c SUERCUTi 

C 

C C ALL i 

C 

C C^LLE 

C 

c purpose: 

c 
c 
c 

C ************ 4 


oeeug * i3 


UTlLilY. U AT A CONTROL. I/O 


( NCNLJ 


C AtLEC ciY : 


•wknt MATRIX A IN BINARY ON I APc. ^tc. COMMENT 
CAROS IN «v T APc 


SUBROUTINE YUCT 


AOOT 
DCOML 
F I NOU 
kO Tt)b 


C ALL c C BY i 


PURPOSE : 


OEEUG tt 39 


MAIN l! NE OPERATION 


bUU TUP 
Oc T bMd 
WKI TES 
MUL l 3 


BHGENR 

GRVGRO 

mgen 

ROTjH 


ciAXbL V 
dj GENR 
I NV lNP 
1 JKu J l 


TO CuMPJTt THE FIRST TIME. D_^iVAl i VL OF THE 
STATE VECTOR Y, SEE COMMENT CAWjb IN YdOT 


C * * * * * 

c 

c SUERCU TINE YUUTL 

c 


***** * ***** ****************** 


JCBUG A 102 


MAIN w 1 Nc UPURATICN 


C 4LLEC OY : 


01 4304 
01 4305 
Cl 4306 
014307 
014308 
01 4309 
014310 
014311 
014312 
014313 
01 431 4 
Cl 431 5 
Cl 4316 
01 43 1 7 
014318 
Cl 431 9 
014320 
01432 l 
01 4322 
01 4323 
01 4324 
01 4325 
01 4326 
01 4327 
C 1 4328 
01 4329 
01 4330 

0 I 4331 
01 4332 
Cl 4333 
014334 
Cl 4335 
01 4336 
Cl 4337 
01 4338 
01 4339 
01 4340 

01 434 I 
01 4342 
014343 
014344 
014345 
014346 
01 4347 
Cl 4348 
Cl 4349 
014350 
0 1 4351 
Cl 4352 
Cl 4353 
Cl 4354 
01 4355 
01 4356 
01 4357 
Cl 4358 
01435 9 
014360 
014361 
01 4362 
01 4363 
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c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

C. 

c 

c 

c 

L 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

<; 

c 

c 

c 

c 

c 

c 


L TkL'^ 


TO SLT IHL I.IM'.AWiai) TMc ■J.SM-.i* ciJUAHCNS CF 

MuTiuN fU Vm_ \ C T AL SYSTEM* 1'iL.bw '.:<u OF T HU FORM 
'HOI = A * Y til 

f Hi. Y AKL l M l ^l< A f t J IN lTRiIoM 




SUf'RCU T L f'L Lt>C 


OLirUG » 29 


C Alls 1 

MY 2 


pLw.^jsr: : 


Ul l L 1 J Y * MA F r< IX 


{ MCNl ) 


M s ^ v» %j L 
M S.Mo.A 
CKfc A 

v. ,4 >£ ii 


LRc C 
.V'K loIU 
C Y Jn 54 0 
A o l ML« 


F I NJ T CUNT KL 

I> TYPE 
L IPFSP 
L TOPOL 


UTILITY kUUTINL Tl ENTER 0 • j IN T Hu FIRST 
AMU i\C COLLMirj OF THr OUVMY UKAY 


CPE. RAT I CN 


MR nows 


***<*** 


♦ # 4< * ♦ f * *r 


* * * <= * If. ft $ «t * 0 * * * * 


tULKCL r INc. 5 OAlri.TIMh* ANi> bfc.CC NO 

PLiii’oa: : 

SYSlc.M I<1. U TINES FC« DFF IN I Nw i<i/N T I Me 
' > A T t. ANj T 1 ML USED TO FIND I I Ml AND DATE 

UF K UN 

bLCwNO UoLD TU FIND ELAPSED CPU T I ML AT VARIOUS 
v_f if\<FUlNlj I N PW EG PA *4 

♦ **♦++*$**+!<*** £*♦******* + **♦*+* tf****#*********^**#* ******* 

cL bR C L I 1 N L ‘ J «»• iX C» »lX I 1 ^ iWhii/inLACtL^* •• • «t:I <. 

plkpoll : 

SO* 02 0 SYsIlM PLOTTING Hl’iUTI -NlcSt Tmcju APE RESIDENT 
IN TI:L L.sf L I JM-JFO SYSTEM 


RE TURN 
ENG 


01 <*364 
Cl 4305 
Cl 4 366 
01 4307 
01 4368 
01 4369 
01 4370 
014J7 l 
014372 
014373 
014374 
01 4375 
Cl 4 376 
014377 
01 4378 
01 4379 
Cl 4 3 60 
01 438 1 
Ct 4 362 
Cl <*383 
01 4384 
Cl 4385 
Cl 4 3 86 
Cl 43 87 
Cl 4 3 88 
01 4389 
Cl 4390 
Cl 4391 
Cl 4302 
014303 
01 4304 
01 4395 
014396 
01 4307 
01 4398 
01 4309 
01 4400 
0 1440 1 
Cl 4402 
Cl 4403 
01 4404 
Cl 4405 
Cl 4406 
01 4407 
Cl 4408 
01 4409 
01 44 10 
C 1 44 1 l 
014412 


SUERC^-TINl IJLh 3 

c 

c 

c 

c 


014413 

DEBUG » 114 014414 

014415 
014416 
Cl 44 1 7 
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c 

c 

c 

c 

c 

c 


***** DISCOS PkUOKAM DATA STSlAM ***** 
************** 


< 2 **.* * * 4 4 c * * + * * * * v * * ***** ****v******** **** ******* 4 .*; 


PR C GJ< A & 



4 * 4 ***** 4 * 4 -****( 


c 

C Mr = INPUT TAPE NUMfitiK 

C 

C DENOTES VihEKe. C A T A 

C 1 s ucAD into program 

c 

c 

C — 99 9 CALL START 

C 

C CALL CLMENT 

C 

C CALL OYNS IQ 

C 

C CALL UYNS20 

C 

c 

C 1FLNLR = LlNLAkUATlON FLAG = IPJ4IA(3> 

C NlPLUT - PLLT CONTROL FLAG = IPjATAl^) 

C 

C IF ( IFLNfcK .LU* U CALL DYNS40 

C 

C IF (f'OPLUT • G T • 01 CALL D'Y N S3 0 

C 

C CU rc 999 

C 

C £ND 

C 

c 

c 

c 

c 


c* 

C* SUfiFOLT I ME STAkT - INPUT IUCNIIF ICATICNS 
C* 


*** 


C*********** **************< 


c 

c 

C READ (Nl T .FURMAT = A6,*A,3Ao) I RUNNC • < J NA H L < I ) . I = 1 . 3 ) 

C 

c iRUNNLi = HUN I jLNT IFICATICN NlMdEK (S CHAkACTERS) 

C UNAMt - USERS NmMF (18 CHARACTERS) 

C 

c l RUNNU LU 4 HS TOP - TERM I NATL T >i£ KJN 

C l RUN NO ME 4HSTUP - CCNTlNUE THE RUN 

C 

C DEBUG ( I ) = • I RUt « IF DEBUG PRI>4! * T A TcrttiMTS CODED IN 

C SUBROUTINE D-dUG ff I ARE TO BE USED 

C = - FALSE. IF NO DEBUG PRINTING DESIREO IN 


Cl 44 1 8 
Cl 44 l 9 
01 4420 
01442 l 
014422 
Cl 4423 
01 4424 
014425 
01 4426 
01 4427 
01 4428 
Cl 4429 
Cl 4430 
0 1 4431 
01 4432 
Ci 4433 
01 4434 
01 4435 
01 4436 
01 4437 
01 4438 
014439 
Cl 4440 
01444 l 
014442 
014443 
01 4444 
Cl 4445 
01 4446 
01 4447 
01 4448 
01 4449 
Cl 4450 
014451 
014452 
014453 
01 4454 
01 4455 
01 4456 
01 4457 
01 4458 
Cl 4459 
01 4460 
014461 
01 4462 
01 4 46 3 
01 4464 
01 4465 
0 l 4466 
01 4467 
Cl 4468 
01 4469 
01 4470 
01 4471 
014472 
01 4473 
01 4474 
01 4475 
Cl 4476 
Cl 4477 
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u o 


C SUBROUTINE jEiiJU U I 

C 

C. II' ( i RUNNO.NE . ahwtOL/G ) GO TO 1 

C 

C Kt- AIM NI T .HLKMhT = oCLl ) ( OE bUG ( l > , l = l , 1 2 0 ) 


l CUNT INUE 
C 

c 

c 


C Pc'AU (HIT v rCHMAT - UAuJ (TtTLEI(I) « 1=1* i U) 

C PCACtMT.f-ORMAl - luAoi ( T l T LE 2 ( 11 . I =1 * i d I 

C 

C TITLE! = 72 CHARACTER USER SUPPlIEJ T 1 I LE 

C TITLED = 72 CHARACTER USER SURRlIcJ f I T LE 

C 

C RE I URN 

C E.NJ 

C 

c 

c 

c 

c 


L4* 4 **4*>fr*49*****«*«* 4 *********** <;***££**««**«*#«:**£**#«#«*<.************ 
C * 

C* SUEROUTI.nl CL ML IN r - INPUT USER SUPPLIED CCM.Mc.nId 

c* 

C«*?**<**t 4 I*****************?****** *********************** ************* 

C 


C 

C ficAJ(MT.f UKMAT - IjAuiiX. Al) ( I REM RK ( 1 ) • l = i • i 3 ) , IPGHD 

C 

C i KLMfcK ■=■ 7o CHARACTER USER SUPPlILd LuMMcNT 

C i PCiHU = iL » HaUl FLAG 

c 

C IPuHL — l HP NEW PAGE Jcr uA'c PRINT TNG 

C TilKu IS No LIMIT 1C THE nJMucK Ur COMMENT CAROS 

C Uuf IHf. Lad I CCWcNl CARO Mu SI CURTAIN ZERO IN 

c Columns i t hi < o i o 

c 

C R c T u R n 

c e\j 

c 

c 

c 

c 

c 


C * * $ Or'H'r > ♦ ft************** ************* ** * * * * 

C * 

C * liCEROU I INl OYN^IC - INPUT PniMAKY CAT4 

c * 


c 

c 

L RoAU C.\l T ,1-DvMAI = ul ST Nu . NH , NSfM. MJrMJ* .JU-uIA 

C 

C N-J - NoMtU.K U- JCDIfS l Ncl . GE . 2 ) 

C NT i - i«vjMot-K uF H Ifs GES 

C NS PT = NU4»-cR UF SENSOR PL I NTj (ftSPT •££•!) 

C NOT" MU = .'I ■ J -1 ’Jti K uF M C ‘^E N TU»M H Fo 1 > 


Cl 4476 
Cl 4479 
01 4460 
C 144QI 
C l 4 4 62 
01 4483 
Cl 4484 
01 4485 
014486 
Cl 4487 
01 4488 
C l 4409 
Cl 4490 
01449 1 
Cl 4492 
C 1 4 493 
014494 
014495 
01 4496 
01 4497 
01 4498 
014499 
Cl 4500 
01 4501 
014502 
014503 
Cl 45C4 
Cl 4505 
Cl 4506 
01 4507 
01 4508 
Cl 4509 
01 451 0 
C1451 1 
014512 
01 451 3 
014514 
014515 
C 1 45 16 
Cl 451 7 
01 45 1 8 
01 45 19 
01 4520 
C14521 
014522 
Cl 4523 
014524 
014525 
01 4526 
01 4527 
01 4526 
C 1 4529 
01 4530 
0 1 4531 
01 4532 
Cl 4533 
01 4534 
014535 
01 4536 
01 4537 
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r>nr>nnnnr>nrvr>nr>nnrr'r>nnrir>r>r>r>nr>r>nr>nnrnnr>nnnnnr>r>nnr\nn(ir>oonnr\nn 


Ni> «£L T A = NUMBER OF ADDITIONAL Oi FF£:i tN T iAL EOS 
KLUU l REU - CONTAINS CONTROL SYSTEM 
VAR I Abuts 


CALL RtADIM { A T UPUL • L. NH , 2t NHMAX) 

MATRIX Side 2 BY NH TO DESCRIBe TUPUL^vilT 

(r UR THE JIM HINGE - 

iroPOL(i.J) = buoy n 
1 TOPOL C 2 » J ) = BODY M 

BODY N CONNECTED TC BODY M Af HINGE J 

iTUPOLiltl) = 1 BY DEFINITION (tiODY l) 

i T OMUL (2*1) = 0 BY DEF INI T I UN ( A NcHT IAL REF) 

THt U-FwAME IS GN BODY N 
THE P-FkAML IS ON BODY M 

MOTIuN 3F THU G-FRAME IS MEASURED RELATIVE 
TO THt P-FRAME 


(ALL READIM (ARv»FlX* it NB » 1* NOMA X } 

VECTOR SI 2d 1 BY NB TO DEFINE .MOM tit H OF tL AS TIC MODES 
F OH THE J TH BODY - 
I RGFL X ( J ) = u - kIGIO eODY 

IRGF'LX(J) = N - FLEXIBLE HOOY rfllH N MOOES 


CALL READIM ( IF T SM* • I. NSPTt It NSPMAX) 

VECTOR Side 1 BY NSFT TC DEFINE SEmSUK POINT LOCATIONS 
FOR THE JTH ^>EN^LR POINT - 

IFTSMW(J) = ULOY NUMBER FOR SEjmjUR PJINT J 

AT LE'Aol UNC SlNSUR POINT MOST u£ OLFlNcO IN 
THE SIMULATION MODE L 


*** SUMMARY OF tJLtH ROTATIUN TYPES *** 


C 

c 

c 


I TYPE PERMUTATION ORDER 
L ( l , 2 .J) 

l ( 1 . 2. 1 ) 

0 4 l • J t 1 ) 

4 ( A # 2 t 2 ) 


01 4538 
Cl 4539 
014540 
0 1454 l 
014542 
014543 
01 4544 
Cl 4545 
014546 
014547 
014548 
014549 
Cl 4550 
01 4551 
014552 
014553 
C l 4554 
01 4555 
C l 4 556 
0 l 4557 
014558 
01 4559 
0 l 4560 
01456 1 
Cl 4562 
01 4563 
014564 
01 4565 
014566 
014567 
01 4568 
01 4569 
01 45 70 
014571 
C I 45 72 
01 4573 
014574 
01 4575 
014576 
014577 
Cl 4578 
C 1 4579 
C 1 4580 
014581 
C 1 4582 
01 4583 
014584 
014585 
01 4586 
014587 
01 4588 
0 1 4589 
014590 
C 1 4591 
014592 
014593 
014594 
01 4595 
01 4596 
01 4597 
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n n 


c 

J 


(2. 

3*1) 



Cl 4598 

c 







01 4599 

c 

c 


4 2 » 

3*2) 



0 1 4 6 0 0 

c 







01 460 1 

c 

/ 


{ * t 

1.2) 



0 l 4602 

c 







01 4603 

c 

d 


(a. 

l * 3 ) 



01 4604 

c 







014605 

c 

9 


< 3 , 

1.2) 



Cl 46 06 

c 







01 4607 

c 

l 0 


< 3, 

l * 1 ) 



01 460e 

c 







Cl 4609 

c 

1 1 


( 3 . 

2,3) 



014610 

c 







01461 1 

c 

c 

i a 


( 3 • 

2, l ) 



Cl 46 1 2 
014613 

c 







014614 

c 

"CALL HEAD 1 1-1 ( If'OATAi 

7 , NH 

♦ 7, NH-V AX) 



Cl 46 15 

c 







01 46 l O 

c. 

MATRIX :>Uc 

f 

UY Nti 

TCI DEFINE iii Nwc AuiNI 

Cl 461 7 

c 

C; IZN'o 1 R A i Nl 

Um 

TA 




014618 

c 







014619 

c 

FOR 1 HE JTH 

HlNot - 




01 4620 

c; 







01462 1 

c 

l ML) A T A ( l • J ) 

- 

EULER 

ROTATION TV 

Pc T J U 

Rl.-NT Q-TRIAU 

01 4622 

c 



*RT to P - T H I A O A | 

H l N EL 

J (4 TYRE) 

Cl 46 23 

c 

l Ml) A T A ( ;£ * J ) 

= 

H 1 Nor 

CONS TRA l NT 

r yp- - 

T He f A 1 ROTATION 

Cl 4624 

c 

l HU AT Al j,J) 

- 

M 1 NEE 

CONSTRAINT 

1 YP- - 

Tilt! A 2 ROTATION 

01 4625 

c 

l H.JAT A ( 4 , J ) 


H I lsv» t: 

CONS TRA l NT 

1 Y P'_ - 

T HE l A 3 ROTATION 

Cl 4626 

c 

l HU A T A l 5 • J ) 

- 

1 1 1 Nut: 

CGNSTRA I NT 

TVP: - 

X 1 H AN SLAT ION 

Cl 4627 

c 

I HO A r A ( 6 • J > 

- 

n l NEE 

CCNSTRA l NT 

l YP i - 

Y TRANSLATION 

Cl 4628 

c 

l Hu A T A ( 7 • j ) 

- 

H 1 NEE 

CONSTRAINT 

1 YPi - 

A TRANSLATION 

01 4629 

c 







Cl 4630 

c 

WO r A 1 I EH 

S 

RuF LR 

TC EWCER OE = 

l NE J ii \r 

l 1 YPE 

014631 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c — 
c 
c 
c 


TRANSLATIONS REFER TC P-TRIAu 

IHJAIA(c'-/,J) - 0 - NC CONSTRAINT 

I HUAI A ( 2- t • J ) = l - FIXED CUNoT.-iH l NT 
I HJAI A( 2-7 • J) - 2 - REECNCMlu CUi^l kAlNf 


NOTt NUMhcK L F Jii T A STATc VAhIAcjLlo COMPUTED FRCM 

l HU AT A AS SOM QF NUMBER Oh *- SUM OF 

n u »i b c. a oh r vv o s in rci*s ^ ihkj / 

NUMBER Of CONSTRAINTS LDMPuTeU h K O M 
l HU A I A AS SUM OF NUMBER oh GNuS ► SUM OF 
NUMBER Of TUGS IN FCfcS 2 Hnj 7 


CALu READ (.(JETmH. o. NH, 6, NH VAX) 

MATRIX ;> l Ze o BY NH TO OE.F l NE H l I l AU V AeU E S 

or beta a h i c h orilnt two bodies Abiocurta 


01 463a 
Cl 46 J 3 
014634 
01 4635 
Cl 4636 
01 4637 
01 4638 
01 4639 
0 l 4640 
0 l 464 l 
01 4642 
0 l 4643 
01 4644 
01 4645 
0 1 4646 
Cl 4647 
01 4648 
01 4649 
Cl 4650 
014651 
014652 
014653 
01 4654 
Cl 4665 
Cl 4656 
01 4657 


B-257 



finftnnfinrmnf'flnofinnnnnnnftnftft nr. nnnnnnnrsnrinnrinnnnnnrinonrno 


WITH LAvi H i NGti 
E UK T He JTH hlNUC - 


I3CTAH ( i . J J 
Lit r AH ( 2 . J ) 
tit: r ah< j . j ) 
ULTAH ( 4* J ) 
ULT AH( 5 , J ) 
Li t T AH ( 6, J > 


1 1 it. f A l ROTATION 
THETA 2 R OTATION 
TMt TA 3 POTATION 
X T KANSLAT ION 
Y TRANSLATION 
L. T KAN SLAT ICN 


CALL RfcAD '(lT£TArlL)* 6 * Nil* 6* NEMAX ) 

MATRIX S12E u ci Y Nh TO DFF I N£ INITIAL VALUfcS 
CJ F ;3c TA OUT — TIME DERIVATIVE U F lh_ 1 A ri 
U&SCUlutzO PREVIOUSLY 


FUR T He JTH H l Nut - 


UcTAHOI l * J ) 
tJh. 1 AHU( <l • J ) 
ULTAHU (3 • J ) 
ULT AMD ( 4 • J ) 
U £1 AHl) ( 5 • J ) 
UcTAHJio • J ) 


THLTA 1 ROTATION RATE 
IHhTA 2 POTATION RAfe 
I HOT A 3 ROTATION RATE 
X TRANSLATION RATE 
Y TRANSLATION RAIL 
L TK A NSLA T I ON RAT e 


NQTf. — it The CORRESPONDING CUN o I T A l NT I Y PL 
15 l OR 2 • THE INITIAL ri £ T A Ho ( l - 6 • J ) * 
INPUT HERE* WILL DE IGMuRtO A NO jlT TO 
EcRU CR Tu THE RHEONCMI LAL.Y PkcSCRI f j £ O 

value, respectively 


MJEMC - NUMUER OF MOMENTUM WHEELS 
IE (NOEMO «LU» 0) GO TU A i 


C 

C 

c 

c 

c 

c- 


CALL READ i M (I MU* j* NOEMO • 3* N MW MAX) 


MATRIX Ul ZL 3 JY NCTMO TO OEFIN-z. BASIC 
MOMENTUM WHEEL UAT A 

FOR TML JTH MLMfcNTUM aHCEL - 


I MU ( L * J ) 
I MO ( 2 * J ) 
1 MU( 3 « J ) 


otNSOW POINT NUMBER F jk THE WHEEL 
SHIN AXIS NUMBER FOR THc wMeeL (1.2 OR 3) 
1 ACT I VL WHEEL 
O CONSTANT SPEED WHclL 


CAuL Read (AMU, L» NOEMO, 2* NMWMAX) 


CI 4658 
01 4659 
Cl 46oO 
01 4661 
01 4662 
01 4663 
01 4664 
0 1 46b5 
01 4666 
01 466/ 
Cl 4 668 
01 4669 
Cl 4670 
C t 4 6 7 1 
01 46 72 
01 4673 
01 4674 
Cl 4675 
01 4676 
01 4677 
01 4678 
01 4679 
01 4680 
Cl 4681 
01 4682 
01 4683 
Cl 4684 
Cl 4685 
Cl 4686 
01 4687 
CI 4688 
01 4689 
01 4690 
014691 
014692 
Cl 4693 
C 1 4 6 9 4 
01 4695 
01 4696 
Cl 4697 
01 4698 
Cl 4699 
Cl 47C0 

01470 l 
01 4702 
Cl 4703 
014 70 4 
Cl 4705 
01 4 7C6 
014707 
014708 
01 4709 
014710 

01471 i 
01 4712 
014713 
014714 
01 4715 
014716 
Cl 471 7 
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n ri n r n r, n r: n r> n n n n n n n n n n n n n n n r. n n n n o n n n n n ri n o o o 


MATH IX ;il2t C ti Y NOP' MO TO DEF I,Nc MJMLNTUrt 
4 HE. cl uA T A 

f UK The JIH MCMLNTJM WHLEL - 

AM'JI I «J) = INITIAL *aHEEL SPIN *4TL 

AMUI2.J) * SHIN INERTIA 

A l CC.illNUt 


CALL HCAD (T MOAT A. 1. J* 1. J) 


VEcruk MZl 2 tiV 3 CCMAiMNG i J Me HIjIUkV 
i N T cGKA i 1 oN v. LN 1 «UL S 


T MO A I A ( 2 ) 
I MOAT A( 

T Ml) A 1 A t w > 


4 Ni I I hL f I ME 

T 1Mb IUTlPVAL 
I LKM l N A T 1CM TIME 


(-»/ AHI I ) 
(J^LIaI ) 
(lNJT ) 


h - fc AU [{A { j PUA 1Af x , j , l * .3 > 

VCCriik Li ZC l UY J CONTAINING i.Nlc^uk 
control jATA 

IPUATAU) = HrUNT CCNTKCL. F CP I 1 Me kc^HUNSe - PRINT 
eVLky 1 PC ATM l ) MJlI IPLls or o CL TAT 
IPUAT*42) - KLul LCMkUL PUR Ti.4u <d^PUNjL - SAVE 
LVeKY 1 PLAT M2 ) MULllHLcS UP otLTAT 
IHJATA(^) = J PLkP ti f- N NCNLlNCAr% 11.4c. KtbPLN&h 
- I Pt_KP-JHM L INEAK T i 4 L Uk rKLQUbNCY 
HL i>F J 0 N SC 


CALL RdAU (CMol A, l, NCNPAR, I, KCCNI ) 

Vt-CTOk j l i j> NC NPAR f UK CO '4 T kjl j Y a f uM VARIAE3LES 

ANJ UJLK JUPHLILU VARIAULES 

liiij i j a c a i cii - all vlc row for j o c. ~i p .an l m t a 

iMuKi-UlIu.-i lb r'u 1' INTO COMMON / LuM I H •_ / A NO IS 

1 lJLN r IT 111) bY ui»u< SUPPLIED EOjWA.cUc MAP 

1 in U jLK pan 

I* Iiv € oT .rui,LI A LLt.Vc.MTS MOST CLNl A IN INITIAL VALUES 
r Uf- Jut 1 A VArdAtiLL G IN 5 I A T E V_ C I UK 

AIJJl r I Li . A L SHALL 13 AVAILABLE I J T 1 1_ jjck 


• C ALL PLAU ( ..V , I . 


Cl 4718 
Cl 4719 
014720 
Cl 4721 
Cl 4 722 
014723 
014724 
01 4725 
01 4726 
Cl 4727 
01 4728 
014729 
01 4730 
014731 
Cl 4732 
01 4733 
0 1 4734 
01 4735 
C 14736 
01 4737 
Cl 4738 
Cl 4739 
Cl 4740 
01474 1 
01 4742 
014743 
Cl 4 744 
Cl 4 745 
01 4 746 
Cl 4747 
01 4746 
01 4 7 49 
Cl 4750 
014751 
01 *752 
01 4753 
01 4754 
01 4755 
01 4756 
01 4 757 
Cl 4758 
01 4759 
01 A 7t>0 
0 l 4 761 
01 4 762 
014763 
Cl 4764 
01 4 765 
01 4766 
01 4767 
01 4 7 68 
01 4 7 1>9 
0-1 4 7 7 0 
014771 
C l 4 7 72 
Cl 47 73 
014774 
014775 
Cl 4 776 
Cl 4 777 
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C VECTOR S12E l tiY 4 FOR GRAVITY okAJiENT DATA 

C 

C W V( l ) — 

C to' V ( 2 ) = 

C W V ( 3 ) -= 

C V*V(4) = 

C 
C 
C 

C* NOTE -- 

C 
c 
c 
c 
c 
c 
c 
c 
c 


c 

c 

c 

C NS = NUMBER UF 00 DlfcS 

c 

C CO cO N= l ,NB 

C 

C lKGFLX(N) EG 0 - RIGID BODY 

C iRGFLX(N) J1 0 - FLEXIBLE BODY 

C 

C IF (IRGFLXlN) • L(J • OJ GO TC 25 

C 

c READ (NI T .FORMAT = 15) M YPE 

C 

C NTYPE = I - Lumped mass repress TAT I ON 

C NTYPE = 2 - CONSISTENT MASS REP RE Sc N I AT l UN 

C 

C IF (NTYPfc • EO • 1) Call MSMCOL(N) SEE F ULLUtf l NG 

C 

C IF I NTYPfc .LQ. 2) CALL MSMCDC(N) jEc F JLLU'« I NG 

C 

C CL IC 20 

c 

C 25 call MKlGllHN) SEl FOLLOWING 

C 

C 2 C CONTINUE 

C 

C RETURN 

c e no 

c 

c 

c 

c 

c. 


c* 

C* SCeRCLrifJL FRIGID - input for rigic body 
C * 

C***4*4*4'**v«***?#V***£**4‘#4t«*¥9*-t#*«***«*4‘**t***********«******t#4***** 

r 

c 


PROJECTION OF GRAVITY V ECTOR oN X INERTIAL AXIS 

PROJECTION CF GRAVITY VECTOR ON Y INERTIAL AXIS 

PROJECTION OF GRAVITY VECTOR ON L INERTIAL AXIS 

RADIUS VECTOR FRCM GRAVITY SOURCE TO GENERAL 

VICINITY OF BUOY CLUSTER 


l F ( to V I i ) * * 2 F W V ( 2 ) * * 2 F » V ( 3 ) * * 2 ) 
EG C* to V ( 4 ) IS IGNURcD 
NE 0. to V ( 4 ) MuST tic GT l 

lUrtAVITY VECTOR COMPONENTS IN 
UNITS OF ACCELERATION) 


01 4778 
01 4779 
01 4780 
014781 
Cl 4782 
01 4783 
014 784 
01 4785 
Cl 4786 
01 4787 
Cl 4 788 
01 4789 
01 4790 
Cl 4791 
01 4792 
014793 
Cl 4794 
Cl 4 795 
01 4796 
Cl 4797 
01 4798 
01 4799 
Cl 4800 
01 480 l 
Cl 4002 
Cl 4803 
01 4804 
01 4805 
Cl 4806 
01480 7 
01 4808 
Cl 4809 
01 4810 
014311 
01 4812 
014613 
014014 
01 401 5 
01 4016 
01 401 7 
01 40 18 
01 4819 
Cl 4020 
014821 
Cl 4822 
014823 
0 1 4024 
Cl 4825 
Cl 4826 
01 4027 
Cl <* 028 
01 4029 
01 4830 
01 4831 
01 4032 
01 4833 
C 1 4034 
01 4835 
01 4336 
Cl 4037 
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<w - “ 


--CALC H LA D { V • 

l . , l • ) 

Cl 4638 

c 




0 l 4639 

c 


V K I 1<!< 

ol/L l UV 4 

014840 

c 




01 464 1 

c 


V ( i ) = 

WMlib tit - OtjJY 

014642 

c 


V ( J > = 

A (>LuY ki.f PUNT TO :U:jf U, oODY n< l AO ) 

01 4843 

c 


V ( J > = 

Y ( J OiJ Y r\i.r- P( INI ! (J HfjDY C.t « ui;J f M' l Al) ) 

014044 

c. 


'/('•) = 

<_ ( J G^Y iO_K PclMf !'•:» U'DY Co , 1 R 1 AD > 

01 4046 

c 




014646 

c 




01 4347 

c -- 


(, -*LL KCA D (V* 

l « O * It u ) 

C 1 4 6 4 6 

c 




01 4349 

c 


V.IL r Ok 

j i 1 L) Y t» 

Cl 4 850 

c 




01 4 0‘5 l 

c 


V ( l ) = 

J A X 

01 4:152 

c; 


V ( i. ) - 

^ Y Y 

Cl 4053 

c 


v ( :> ) - 

J<-4 (iJlOY REr r RENCCO IM.kT - RuJY I K 1 A J ) 

0 l 4354 

c 


V ( -V > - 

JXY UHlWIUS 4.J0U f klF NC I Hi’jOV Co) 

0 1 4 655 

c 


V < 6 ) = 

JX?. 

01 4:356 

c 


V U» ) = 

JYZ 

01 4857 

c 




C l 4658 

c 



jxx -jxy — j x 4 

Cl 4859 

c 


I Nr: 

kllA .viA Ik I A = -JXY JYY -JY L 

0 1 4660 

c 



-JX/ -JYZ JU 

0 1 4 86 l 

c 


NOTE - 

- JlAY) - VUL 1 MiiGRAL OH ( XY ) , C K. 

01 4662 

c 




01 4863 

<- 


M-u = NUMWEK 

G»‘ hi i NctS LN HCOY N — E XcLJbl v c et- HINGE It 

01 4 864 

c 


GOOY l 


01 4865 

c 




Cl 4866 

c. 


lU.MGl; PolNl l IS AT 3COY l i^Fc^lNC: PjI NT 

014667 

c 




01 4S68 

c 


Cw 10 I-l.NHrt 


01 48t>9 

c 




014870 

c 




014871 

c — 

— 

--Fi-OINIT #H)RM 

At = il ‘j) NUN. [TYP2 

014872 

c. 




014 873 

c 


Nuh 

= H 1 N ijL NUMiiLH 

014874 

V- 


1 T Y P c 

:: LuLli< kulAT ICN TYPE T CJ JkIiNT n 1 N G £ 

01 4875 

c 



TRIAD wk! iKjOY TRIAD 

01 4876 

c. 




Ct 4877 

c 




01 4878 

c 




01 4879 

c 




Cl 4860 

c 




014661 

c 




01 4882 

c . 




Cl 4883 

c — 


— Hi. AD (N IT .t-URMAI = ^olO. J) ( V ( J ) • J= 1*3) 

C l 4884 

c 




014085 

c 


E CL l. R 

ANoLiib ID UK I EM HINGE TkiAu — HckMU T A T I CN 

014886 

c 



Di_H I Nt_0 ii Y i T YPt 

01 4887 

(. 




01 4088 

c: 


V ( l ) = 

1 HL 1 A 1 (FikST ROTATION) 

Cl 4889 

c 


V t - ) = 

THETA 2 IbcCN'D R'C TAT ICN) 

0 14690 

c. 


V ( o ) = 

IHlIA j (THIRD ROTATION) 

01489 l 

c 




Cl 4892 

c. 




Cl 4893 

c 


— FCAfaMNtT •PUKMAJ = 3010.3) ( OH ( J > • J = 1 . J ) 

014894 

c 




01 4895 

c 


v lie row 

TO POSITION HINGE TRIAD • * f ti uJV f R 1 AC 

Cl 4896 

c 




01 4897 
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c 

OiU l ) 

= A 

{ iiui>y 

KcF 

POINT 

TO 

HI Hl»L 

PU 1 NT , 

BODY 

1 fil AD ) 

c 

UH( 2 ) 

= V 

( BODY 

KLF 

FUI NT 

TO 

HI Nut. 

PUInT , 

HLi DY 

TRIAD) 

c 

DM3) 

= z 

( JUDY 

KlF 

PQl NT 

TO 

HI MSE 

POINT, 

BODY 

T R I AD ) 


10 CONTINUE 


c 
c 
c 
c 
c 
c 
c 

c — 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c , 
c 
c 
c 

c* 

C* SLEROLT 

c* 

C ** * * * * * 

c 

c 


20 


"RE AO (Nil •FORMAT = ju> 10« (D5( J) » J=1 ij) 

VECTOR TL POSITION SENSOR POINT TkIAD WKT BODY TRIAD 

L)S(l) = \ (HOLY REF POINT TO S-N;>Q* PuI?nIT # BODY TRIAD) 

uSl2) = Y (BODY REF POINT TO SEN SOT Pul NT, BODY TRIAC) 

u S ( J ) = Z (uUL/V RtF POINT TO SENSOR PUiNT* BODY TRIAC) 

CO NT INUE 

P E I O RN 

end 


INc. N5MOUL - INPUT F OK FLEXIBLE BODY# LUMPED MASS MATRIX 

*#**♦♦♦**»♦♦**»♦**♦**♦* 


01 4890 
Ci 4899 
Cl 4900 
01490 l 
01 4902 
Cl 4903 


c 

NS 

3 -= liUMRtH t> Xl.jLrt MO INIS CN MCOY N 

C 1 4904 

c. 



Cl 4905 

c 

IF 

(NSlJ .El). 0) Oc T URN 

01 4906 

c 



01490 7 

c 

cc 

20 l=l.NS0 

Cl 49 08 

c 



01 4909 

c 



01 49 l 0 





c 



014912 

c 


NCS = StNSLR POINT NUMBER 

01 49 1 3 

c 


I. TYPE =• EULER ROTATION TYPE TO ORIENT SENIOR POINT 

014914 

c 


ThIAu art BODY TRIAD 

014915 

c 



01 491 6 

c 



01 4917 

c 

fit. ALi (N i T .EOHMAT = 3U10.3) <V(J).J=l,3> 

014918 

c 



014919 

c 


EULhK AhiiLta TO OMCNT SENSOR ->UINT TRIAD - PERMUTATION 

Ot 4920 

c 


UWOtR j£KINtti UY 1 1 YP£ 

014921 

c 



01 4922 

c 


V(l) = TUlIA I (MRST ROTATION) 

Cl 4923 

c 


VIE) = THcTA 2 ( SEC NO ROTATION) 

014924 

c 


V < 3 ) = THETA 3 (THIRD POTATION) 

01 492S 

c 



01 4926 


01 4927 
Cl 4928 
Cl 4929 
01 4930 
Cl 4931 
Cl 4932 
014933 
014934 
01 4935 
01 4936 
014937 
014938 
01 4939 
C l 4940 
0 1 494 l 
01 4942 
Cl 4943 

0 14944 
01 4945 
014946 
01 4947 
01 4948 

01 4949 
01 4950 
01 4951 
014952 
014953 
014954 
01 4955 
01 4956 
Cl 4957 
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c- 

( A »_ L HEAD (A, NJ . 1. KJlINTi KMCCfc.) 


014958 

c 



01 4959 

c 

MATRIX i»iZE N J BY t WHLRE NJ = HOMJtK uh JUINTS 

Cl 4960 

c 

un bOur n 


014961 

c 



014962 

c 

h Ul< TMfc. 1TH JtlNT - 


01 4963 

c 



01 4964 

c 

A ( l , l ) = JUINT MASS 


01 4965 

c 



01 4966 

c 



01 4967 

c- 



01 4968 

c 



01 4969 

c 

MAI U 1 X Slzd NJ Lv 6 


01 4970 

c 



01 4971 

c 

H Uf< I He. 11 M J L l N I - 


Cl 4972 

c 



01 4973 

L 

All • l ) - JUIN1 iNLKflA, JXX 


014974 

c. 

A<1,2) = JJINT INdKl [A, JYY 


01 4975 

c 

A(I*3) = JOINT 1Nc«TIA, JZZ 


Cl 49 76 

c 

A l l » 4 ) = JOINT IN£kT!A» JXY 


014977 

c 

Mil. 5) = JulNT INlRTIA, JXZ 


Cl 4978 

c 

A ( I . o ) - JOINT lNtKTlA, JYZ 


01 4979 

c 



01 4980 

c 

JXX -JXY -JXZ 


014961 

c 

INLklU .Vrt rWI A = -JXY JYY -JYi. 


01 4982 

c 

-JXZ -JYZ JZZ 


01 4983 

c 

rtwlt -- JlXY) - VOL INTEGRAL Or IaY J,M 

. CTC . 

Cl 4984 

c 



01 4985 

r 



Cl 4986 

c 

Cu! Li X — 1 » c. 


01 4987 

c 



01 4988 

c 



01 4989 

c- 

— — — — — — CALL KcA'J ( A i NJ* j i K JlINT • K V Ul)E ) 


Cl 4990 

c 



014991 

c 

•A A 1 f< | X Si c.'c. h j d Y .3 


Cl 4992 

c 



01 4993 

t 

f UN Hit llii JOINT - 


Cl 4994 

c 



01 4995 

c 

K- i A(l.l) = JblmT j r A I I C MASS MjJcMf. sx 


Ci 499o 

c 

A ( I . L ) = JOINT STATIC iVASS Mo *icNT * 


01 4997 

c 

A(I.J) = Ju INI STATIC MASS MuMunT . 3 i 


01 4998 

c 



01 4999 

c 

N — 2 A (1.1) — X 1 jbu V f* tF t J C I N T To J 0 1 < ^ I • 

(jo iJ Y T l AO ) 

Ct 5000 

c 

AT I ,c) - Y ( uLuY Rtf MCIN1 Tj. Jjl.il . 

dUO Y TWIAU) 

Cl 5001 

c 

A ( 1 . j ) — c. ItiouY HcF PC I N T To J Li l t\ T . 

dooY 1RI AU ) 

015002 

c 



01 6003 

c 

5 (lNII Nile 


01 5004 

c 



01 5005 

c 



Cl 5006 

c 

M 0 0 0 o L 

-SY 

Cl 500 7 

c 

J M 0 - „ L u 

G x 

01 5008 

c 

0 0 M oY -oX 

0 

01 5009 

c 

wCi.M INU-TU i'iA In 1 X = C -SZ SY jXX-JaY 

-JXZ 

01 5010 

c 

SC 0 -SX-jAt Jin' 

-JYZ 

015011 

c 

-GY 5 X 0 -JXZ - J » z 

JZZ 

Cl 50 12 

c 



015013 

c 



C! 50 1 A 

c 



015015 

c 



01 50 1 6 

c 



Cl SO ! 7 
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r\ n r» O' o c> ^ n n rs n n r> n n n n r> r* n o r> r> r. n r*. n o c\ o 


C 

C 

C CD i 0 K= 1 ,6 

c 

c 

C C Ai_ L He AO (A, Nj* NL * KJOINT. KMODE ) 

C 

C M A I R I X SIZE NJ bY NE WHERE NE = NlMJLR UP ELASTIC 

c mooes retained pgr ac-uY n 


PCR The ITU JOINT - 


K = l 

At ( 

♦ Ji 

- 

X 

cl ^placement at 

j j i n r , 

mode j 


K=2 

A ( I 

• J) 

- 

Y 

Cl ^PLACEMENT AT 

JjINT, 

Mode j 


K-3 

A ( I 

• J) 


/ 

ClSPLACEMENT AT 

JO 1 NT » 

J 


X 

1! 

A { l 

• J 1 

= 

TH 

ETA 

x rctatiun 

AT JOINT 

t MODE 

J 

K= 3 

A ( I 

1 J ) 

= 

THLTA 

Y RCTATIGN 

AT JuInT 

• MLiUl 

J 

K=6 

A ( I 

• J) 

= 

theta 

l PCiATIL'N 

AT JuI.yT 

» M U O E 

J 


1 D C u N T i N UE 

CO 20 K= l , 2 

CALL KlAO (A* Net NE . KJUlNT, KMUOC > 

MATRIX z>LZc. NE UY NE 
K= 1 A = MCJAl ‘^TlhfNESS 
K=2 A = MODAL DAMPING 

2 0 CCNIINJE 


PEaOINIT *P0KMA1 - oulOo) ( A(J ) » Js l »Nt) ■ 

VECTOR UP INITIAL MODAL UEPLECliUN CUuRbi NATES 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

r 

C 

C 

C. 

C 


— P i: A 0 { M I • F U R M A T - uU i-J • j ) l A( J ) * J - l » Nc ) 

VECTOR Lf INITIAL MODAL. VELOCITY uJDK^lNATfcS 


NUTti — POL LOw l NO L\JLEH ANGLES Me Aa JHlJ 
I .Y UN dLP OHM ED CCNP I GURA T l uN 

Miri - NC/MdLR UP rilNUc^ UN iJCJY N - EXCljSIVl ur HINGE l • 
rJUOY l 

CO i CD L ~ l » NHU 


015018 
C150 19 
01 5020 
015021 
01 5022 
01 5023 
01502A 
Cl 5025 
01 5026 
Cl 5027 
01 5028 
015029 
015030 
Cl 50 31 
015032 
01 5033 
Cl 5034 
Cl 50 35 
015036 
01 5037 
015038 
Cl 5039 
015040 
01 5041 
01 5042 
01 5043 
Cl 5044 
Cl 5045 
01 5046 
01 5047 
01 5048 
01 5049 
Cl 5050 
C l 505 1 
015052 
01 5053 
015054 
015055 
Cl 5056 
013057 
01 5058 
01 5059 
01 3060 
015061 
Cl 5062 
C l 3063 
015064 
015065 
C l SOoC 
015067 
Cl 5068 
Cl 5069 
Cl 5070 
Cl 3071 
C 1 5072 
01 50 73 
Cl 50 74 
015075 
Cl 5076 
01 50 77 
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c 

- 

o 

c 

r 

O 

C 

c 

c 

c. 

c 


c 

c 

c 

c 

4 , 

c 

c 

<: 

c. 

c 

c 

c 

r. 

c 

r 

c 

c 

c 

c 

<. 

c 

c 

c 

c- 


f-. ... <Ni i ,r :j:v 

>\ A » = JiO) NUM . 11 

f <oi : _ # jc:i s r 



N U i 

“ it li\ »•< u M i J r_ 




: VYPC 

IULLk htlATlCN 

f Y PE TO i^i: 

NT 

1 1 l is'vi C. 


1 Hr 1 Al) .. k 1 IJ f.OY 

TRIAD 



Jl.l NT 

-= JOINT -4w.Mtl ! ‘R C* 

).< 9 r S 1 * C Nj 1 »"«4 \ j 

1 6 

1 1 i N » # t POINT 

< *; 1 1 .i i .it-. 

.A AT - JUlOo) < AV( J ) . J = l * J ) 



L SLEF 

AKoLc. 5 TO l.k I £NT 

J i I No C l’< l A O 

- P 

lumj r a i ion 

Oh OCR 

IMi.J UY I T YPfc 




v« V( 1 > 

“ 1 Ml. TA l (f 1 •< 5T 

KOl’A r I o-o 



t. V ( 2 ) 

= file 1 A 2 i 6..' C N*J 

POT ATI Cn ) 



.! V ( J ) 

= 1 ItL 1 A J (THIRD 

PC TATI On i 



u; *j r ! N-Jt: 





MjiI - NUM,5uR 

t.#- 5t_NSCk Pu 1 MS 

c . n no :) y .4 



Ir '% N Sij .1 U • 

0 ) f\n 1 URN 




L iJ 1 u J t_ “ 1 . N 

5:J 





Hr AC < r * I T .FORMAT 


J l 5 I NCS . I 1 Y PE * J Oi *4 T 


f 4 O fj 

i TYPE 


JUl NT 


iLNiJH POINT Nuwniirt 

t-uoLR rxLIAl ICN Type to ORIENT jlN'jOH point 

7 k l AO aK T iM.’L'Y TH/AD 

JulNl NOMijr: k C OR HE SP O . v O 1 Nsj 1 J SENS C f 1 PC I NT 


---SUAulNlT i! J^MAI — 6 L> 1 0 • 5 ) (toV(J)*J=l*J) 


E 


i. 

1. ul.c.R 

ANO l.t 5» 

TO 

CiklONT 

SENSOR 

c. 

UROr.K 

JEF * N t_ 0 

OY 

i r rPt 


c 

c 

* V ( l ) 

= THt 1 a 

1 

(FIRST 

ROTA T I 0.«> 

c 

h V ( 2 ) 

= I H£ T A 

2 

l SEC NO 

WOT A T l ON 4 

c 

/* 

vv V ( 3 ) 

= T n- 1 A 

5 

(THIRD 

POTA I I ON J 

V . 

c 

l «>U CCi\ T INUL 





c 






c 

T£7 skN 





c: 

E NJ 






c 

c 

c. 

c 

c 


THUJ 


PEFMUT AT I ON 


C l SC 78 
01 50 79 
01 5080 
0 15081 
01 5082 
Cl 6083 
C l 5084 
015085 
01 50 86 
Cl 5087 
01 50.88 
Cl 5089 
01 5090 
01 5091 
01 5092 
01 5093 
Cl 5094 
Cl 5095 
01 5096 
01 5097 
Cl 5098 
01 5099 
01 Dl 00 
C l 5 1 C l 
015102 
Cl 51 03 
015104 
015105 
Cl 5106 
Cl 5 l 07 
015108 
Cl 5109 
01 51 I 0 
015111 
01 51 l 2 
015113 
015114 
Cl 51 1 5 
015116 
Cl 51 l 7 
Cl 51 18 
Cl 51 19 
Cl 51 20 
015121 
015122 
Cl 5123 
015124 
015125 
01 51 26 
Cl 5127 
01 5128 
01 5129 
Cl 5130 
015131 
015132 
01 5133 
01 51 34 
01 5135 
01 5136 
01 5137 
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nnnnnr'r*. r> c n r 


('.tttCttlttttt'gKr***#**********#**#*****-***********#******^ 

c * 

C * SLdFCUT INt PS M(J IK. - INPUT F Ltl f ' L L X IG L £ UOOY, v. JNS I :> f t£Nl MASS MATRIX . 
C * 

C * * -* ♦ ♦ <• * * * f**********^* ***<-' £#***$:**$*•*<:* 

c 

c 

C PH AU ( N I T * I* fTP M A T = Jl‘j) tFROV, IOIAK, I JIAO 

C 

IFftuM = Rio ID I300Y MODE CU.'JTmUl VAKUBLE 


wnEN RIGID OCDY MuD-b C A N t)E 
OPERATED CN VIA RCW-CUL 
INTERCHANGES TJ UJTAIN A kIGID 
HODY MODAL MATRIX Or TilE FURM- 


* V ¥ * 

* HX * 

* * 

* MY * 

* * 

* HZ * 

v * = 

-x r x * 

♦ * 

* r y * 

* * 

* i z * 

* * * * 


* # 

* i 

* 

* 0 
* 

* 0 

* 

* 0 

<: 

♦ 0 
* 

* c 

* * 


0 0 

0 - L 

1 Y 


A £ $ * # * 

-V v * OX * 
v * * 

X * * UY * 
v * * 

0 ^ * OZ * 
v * * 

0 * * UTX v 

£ * * 

0 * * QTY * 
* * # 

1 v * uTZ * 
* * * * * * 


-• 1 tihLN ADCJVL IS NuT TRUE* SUCH 

AS FOR AN C'RTHiHJKMAl be T OF 
RIGID HODY VECTORS. DAT A WILL 
L>i- READ IN L A T Er< x N J I H E AuUVt 
F CM M WILL HE CRe A l E J Wi ThlN 
THI S SUt3 P CUT I Nc 


IDIAK - u 


If MODAL S T I F FNC ^ b MATRIX 
lb NOT t> I AGONAL 


= 1 


IF MODAL STIFFNESS MATRIX 
IS DIAGONAL 


IDImD = o IF medal camping MATRIX 
IS NOT DIAGONAL 


= 1 IF MGDAL CAMPING MATRIX 

IS DIAGONAL 


■ C Ai_ L R LA DIM ( JuiiF • NX • No • K JO OF * 6 ) 


01 5 l 38 
Ci 5 l 39 
01 51 AO 
015141 
Cl 5142 
01 51 43 
Cl 5 t 44 
Cl 5145 
015146 
C l 5 l 4 7 
Cl 51 48 
01 5 149 
015150 
015151 
015152 
015153 
015154 
01 5 1 55 
Cl 51 56 
01 51 57 
01 51 58 
01 5159 
01 5 loO 
015161 
015162 
015163 
C15164 
Cl 5165 
015166 
Cl 5167 
Cl 5168 
015169 
01 51 70 
01 SI 7 1 
01 5172 
Cl 5173 
015174 
01 5175 
015 1 7 1 > 
01 5177 
01 51 78 
Ci 51 79 
01 5180 
015181 
01 5182 
Ci 51 83 
Cl 5 1 84 
Cl 5 1 85 
01 5186 
01 5187 
Cl 5188 
01 5 189 
01 5190 
C 1 5 1 9 1 
01 5192 
01 5193 
Cl 5 194 
01 5 1 95 
Cl 5196 
Cl 5197 
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MATRIX z»i CL NX bY 6 D EFIM No Ju l NT 
OF rkEfcvyUM h U h NX JCINTS CN BOj 1 N 


c 

hod ihc i rn 

JOINT - 


c 





c 

Jl.OF ( I . 1 ) 

= X 

ULG « 

CF 

c 

JOUF <!.<£> 

= Y 

ULb • 

CF 

c 

JaCf- ( I . J > 

= l 

utG - 

CF 

c 

J OOF < I .•* ) 

-T X 

ubC • 

CF 

c 

J'JUFl I « 5 ) 

= T Y 

ULG • 

CF 

c 

JOUF ( l .o ) 

li 

-H 

r.- 

ULG • 

CF 


HAl i ) FL« JCINTS 


H2( 1 > FCF JCINTS 1 


— — ■*- — — — C «L L r*. L A G 1 JA ( J V I 


N.MuUl • 1 * KAb) 


V lL f ijR ic l uY NMCJ T — NU'MUck Oh K I \t i \J oGD Y MGOtS F 

NU^’dGt Gt~ iiLAjIIC MOOES 

J V l j ) = i »N O writ: RE I NO IS C GLU -1 N JJ# AnlCh COL ( J ) OF 

UK I ^ INAL WGuAL MA r r< i A aIll APPEAR IN 
k'cVIIjlC .MLGc WAT.<Ia 

i i\‘j or o klplaCc column 

i i\j i 0 C DELETE COLUMN 

INj LI C Kf. PLACE C CL UM -i * CnANat ji GNS 


— -■ C AL L R ti A U { A # isK A# NCm# i*» AUi K AL3 ) 

tMAfxiX j1 Zu U*na UY C*NX CllN fAt.'ij Lt-N3i jI'lNT 
M A j b Rti'WcSiiN 1 Al ION 

i<L* 'CGLuMN COOKL/ l N A f E U-^OlR .MU-# T o CuN j 1 jTtNT 
»» I T « I Ti»»_ ji.oi\tL CF KKLlJL.M T A k .)_ •_ , J>wr 


' CALL KC'TJ ( A « Nk A • N i v J J 1 • KALI# KAO) 

MATRIX -jl iL o*NX OY CLNTmilb .-I'-jAl JLF 1 N l 1 ICN 

1'K- COLUMNS ( Mu-jl ’JR OCR ) A I l.L u_ n^cNJLRdJ uY 
TmL INPuJ vlCTuK JV 


Oi 5198 
Cl 5199 
01 5200 
C 1 520 l 
015202 


P u l N T 

1 . 

Cl 5203 

AJINT 

1 . 

015204 

p u 4 n r 

1 • 

01 5205 

p u i n r 

1 • 

015206 

POINT 

I . 

Cl 520/ 

P U 1 N T 

I . 

Cl 5208 
Cl 5209 

rl Trie. 


015210 

; ■-! »<l Jl<0 1 NG # 

01 521 1 
015212 

ANU 

TriL 

015213 

zJ A 3 

~ - 

015214 
Cl 52 15 

NX 


015216 

NX 


01 5217 

■NX 


Cl 5218 

NX 


015219 

NX 


015220 

NX 


015221 


01 5222 
Cl 5223 
015224 
01 5225 
Cl 5226 
01 5227 
Cl 5228 
01 5229 
Cl 5230 
015231 
01 5232 
01 5233 
C 1 5234 
01 5235 
01 5236 
01 3237 
01 5238 
01 3239 
Cl 5240 
01 5241 
01 5242 
Cl 5243 
01 5244 
01 5245 
Cl 5246 
01 5247 
01 5246 
Cl 5249 
015250 
013251 
Cl 5252 
015253 
015254 
015255 
015256 
Cl 5257 
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norinr. r. nnnrirnr. r>. nnnonnnnr. nnnnnnnrv onnnr; nnoonr. nnonnnnr. 


t 

C IF (IDIAK. .EG. 0 • A ND • IDIAD .ECU 0) GO IU 11 

C 

c CALL «tiAD (0M2. 1, N MUD T » 1# KAi3) 

C 

C VECTOR SIZE l'UY NMCOT CONTAINING 3 Q J ARES OF NATURAL 

C FREQUENCIES 


UM2(J) =■ SQUARE OF JTH NATURAL FREQUENCY CORRESPONDING 
TO JTH INPUT MODE SHAPE 

l l CONTINUE 


IF { IKkbM •EG* 0) CU 10 5 


Ft AO (N { T «FQRMAI = lb) JIYPCL 

JTYPCL = REFERENCE JOINT NUM13EK ttnuSE GcUMtT R l C 
POSlllUN COCRDINATcS wIlL 3- UStiD TC 
ESTABLISH RIGID 8uCY i*IiH f k! X 

PE Au (N1 T .FORMAT - ( C ,v 2 ( J ) • J - I . J ) 

U.M2II) - X COMPONENT OF VECTOR THAI LUCAlcb JIYPCL PT 

UM2I2) = Y CJMPUNENT UF VECTOR I rlA T ujlAl^S JTYPCL PT 

umz(j) a. z Component of vector ihat i_uoates jtypcl pt 

V EC ICR lUMPCNcnT S REFER ED TO Hi JJi TklAD 
5 CCN T INUE 


IT (lotAK •EG. 1) GU IL jO 

CALL READ (A. NkA , NCA, KAO, K AfcJ ) 

STIFrNLSS MATRIX SEE NOTE UELJrt 

5 0 CCNUNUt. 

IF tlOlAO »iiU, 1) GO TU 60 


call Read (a, nka, nu< kaq, kaed 

DAMP I No MATRIX SEE NCTt DLLUrt 

CC IC 61 

6*3 CUNT IN jl 
C 
C 

c real: in l r ,t urmai .= bOio.j) (cm 2 <j).j- i,ju 


015259 
01 5259 
015260 
Cl 5261 
015262 
01 5263 
015264 
015265 
01 5266 
Cl 5267 
015268 
015269 
015270 
015271 
01 5272 
Cl 5273 
015274 
01 5275 
01 5276 
015277 
015278 
01 5279 
015280 
01 5281 
Cl 5282 
01 5283 
Cl 5284 
015285 
01 5286 
01 5287 
Cl 5288 
01 6289 
01 5290 
015291 
Cl 5292 
01 5293 
Cl 5294 
01 5295 
Cl 5296 
0 l 5297 
Cl 5293 
01 5299 
01 5300 
015301 
Cl 5302 
01 5303 
C 1 5304 
01 5305 
Cl 5306 
Cl 5307 
015308 
01 5309 
01 53 10 
01 53 i l 
01 5312 
Cl 53 l 3 
Cl 53 1 4 
016315 
Cl 53 16 
01 53 1 7 
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C C 1 53 l 8 

C 1 OY iW = .VJMlls.K Cr l.U jf U. MJOtS 015319 

C r5c.IAiMfc.lv VIA 1 1-* *-* V- I IV fiitKC I l ( 3N Vr_ w fuK Cl 5320 

C 015321 

C i, M ' { J ) " MftO AL lv Ai*»P 1 N-j K A f [ fj Fj< jlM L«. 4 :> l I C MOl)l£ Cl 5322 

C 015323 

C o l COM f IfcUt. 015324 

C 015325 

C Cl 5326 

C Cl 5327 

C 015328 

C Cl 5329 

C C l 5330 

C 015331 

C NiJU; F uix ;» l IFF N c : tj 5 AN0 1‘AMDING •UfuCi.j 015 332 

C 015333 

C C fl <JKu l N A 1 c O tio>: P A SSL Mfl C> ClJN u l l d NT Vn i T H C l 5 3 3 4 

C ri»L Hru<.)t:W-0 CCOPOlMAlu lr> T ICN 015335 

C At- l f.ft f M t; C*£ORCE OF - -i t - ; L > u ft Tal>LL ( JOOF ) 01 53 3 6 

C MAj I M t PFi QG A T *.:J hNJ Trie 1-uLLGfclNG Cl 533 7 

C 'IhivnK r . .■> F A E l. I 5 h li O 0 1 5 3 3 8 

C 015339 

C C l 8 3 4 0 

C MX ( l ) , l - l . 2 ft 01 534 l 

01 5342 
Cl 5343 

C NYU) , 1 = 1.2 ft 01 5344 

C . 015345 

c ' • Cl 5346 

C M<£ < l ) , I = 1 • 2 . * . • .ft 01534 7 

C . 015348 

C . C15349 

C IX ( l ) i l = l » 2 i » i • »N 015350 

C . C 1 53 5 l 

C . C i 5352 

C T Y ( ( ) . i = I • 2 i * « * i N 015353 

C • 015354 

C . 015355 

C T X. ( I ) ♦ l = l , 2 . • • • .N 01 5356 

C . 015357 

C . 015358 

C 015359 

C 015360 

C MiAt IN 1 T ,F GrtMAl = bO l 0 • 3 ) ( CM2 { J > . J = 1 , ft c. ) 015361 

C 015362 

C VE'CIOK bl^c l tJY in£ CCNTAINING l ft 1 1 l AL 015363 

C MODAL beFLeCT iuN CA» C ( \'A ft 3 015364 

C 015365 

C Cl 8366 

C FlAC (ft I T •FORMAT = b-> 10*3) ( CM2 ( J ) • J = 1 . ft c. ) C15367 

C Cl 5368 

C VL'CTOH i OY Nt£ CCNT A 1 N I NG INITIAL 015369 

C .4LOAL VELOCITY CuU^OlNA ItS 015370 

c C 1 53 7 l 

C Cl 5372 

C C l 5373 

C 015374 

c Cl 5375 

C 015376 

C C l 5377 
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C NUlE ' FOlL'J'aING EULER ANGLES 

C IN UNucFUkMED CONFIGURATION 

c 

c 

C NHsi = NUMttK »_»(■ H i Noti CN tiOOY N — EXi^LUdIVE l>F HINGE l* 

C bUOY l 

G 

G Cd 110 L-l, NHb 

c 

c 

C Fc AC (NIT .FORMAT = J l 5 ) NUh . I TYPE. JOINT 

C 

C >N Ui i = HI Not NU P»c> E h 

C l TYPE - c.uULt< HO TATI CM TYPE TO JkI-NT HiNs»E 

C TK1AU wRT HCJOY TRIAL) 

C JOINT — JU1N1 NUMBER CCRkESPGNj I N u lu HtNGC POINT 

C 

c 

C Ft A0(NlT .) QRMAI = JO 10.3) (CM2 ( J ) ♦ J = l , j ) 

C 

C OILER ANGLES 1U Uk 1 ENT HINGE Ti<l Ad - PERMUTATION 

C ORDER ULFliMuO UY I type 

C 

C u M2< 1) - rilUA i (FIRST ROT A MON i 

C UM2 ( 2 ) = THLTA 2 (SEGNO ROTATlUN) 

C OM2(3) = IHlT A J (THIRD ROTATION) 

C 

C l 10 CONTINUE 

C 

c 

c ►sj ~ number uf bu NbCis points cn ruoy n 

c 

C IF (NSB •klUm 0) «l7 URN 

C 

C CU 120 l. = 1 *Nbci 

C 

c 

C Ft AO (NIT .FORMA I = 315) NuS. I TYPE* JOLnT 

C 

C NOS =■ btNSbK POINT NUMBER 

C 1 TYPE - EULEk RuTaTICN TYPE TO u.-il£Nf ac.YaOR POINT 

C THIAO v.RT OCOY TRIAU 

C JOINT = JOINT NUMBER CORRESPONDING I v> SENSOR POINT 


C 

C 

C 

C 

C 

C 

C 

c 

c. 

C FEAU (NI T .r-URMAl - jUIU.3) ( C M2 ( J I . J = I . J ) 

C 

C EULER ANGLOS to ORIENT SENSOR J UlNl TRIAD - PERMUTATION 


c 

uROek 

JlF 

1 NEU 

8Y 

1 TYPE 


c 

c 

U M 2 ( l ) 


THE TA 

i 

(F IFST 

ROrATIJ.Ni) 

c 

UM2(2> 


THE! A 

2 

( SECND 

ROTATION) 

c 

OM2( J) 

= 

THE T A 

J 

( THIRL) 

ROTATION) 


01 5378 
015379 
01 53B0 
015381 
015382 
Cl 5383 
Ci 5384 
Cl 5385 
015386 
01 5387 
Cl 5388 
015389 
Cl 5390 
015391 
01 5392 
015393 
015394 
Cl 5J95 
01 5396 
015397 
01 5398 
01 5399 
01 5400 
C l 5 4 0 1 
Cl 5402 
015403 
Cl 5404 
01 5405 
01 5406 
Cl 540 7 
Cl 5408 
01 5409 
C 1 5 4 I 0 
015411 
Cl 5412 
Cl 541 3 
015414 
Cl 5415 
C15416 
015417 
01 54 1 8 
Cl 5419 
015420 
01542 1 
015422 
01 5423 
Cl 5424 
Cl 5425 
015426 
Cl 5427 
01 5428 
01 5429 
Cl 5430 
C l 5 43 l 
01 5432 
01 5433 
01 5434 
01 5435 
Cl 5436 
015437 
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120 CuN r I Nun 



TMt ONLY DATA REau HERE AWE. THuJl ASSOCIATED 
WITH PllYNJMIAl OiIE INI TICK C F IWANiKi it* 


Cl 5438 
01 5439 
01 5440 
01 5441 
015442 
Cl 5443 
01 5444 
01 5445 
Cl 5446 
Cl 5447 
01 5446 
01 5449 
015450 
015451 
Cl 5452 
015453 
015454 
01 5455 
01 5456 


c 


f unc r i uno 

01 5457 

c 



01 5458 

c 


uAlA (It- ANY) lo Kt AC ON THE Fif<oT L AuL IJ 

01 5459 

c 


L» uljKUU I 1 (Sid Cw.f-.IKL w HEK££ THl I NT l vat: 4 VAf-iiAULC 

01 5460 

c 


NPLY lo l)£K I Nlu dY A USER 5UPP_lLJ uATa 

0 l 546 L 

c 


j TATEMENT 

015462 

c 



01 5463 

c 


MPLV - .-iLMiltrt UK bEIS Or POLYNJMiAL TNAN»F ER 

01 5464 

c 


KOMflliN COEFFICIENTS TO K;AJ 

015465 

c 



Cl 5466 

c 


IK (NPLY .LO. w) JU IU 10 

Cl 5467 

c 



015466 

c 


CC 2 0 K-l.Nf’LY 

01 5469 

c 



01 5470 

c 


K 2 = 2 * X - l 

015471 

c 



015472 

c 



015473 

c; 


-CALL ifwAD { CPLV { 1 . Kd 1 . KHLY1K), 2. K.1Y. K.Y) 

Cl 54 7 4 

c 



01 5475 

c 

20 

CUNT 1NJL 

01 5476 

c 



01 5477 

c 


iIAIKIX olZii rvPLY(K) dY 2 UE PULYNJ'liAL UJlEF J C 1 l N T S 

Cl 5478 

c 



01 5479 

c 


L PLY (1*1) - L>cNLM1NA7lR CGl E F I l 1 EnI o in 

Cl 5480 

c 


A5Lc.Nl>1NG ORDER 

015481 

c 


cPLYll.e:) ~ 'JW.4L KATCR CCEM ICIoilj i N 

Cl 5482 

c 


•* OL c. NO l N j C.wOtR 

01 5483 

c 



C 1 3484 

c 


NOTE -- KPLYlKl 15 Jtr.t'INCJ AT l -VjT loUdkuUl INC RcAO) 

015485 

c 


AND i o UNL GREA I El\ THAN Tile. U<<Ut_k OK THE 

Cl 5486 

c 


jwtlMiNAluK POLYNOMIAL 

01 5487 

c 



01 5488 

c 


L icJuh Cf~ NU .‘/ERA FOR P OLY 4c*M i A L i-iJj I NUT EXCEL C 

01 5489 

c 


Ll 5 .JwK UK up M C N 1 X A T OR PUl t N JM i Al 

01 5490 

c 



01 5491 

c 

1 J 

CLu I I NUL 

Cl 5492 

c 



01 5493 

c 


i'C 5 CRN 

015494 

C 


t.NU 

C 1 5495 

c 



Cl 5496 

c. 



01 5497 
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C 

c 

c 




c* 

C* SLQ FGL T I Nc. UY NS 30 - INPUT F GR TIME HISTORY PLOT OUTPUT 


C* 


tv******************* 


c 

c 

C KEmU (NIT .FORMAT = 10A6) ( 1 C T l TL ( l > • l -i , 1 0 1 

C 

C 8 0 CHAkaCTcK MASTER PLC I TITLE .Ul^ APPtMii 

C ON ALL » KAMLS 

C 

c 

C FEAlHNI T .F ORMAT = Ij) N 5E T 

C 

C NsiiT = NO. OF PLOT SETS Tu Lit 

C CYCLED THROUGH. cACrl SET 

C 13 LIMITED TO lo Sc P aR ATE 

C VARIABLES TO -»- SzLcCfLu 

C FRCM THE SET JF VAKUaLtS 

C * R I T T EN HE SUdRUUf 1 nl PlJTWR 

C LR LPLTWfi. 

C 

C 

C CC 1000 13tT=l.N3ET 

C 

c 

C KL AO (Nil .FORMAT Id) J PL 

C 

C J PL = NO • CF V AR 1 AHLlj TO be 

C SELECTED FPCM Trie NLPLUl 

C VARIABLES PREViJU^uV rtRlTTEN 

C LN NTAPF.3 FOR PLOTTING. 

C l JPL .LE. 16) FOR A Scl 

C 

C NCPLUT = l *2 * NEQ+NLA*1 Nj f JR f jt ^ 

C (NONLINEAR ANmLY^IsJ 

C 

C 

C NCHLCT = 14-2*NE0 

C (LINEAR ANALYSIS) 

C 

C khlRE 

c 

c NL.U = NO. CF EOJAT l J \ S 

C IN) LGR A T Ej * 

C 

c iNLAM = NO. OF LAMuDa VARIaULES 

c 

C NU •= NO. LF U VARIABLES 

C 

JR = 6*NG 


Nb = NO. CF GOBIES* 


015498 
01 5499 
Cl 5500 
015501 
Cl 5502 
Cl 5503 
01 5504 
Cl 5505 
01 5506 
Cl 5507 
01 5508 
Cl 5509 
01 6510 
01551 l 
015512 
01 5513 
015514 
01 5515 
01 5516 
Cl 5517 
015518 
01 5519 
Cl 5520 
015521 
Cl 5522 
015523 
015524 
Cl 5525 
015526 
Cl 5527 
Cl 5528 
015529 
01 5530 
01 5531 
015532 
Ci 5533 
015534 
015535 
Cl 5536 
01 5537 
01 5536 
Ci 5539 
01 5540 
C t 554 1 
015542 
015543 
Cl 5544 
01 5545 
Ct 5546 
Cl 5547 
015548 
01 5549 
01 5550 
015551 
0 1 5652 
015553 
01 5554 
01 5555 
Cl 5556 
015557 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

<_ 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c: 

c 

c 


***** 

* 

r*tvi - * [Of^LXt J) «■ s -J ♦ ’i.i.-IA «* NOG L r A 

* 

V * * * * 

J- 1 


• lU 


NO 


t\J- NO 

V * * * * 


* * 

- V !W.ii : LX(J) ^ « l.-kj(iv) * <: + NO 

* * 

•**** + * * v * * 

J” l K- l 


UuLl’A = oO>l CF NoMr.iL'R Jr 4r.Ki,j *■ SUM CF 
No Ms-3 tH CF C fcU 3 ii>J d 1 Hf>U 7 

Cl 1 A PR AY l HO A FA 


.<LAM 


ooM CP’ NvMBLW vJF * SUM CF 

NoMUCR OF TWOS i N *4 I HR U 7 

t .F ARRAY IHCATA 


UROLR CF VARIAGLtlS AN J 

f-LK A SlNGLt PECjkJ 
(FCK A aINGLG TIME* T). 


VAKl AbLC 10 * 5 1 Z - 

wONUNtAH T I Ml l 

ANALYSIS 

Y NLM 

t sju; I NcJ 

LAMbOA .ML AM 


Cl 5558 
01 6559 
01 0560 
Cl 5561 
016562 
01 556 J 
Cl 5564 
0 1 5565 
C l 5566 
0 1 556 7 
01 5568 
01 5569 
Cl 5570 
015571 
01 5572 
015573 
01 5574 
01 5575 
01 5576 
01 5577 
015578 
01 5579 
Cl 5580 
0 l 5581 
015582 
Cl 5503 
Cl 5584 
015585 
01 5586 
Cl 5587 
015588 
01 5509 
0 1 5590 
015591 
015592 
Cl 5593 
015594 
Cl 5595 
015596 
015597 
01 5598 
01 5599 
01 5600 

01 560 1 
015602 
Cl 5603 
01 5604 
Cl 5605 
Cl 56 06 
01 5607 
0 1 5608 
Cl 5609 

01 561 0 
015611 
015612 
015613 
01 56 l 4 
015615 
01 561 6 
01 561 7 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


u 


nfU 


Ha « Hi Y ( HZ • 

Px , HY, PZ u»NJ 

ToIAL ANGtLAR 
MuNcNfuM VECTOR 
COMPONENTS ( < • Y • 2 ) . J 

l NLRT l AL 

Total l i ne a r frame* 

MOMENTUM VECTOR 
COMPONENTS (X.Y.Z). * 

DOGY NINETIC 

LNlk*jU:S • N3 

tiULY POTENTIAL 
EiNtRulES. NJ 

total angular mlm«» 

Total linear mom** 

TOTAL K • £ * * 

TOTAL P • E • * 

TOTAL ENERGY 6 


L I NEAR 

ANALYSIS II Mir l 


Y NcJ 

VOLT neo 


“REAL CH4 1 T .FORMAT = 1615) ( J V PL ( J > . J = I . J PL ) 


JVPL(J) = INTEGER OCNJII.mG ^LjcJAL 
LOCATION OF JTH SLLcClEO 
VARIABLE FROM (Hd nCPlOT 
LONG ARRAY. 


C 

C 

c — 

C 

c 

c 

c 

c 

c 

c 

c 


2 0 CGNTINUL 


Re AGIN IT .FORMAT = SI 5) NCI. ( NCO ( I ) . J = i . J ) . NGRIO 

NCI = ELEMENT LOCATION (LOCAL #kT 
J V P L ARRAY I FOR THE I NUePt N — 
PENT PLOT VARlAoLt* 

NCO = ELEMENT LOCATION I _ oC AL *X T 
J VP L ARRAY) FCk oP TO J 
DEPENDENT V AR I Atil_t 5 JU PLOT 


015018 
015619 
01 5620 
0 I 562 1 
Cl 5622 
Cl 5623 
0 l 5624 
01 5625 
01 5626 
01 5627 
Cl 5628 
01 5629 
01 5630 
C I 563 l 
01 5632 
C! 5633 
015634 
015635 
015636 
Cl 5637 
01 5638 
Cl 5639 
01 5640 
01564 l 
01 5642 
015643 
015644 
Cl 564 5 
Cl 5646 
015647 
01 5648 
Cl 5649 
01 5650 
015651 
015652 
01 5653 
015654 
01 SS55 
01 5656 
Cl 5657 
01 5658 
Cl 56 59 
01 5660 
015661 
01 5662 
015663 
01 5664 
Cl 5665 
01 5666 
01 5667 
Cl 5668 
01 5669 
01 5670 
01 5671 
015672 
Cl 5673 
0 l 5674 
01 5675 
01 5676 
Cl 5677 
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SIMULTANCCUSLY VtHjLl I HE 
NCI DEPENDENT V AfilAdLfc. 

NCK1U = NC. UF PLUT FRAMES T D USE 
FCR PLUTTiNG f rlL NCI-NLD 
GRCUP. IE. Tnc ,sJ . OF FRAMES 
TO USE SUE or slut TU 
b rhAUST THE kANGe uF THE 
INDEPENDENT Y'ARIADLe. 


• fc A U { N l T » F UR M A 1 — Ae«2A*A6»2X.GA6) T 1 1 _ I . I 1 I LU < 

ip ( i r _ i 

ALPHANUMERIC 1 1 T L I NG 1 NF JR .*) A I I UN 
lU INlLU'De ON PLOTTED UUlPuT. 

tiili - Independent vakIAuwe will. 

I I I lD = DcP cNuF N T V an 1 aul u I I I LE . 


IF (NCI .£Q. 0) oU TO 1030 

TrilS IS CUE lu PRLCEOE TC NEXT SET 
C 

C THIS UPLN ENUeU LUOP PERMITS MANY SELECTIONS CF THE 

C J V PL OAIA VARIABLES *ITil REGARD TU INDEPENDENT AND 

C UEPENDE.N1 VARIAoLlS in UNDER TU FORM LRUSS-PLQTS. 

c 
c 
c 
c 
c 
c 
c 
c 

c- 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
/* 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c* 

C* SLE'FUL T I L'YNSAO - I i'.P U I Fen e i ME AH I EEC SYjIeM ANALYSES 

c * 

c 

c 

C FLAUdll r .1 = A A ) LI.AM 

C 


PT 1 I. 


Overall iitle fun pa«iicular 

I DEN T IF I C A TI UN OF Inij FRAME. 


CL I L ED 
130 0 C L '* T I NUv 


f E r u rn 
end 


01 5678 
015679 
Cl 5080 
015661 
01 5682 
01 5683 
01 5684 
015685 
01 5686 
Cl 5687 
01 5688 
01 5689 
01 5690 
015691 
Cl 5692 
01 5693 
015694 
Cl 5695 
01 5696 
01 5697 
01 5698 
01 5699 
01 5700 
Cl 5701 
01 5702 
015703 
01 5704 
Cl 5705 
C I 5706 
01 5707 
01 5708 
Cl S709 
015710 
C l 5 7 1 I 
Cl 5712 
Cl 5713 
015714 
015715 
Cl 5 71 6 
Cl 57 1 7 
Cl 571 8 
015719 
015723 
01 5721 
Cl 5722 
Cl 5723 
015724 
01 5725 
01 5726 
01 5727 
Cl 5728 
Cl 5729 
01 5730 
015731 
01 5732 
Cl 5733 
Cl 5734 
Cl 5735 
01 5736 
Cl 5737 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c- 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



-CALL WcAUlM (LKY* 9. NL YC • 9. KR > 

MATRIX aUt 9 UY NCYC DEFINING FkLJUENCY 

ANALYSIS CONTROL DATA 

NL VC - NO. CF SEPARATE TRANSFER 

FUNCTION CYCLES TO CONuUcK 
FLR THIS SIMULATION 

FOR THE J TH CYCLE — 

LRY( l.J) = l TYPE INTEGER CLASSIFYING THE 

TRANSFER rONZTluN TYPE. 

I TYPE = l PLANT CfLr ( G ) 

= 2 CCNTRCLLcR l HI 
= 3 OFLN LOOP ( GH ) 

= 4 OPEN LOOP (HG) 

= 5 CLOSED L-j.jP ( Grl/l 1 +vjH) ) 

= 6 CLCSLD LOOP 
- 7 PSEUDO OPcN uUUP. 

= 8 SPECIAL wASc (SEE bELOuf) 
PERMITS OPENING OF A 
SINGLE RETURN _uuP. 

A MINUS SIGN UN l TYPE 

EQUAL ( 3 ♦ 4 » s • UR /> INDICATES 

NEGATIVE CjNI'KuLLlK FlEuBACK. 

A MINUS SIvjN UN I T Y Pc CQUAL 8 
INDICATES COMPACTLY CLOSED 
LOOP IRANSFER h JNCT i UN . 


L T< Y ( il,J) = I TP I N TRANSFER r T I UN INPUT 

VAkIABLE I DcNl IF I CAT ICN. 
THIS iNTEsuR Is A LJCAL 
l DENT I F ICA I I UN I.mIcGER# 
REFERENCING ( UePENU I NG 
UFCN I T YPc ) til licK A 
SENSOR S I G N A _ Or A 

cc.ntrollqk uuipvjT variable 

V» H I CH IS T Hu V l l N J OF 
THE EXPRESSION 


01 5738 
01 5739 
01 5740 
01 574 ! 
Cl 5742 
01 5743 
01 5744 
01 5745 
01 5746 
01 5747 
015748 
Oi 5749 
Cl 5750 
C l 575 I 
01 5752 
01 5753 
C 1 5754 
015755 
01 5756 
Cl 5757 
015758 
Cl 5759 
Cl 5760 
015761 
Cl 57o2 
01 5763 
015764 
01 5765 
01 5766 
01 5767 
015768 
01 5769 
01 5770 
015771 
015772 
01 5773 
01 5774 
015775 
Cl 5776 
01 5777 
C l 5 7 78 
01 5779 
015780 
015781 
015782 
015783 
015784 
01 5785 
01 5786 
Cl 5787 
015788 
Cl 5789 
015790 
015791 
015792 
015793 
015794 


C C 1 5795 

C V(OUT) C 1 5796 

C = TF 01579 7 
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n r*. 


l 

C 

c 

c 

c 

l 

c. 

c 

c: 

c 

o 

c 

c 

c 

t: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c: 

c 

<: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. 

c 

c 

c 

c 


V ( t .<4 > 


L*.<Yi 3,J) = J U-iJuT --- I UAM 1-Osv.l uyTPUl 

V A*« I A rlLc: l ».n. M IrUAI l ON • 

THIS b A U'wCAL 

I J T. N l l F i L a f t u N l Is I c£ Gc. P * 

•-« L F 1 1 c NO i .n o ( o L » ' 5.’. «'4 U l No 

upon i ry-'L ) t i To.„ri a 

5t. •*..> G f% 5 i wN'U, L m A 
C c N 1 N CL.L r. K Ju I r*sj f V AK i At’-l. t: 

aiuch lu I Hu v(uor) of 
THH t XPRc-VbloN -- 


V ( 0 JI ) 


V < I * I 


tr 


NO Tt IT Ai)b( I I V PL ) hOUALS M T'IlN 


LKY ( 2. J ) 
( .vHUSt. F 
LuY ( j • J I 

IS A L RE f’r PI; N L l "Vp J J z* \ A T c 01 

cl Ji;ACk 1 . 0 1 J P IS CUT)* ANj 

1 S -.#1 LS A L J’U 1 PU T S T* 1 L. ,jr YV 

LKY( * . U ) 

= k pl u r 



K PL L 1 

- 0 NC °L 0 T S 

- 1 PLOTS WluL BE MAot 

L WY { 5 , J > 

= I AH'o 



THIS 1 NTEGEF CONTWiit. P Ah A Ml. Ilk 
H txMiYS IHt USER Tu :»e.LcC! 

T Ft L CHAP AC TFP 1 ^ T IC H Uu 1 5 r u K A 
ii lVhN T K ANSFtiPs F U N w f 1 U N F K U M 
iill'MLK n*e: CHAkAC.lv_-< til 1C MAlHlX. 
AK* UK ITS TRANSPCbc • 


IAHlG = i FRCGKAM * I Ll u;>c KJGTS 
f- 1 l C M A rv T KANbPuSt. • 

OLrAULT VA l jc lb 0 A Ni) 

FOOTS KRCM AR a 1 LL uc. UScD. 

NOT* - PkCGHA.v, EXTRACTS ROuT j r Lk oUIn 

AK ANJ ITS TPAiNiSPUSc* T rl a b jlRVc 5 
AS A SORT OF SELF CmUCK UN I Hfc 
ROUT CUALITT. ALTHOjGrl IT lb A 
riAki CCCUPRANCE. ROST-> FkuM AK 
ThANSPOSc can rit_ -LuhANck- T M AN 
T HLSfc USTAINLO FPfCM AK. 


C 

L RY { o.J) = NO. 

OF 

e 

VARIABLES TO Fiitci BACK, ITYPE - 7 

C 

MAX 

CF 

3 

B VARIABLE:* CAN dc FED BACK F OK 

C 

THL 

T YPE 

7 PSEUDO uPcN L u up 

C. 

1 rv AN 

SFLK 

FONCTl CM. 


Cl 579 S 
Cl 5 799 
Cl 5 130 0 
01 560 l 
01 580 2 
Cl 5d0 3 
015604 
01 5605 
Cl 5e06 
0 1580 7 
Cl 5608 
Cl 5809 
Cl 581 0 
C l 58 1 l 
C l 5812 
015813 

0 1 58 1 4 
Cl 58 l b 
01 581 6 

01 581 7 
015818 
Cl 50 l 9 
C l 582 0 
01 5821 
Cl 5822 
01 5823 
015824 
Cl u325 
Cl 5826 
Cl 5827 
Cl 5828 
Cl 5829 
01 5830 
C 1 583 l 
C 1 5832 
Cl 583 3 
C 1 5834 
0 1 5835 
Cl 5836 
Cl 5837 
01 5838 
Cl 5839 
Cl 5840 
01 584 1 
01 5842 
01 5843 
01 5844 
Cl 5845 
Cl 5846 
01 5847 
01 5848 
01 5849 
01 5850 
015851 
015852 
015853 
Cl 5854 
015855 
01 5856 
015857 
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C Cl 5858 

C lKY( /.J) = LGCmL in. OF FIRST U lU iIlTAINi eisssv 

C 015860 

C L.KY( d.J) = lUCA L 1C. OF SECOND 8 TO kuIAIN. 015861 

C 0 1 5862 

C L R Y ( 9.J) = LOCAL 10. OF THIRD u fu hlUIN. C15863 

C 015864 

C 015865 

C CALL KLAD1M ( l KY . 3. NCYC. 3, KR > 015866 

L 01586/ 

C MATRIX S1.1C j l)Y NCYC DEFINING laHu-NlNI FUR 015868 

C TOLERANCES TLL = (19.)**EXP 015066 

C 015870 

C F UR THE JIM CYCLE - CI5871 

C 015872 

c iky(i.j) = kuct toclrancc l x fujl nt oisa/3 

C 1RYI2.J) = c A I in TOLERANCE EXPONENT 015374 

C IRYlJ.Jj = txUCT TOLERANCE EXPONENT Used Tu CI 5875 

C REMOVE SHIFT FREQUENCY { sUlik UU T I NE NUMS1 015876 

C 015877 

C NOTE — IT RtJCI UR gain LE TCL. THEN 015878 

C btT ROUT UR GAIN EQ 0 . J 015876 

C 015880 

C 015881 

C 015882 

C 015883 

C 015884 

C 015885 

C 015886 

C 00 500 l CYC = l • NC Y C C15887 

C C 1 5883 

C IF llTYPt .60. 0) GO TO SCO 015086 

C 015860 

C 015861 

C FEAUINIT .1 URMAT = 20 A<* ) < T l TLE ( l» . I = l . 20 > Cl 5892 

C . C 1 5393 

C 80 CHARACTER TllLL FCH TRANSFER Fu.NcllUN Cl 5894 

C IDENTIFICATION 015895 

C 015896 

C 015897 

C READIN IT .FORMAT = 20A<*1 (LFNAMEl I) . 1=1 .») . LP 1 APL . L L I GV .LPCL Y 015898 

C 015899 

c LPNAMti i j permits up .to s four char act lr C 15900 

C IDENTIFICATIONS WHICH SELECT THE 015901 

C Pc uT DISPLAY MODE. C15902 

C 015903 

C LPNAMEI 1 ) = 4H (ALL OLANKRNO DISPLAYS C15904 

C ARE IMPLE-Il.NIlJ GO TO 500 015905 

C THE CHAR AlTeRi j T 1 C ROOTS C15906 

C FOR THE SYsTcM ARe rUUNO. 015907 

C 015908 

C LPNAMfcUJ = 4HUUUE ONLY A BOjt DISPLAY. 015909 

C 015910 

C — 4HNICH CNL Y A NIlHGLS DISPLAY. 015911 

C 015912 

c = AHNYUU CNLY A NYJJ 1ST DISPLAY. 015913 

C 015914 

C = 4HN1NY DOTH N1CHJLS AND NYGUIS1. 015915 

C 015916 

C = 4I1ULNN GIVES BOOc, NILHOeS. NYQUIST. C15917 
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n o r r\ n r rv r- r. r* r\ r> (■. n r- r> n r o n o n n o n r n rs n n n n n r> n n r. n r. r*. n r n n n n n n r* n ct o 


= 4HRLUT GIVES A R^T .jUj D 1 SPLAY • 

LMTAPt. - 411 7 IKK UUf»P /PSTjrF/ uN 7-TRACK TAPfc 

UNIT 12 IN JCL. IF • NE • 4Fi7 TRK 

LC1GV = 4HclGV COMPUTE El ^eNVcCTURb 

LPULY = 4HPCLY COMPUTE A NJ PhINT TRANSFER 

FUNCTION R A f 1 U UF PCLYNCM I AL S 

IFlLcIGV .Nc. 4MtlGv) GU TC 23 

FcmU (Nil .FORMAT = 2F l-J • 0 ) FCMIN. FCMAX 

22 CONTINUE 

CL.-IPCTt. E l Gc-NVLC 1 URS ASSuCIATCO WITH - I CcM * AlUC 3 HAVING 
IMAu INARY PARI .^T« f CM l N AND • L T • FOMAX 

C i GEN VCC T oR S ASSOCIATED WITH lEPtATi J clOcNVALUES 
CANNUf l>E F oJND WITH PRESENT SuoRGJllNL LiGVEC 


Cc ECU I UP = I 


Ir 


i r 

* .OR , 


10 0 CL'hIINJ l 


Cl 1 L l>J J 


300 CCNflNUc 


Cl 59 I B 
015919 
01 592C 
015921 
01 5922 
01 5923 
Cl 5924 
01 5925 
01 5926 
Cl 5927 
Cl 5926 
01 5929 
01 5930 
015931 
C l 5932 
Cl 5933 
C 1 5934 
01 5935 
015936 
015937 
Cl 593B 
015939 
01 5940 
01 594 1 
015942 
0 1 59 4 3 
Cl 5944 
01 5945 
01 5946 


( LP NAME ( 

IcP ) 

« L 0 • 

4h ) 

GU 

I 0 

J uu 

Cl 5947 








01 5948 

V CP NAME l 

1CP ) 

• tCi* 

4mD COE 




01 5949 

LP NAME' ( 

IOP ) 

• EL. 

4HN 1 CH 




015950 

LP NAME I 

IcP ) 

♦ i-G. 

4HN Y CU 




013951 

LP NAME ( 

ICP ) 

• lUi 

4rlMlNY 




015952 

lpnaml < 

IUP ) 

• LU. 

4H 3 C N N ) 

GC 

TO 

230 

01 5953 








015954 

( LP NAME ( 

ICP ) 

• c. U • 

4Hi< CC T ) 

GU 

TO 

3 uO 

01 5955 


v * e FktJJLNLY RESPONSE SECTION 


— fccAJ (N 1 T *F JR- vial =■ of-lJ.O) F V I N i F- MAX# UuMiM, jjMA A • AMIN. AMAX 


01 5956 
015957 
01 5958 
01 3959 
01 5960 
01596 l 
015962 
Cl 5903 
015964 
01 5965 


F P l N 



:y sale p lc.»lr 

l i M 11 



01 596b 

r MAX 

= 

rKcL'JL ',4 L Y SWEEP UPPER 

l i m i r 



01 5967 

jLiMI N 


M 1 N 1 MUM 

U3 AiV.PL l T UDC 

f JK OwUC 

. HICHCLS 

PULTii 

Cl 5968 

J ci.M A X 

- 

MAX i MUM 

Du AMPL l IUDE 

FuA UJ •->.£> 

, nICHL'LS 

PLCtS 

01 5969 

AM 1 N 


MIN l MUM 

AMPLITUDE FOR 

'■M Co 15 1 

PL u 1 S 


Cl 39 70 

A MAX 

- 

MAa 1 UM 

amplitude fur 

•*< r ^ J 1 j J 

PCUI S 


015971 


Cl 5972 
015973 
Cl 5974 
01 59 75 
01 5976 
01 59 7 7 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

t 


**♦ ROOT LuCUS StCTiUN ♦ * * 

-CALL RfcfAOlM U JM, 2 • NRLC • 2, KR> 

MATRIX SIZE 2 t> Y NRLC FCR ROOT lJC J i PLJT CONTROL 
NRLC = NUMBER OF ROUT LOCI TO PERFORM 
FOR THE JTrt RLUT LOCI - 
I J M ( i • J ) = LMM = 


I J M ( 2 * J ) = LLfcMtNT LOCATION IN RJUT ARkAY 

FUR STARTING ROOT _UCl. • 


-CA»_L RLAU (Wl. 6. NRLC. Kft , KR > 

MATRIX SIZC 6 bY NRLC TOR ROOT LJCJS lOnIROL DATA 

FUR THE JlH R CO T LOCI - 

Wl(l.J) = TMLTAU(J) INITIAL ScARlH ANoLE. 
normally -iso. (o^rees) 

Wl(L.J) - SCL sc all factor, normally 
5 CL = 1.0 


SO 0 CCNTINUl. 

Phi URN 
PL TURN 
PL TLRN 


01 5978 
01 5979 
Cl 5980 
01 5981 
01 5982 
01 5983 
01 5984 
01 5985 
01 5986 
01 5987 
01 5988 
01 5989 
01 5990 
015991 
015992 
01 5993 
015994 
01 5995 
01 5996 


ST A Rf 1 nu 

PO l NT 

1 s 

015997 

OPEN LUUP 

ZERO. 


015998 

ST ARI 1 NG 

P U 1 N T 

1 s 

015999 

OPEN L GO J 

PQLc • 


016000 

S T ART I NG 

P U l N r 

1 s 

C 160 0 1 

CLOScJ LOJr* PGLt. 

01 6002 


C l 6003 
016004 
01 6005 
01 6006 
Cl 6007 
01 6008 
Cl 6009 
016010 
01601 i 
01 60 1 2 
016013 
016014 
016015 
016016 
016017 
0160 18 
01 6019 
Cl 6C20 


W l 

( 3 . J ) 

- AL LC 

PHASE CCMMul 

PA R A Mt: TlR 

• 

0 16021 




ALCC = + 
AL CC = - 

l • 

l SO 

0 

. Jc. \J 
Jlio 

. PHASE. 
• P H A S E * 

01 6022 
016023 
016024 

Vi 1 

( 4 • J ) 

- XM1 N 

MIN RE AL 

VAuJc 

1 u 

PlJT • 


Cl 6025 
Cl 60 2 6 

VV 1 

( 5 . J ) 

= XMAX 

.VAX REAL 

VALJc 

T u 

PLOT • 


016027 
01 6026 

« 1 

( o . J ) 

= YMA X 

MAX I MAG 
YMIN SET 

VALJt 
TO - 

r u 

V wl AX 

PLOT 

. 

AND 

Cl 6029 
01 6030 


016031 
016032 
016033 
016034 
Cl 6035 
01 6036 
01 6037 
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C FurtKN 

(1 » : U tf'N <s> 

C f; f U k N 

C f-LlcRN 

i f-. lUf-N 

fir. j 


01 6036 
Cl 0 0 39 
01 6040 
01604 l 
0 l 6 C 4 2 
01 004 3 


SsOFMCoflM- OLf '* 

C 

c OL RUG 4115 

C 

C 

c 

A * 4 * ^ -4 « 4 c*»i<rjC:<s 4 . £-« ♦$**$***$** 

£ $ * G +t * * N4i'r * *?«:#*£ t. ♦ * * * * $ $ * ♦ * 4 

c* 

C* OtiC'CF l P f IGN CF PMjohA.4 JUU,i. OUTPUT OAT A 

o 

6 4* # * $ } <« f. * 4 * * *$<:<s<ci{c-fc{c«^*V* * * * * «i ♦ * V $ * * <• & ft^v****?** <» * * *«t$***4*** ♦ * * 

C H 'i' ^ ^ <f '{! > ♦ ♦ cc <t<<* v. <« * 4 « »s * * 'je /• * * * *$*$**$ 

c 

c 

c CLMJ'cNl G (FOliMrtT IJAo) 

C 

C COMMcM CARDS KtAO IMG T H t 

C PkUGkAM ‘.vl Trl 5U:JPCUTtN£ CCMtNl 

C AWii I'K IMttJ HtWL • 


01 6044 
Cl 6045 
Cl 6 0 46 
01 6047 
01 6040 
Cl o 049 
01 6050 
016051 
016052 
016053 
016054 
01 6055 
01 6056 
01 6057 
01 6050 
016059 
016660 
016061 
01 6062 
016063 
016064 


C 016065 

C 016066 

C * * * ♦ * **«**<■ (■ <• ♦ v * 4 V <.**>>*¥**♦*♦* / v ♦?*»**>*** •*<‘*t;'«-)‘6*«‘4<******4*********** 016067 

c * 01 6060 

C* 5UflkC J I 1 M_ OYNSIO tUTPOf 016069 

C* 016070 

C $ * ****** v 4+ vo**>**4*>i«$ ************** **************** ************** C16071 

C 016072 

C 016073 

C 016074 

C 01 6075 

C yJW^AliY Ol* DYNAMl C- 31 MUL A T ION INPUT jhIA »#*♦**♦*** 016076 

c Cl 60 7 7 

C 016070 

C ACTUAL MAXIMUM i N T L. 3 T* A T l C N GRAVITY urlADlUT 016079 

C oIZco 512L-5 U A T a DATA 016080 

c C 1608 1 

C C l 6082 


c ,ml* = M1MAX = 5IARTT = Cl = GAM 4 = Cl 6083 

C 016084 

C i\m - NHMAA = JlLTAT .= G 2 = «A AeL = 016085 

C 016086 

C No P I = NS Pis AX = tiNJI AT = G3 = mAMj = 016087 

C C 1 6080 

c iNJFfvO - NMwMAX = GMAo - N L MAG = Cl 6089 

C 016090 

C NJLLTA = NMwaOLi = Cl 6091 
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c 

C — NU — NMUljUJ 

C 

C NJETA = KMU 

nl a n - k y 

Ni - U - KU 


M I Sc . i>A r A 
NCPr<NT = 

nopl j r = 

IFLNGK = 


THE f-OLLUWlNU LIST lOENTIFleb frit. 
UUlPuT VAKlAoLcS SUMMAR17.1IO JN VHi 
PREVIOUS PAUL* 


* * * $*** ******.**** : 


t**** ****** ** ** * * ** 4 * *** 


Nti 

NH 

n sp r 

NOLL I A 
NU 

NUETA 
NL AM 
NL U 


NL • LH t Cl) I CS. 

NO. Oh HINGES. 

NL. CF SCN3CR PCINIS. 

NC. Lh CONTROL SYSTEM DELTAS. 
NL. LE U*S. 

NC. Ur- GETA’S. 

NL. l> LAMBDA’S ( CiJN ST. FAINTS). 
NC. Oh STATE LOUATi JNb. 


Cl 6092 
016093 
016094 
01609b 
01 6096 
016097 
01 6098 
01 6099 
Cl 6 l 00 
C161 01 
016102 
016103 
016104 
01 61 05 
01 61 06 
Cl 61 07 
016108 
Cl 6109 
016110 
016111 
016112 
C 1 6 l 1 3 
016114 
016115 
016116 
016117 
016118 
016119 
016120 
C 16 121 
016122 
Cl 6123 
016124 
016125 
01 0126 
C l 6 1 2 7 
01 61 28 
016129 
Cl 6 1 30 
016131 
016132 


MdMAa 

= 

MAX 1 MuM 

0 l MENS I C NED 

NU. 

ui- 

b 00 IES. 

016133 
C 1 6 1 34 

NHMAX 

“ 

MAX i MUM 

0 I MENSI UNEJ 

IND . 

Uh 

M L NGES . 

016135 
01 6 1 36 

NS P MaX 

” 

MAXIMUM 

dimensioned 

NU • 

•JF 

SENSOR POINTS. 

01613? 

016138 

NMW.MAX 

- 

MAX 1 MU 4 

DIMENSION Eu 

NU. 

ah 

MuM . WHEE L 5 * 

Cl 61 39 
Cl 61 40 

NM wEiuO 

= 

MAX 1 MUM 

0 t MENS I C NEJ 

NU. 

uh 

MUM • WHEELS 

016141 







PcR dCOY. 

016142 

016143 

NMDbuU 

“ 

MAXI MU M 

0 I MENSI C NEJ 

NU. 

OF 

MOdES PER BODY. 

016144 
Cl 6145 

KMU 

= 

MAXI MUM 

01 MENSI 0 NEJ 

NO. 

OF 

u’S PER BODY, 

016146 


KY 

KU 


o *■ NMO GOO 4- NMWHOJ . 

MAXIMUM 01 MEN SIGN E J bUc Kuk STATE VECTOR. 
MAXIMUM DIMENSIONED NO. uF U*S. 


016147 
016148 
01 6149 
01 6150 
Cl 61 51 
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C = ,\JMAX*16 * NMDUOD) *■ NM «MAX. 016152 

C 016153 

C 016154 

C 016155 

C 016156 

C 016157 

C 016158 

C OUTPUT VAkIABLE IDENTIFICATION S JrtrtAR i 016159 

C (CUNPO) 016160 

C 016161 

C 0161O2 

C<£* **#«*** 016163 

016164 
016165 
016166 

START l = START TIME FCR T I it HiiiP jNiu. 016107 

016 168 

OdLlAT = lMtGRATION STEP S12E. 016 169 

016170 

ENU f = lNJ TIME FOP TIME kciSPJnSl. 016171 


016172 

016173 

016174 

016175 

016176 

016177 

016178 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


016179 

G 1 - X LCMPUNENT CF GRAVITY VcCTuK. (INPUT) 016180 

C16181 

G2 = Y lUMPO N tNT CF GRAVITY VcLTJW. (INPUT) C16182 

016183 

G 3 - L tLrtPO NcN T CF GW AV 1 I Y VLC1 JH. (INPUT) 016184 

016185 

GVAG - 3GPI (ol **2 + o2**2 ♦ -- 016186 

ACCcLLWATICN CF GRAVITY C16187 

016188 


G AM 1 

- JIKlCHCN 

CCSINE 

( j < AVI I f 

VeCTUR 

AND 

X ) . 

016189 

016190 

GAM 2 

- J I R E C T 1 t, N 

COSINE 

(o*avI I y 

V c u I UK 

AND 

y > . 

016191 

016192 

viAMj 

= O IRtUT i CN 

CCSlNc 

( jri av i r r 

VcUUH 

AND 

z ) . 

Cl 61 93 
016194 

kcmag 

( INPUT ) 

RAO IUS 

A.Ii.No ORAVlTy 

VECTOR. 

C 1 6 l 95 
Cl 6196 


016197 

.MUPRNT = MuLllPLc OF DlL I A f IJ -»a!NI T 1 Me RESPONSE. 016198 

016199 

NUPLUT = MULTIPLE: CF DLL I AT lo a * l T e PL U T TAPE. 01 6200 

C 1620 l 

I (- L NL R = o (NUN LINEAR T I ML ueSPUN^t) Cl 6202 

= 1 (LINEAR ANALYSIS LK rftu RESPONSE) 016203 

Cl 62 04 
Cl 6205 
016206 
01 6207 
01 6208 
016209 

THE rULLuv, liw SSiKIcS OF AR ^ckTAlN Cl 62 10 

TO It.L 'ILJcL SIMULA TICK AN0 A Re P^iNlcU 016211 
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THC TUPOLOGY ARRAY IITUPOL) FOR THIS CASc: FuLlJuS 
( 1 > l 21 ... (NH) 

1 1 
2 1 

THIS IS T HE INPUT INTEGER ArKAY I T UPCL 
( ScL PREVIOUS CHAPTER INPuJ JATA) 


THE CONS TKAINT SPECIFICATIONS FOR THIS CASE FULLdW 

( I ) <2 ) ... ( NH) 



THIS IS THE INPUT INIE.cH ARRAY IHDATA 

( see previous chapter — input jatai 


THE SPECIFIED INITIAL HINGE ANGLES 

A NO Cl SPLACEMLNTS (CictAnl FOLLOW 

<11 ( 2 I ... ( NH ) 

1 1 

2 1 ROWS 1-0 - HINGE ANGLES (CONSISTENT WITH 

I TYPE > . 


ROWS 4-6 = HINGE DISPLACEMENTS- G RLLATIVE TO P 


6 l 


• THL SPECIFIED 1NIIAL HINGE RATES (LlcTAHU) Pui-LJW 

( 1 ) ( £ ) ... ( NH ) 


016212 
016213 
016214 
016215 
016216 
016217 
016218 
01 6219 
01 6220 
016221 
016222 
016223 
016224 
01 6225 
Cl 6226 
01 6227 
01 6228 
016229 
01 6230 
016231 
Cl 6232 
01 6233 
C 1 6234 
016235 
016236 
01 6237 
01 6238 
016239 
016240 
01 6241 
016242 
016243 
016244 
016245 
Cl 6246 
01 6247 
01 6248 
Cl 6249 
016250 
01 6251 
01 62 52 
01 6253 
Cl 6254 
016255 
01 6256 
01 6257 
01 6258 
01 6259 
01 6260 
016261 
016262 


C 016263 

C 1 1 016264 

C 2 l kuvij 1-3 = ANGULAR RATES. 01 6265 

C : . . 016266 

C . . Rt/WS 4-6 = DISPLACEMENT RATcS- 6 RELATIVE TO P. 016267 


C 


016268 


C 6 1 Cl 6269 

C 016270 

C 016271 
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C — THl hO. JH ELASTIC MCjLb/ B OCY ARRAY (Kiif-.x) KolLO’aS 016272 

C 0 1 02 7 3 

C (1) U) ••• (M-) 01 62 7 4 

C 016275 

C l l THl JTH LMRY 4 5. THt Nfl. Hr lUA.> TIC Cl 62 76 

C MOuiiS rLHoLuYJ. 016277 

C 016278 

C 016279 

C I Hi: N C « CJf P/0 Ml Not POINT S/L'ODY ARP Af (NHPlil) ruLLCWS Cl 6280 

C 016281 

C ( L ) (c) (NB) 016282 

C 016283 

C l 1 ELEMENT :> ARE THF NC. JK >/0 Cl 6284 

C n i N Gi_ Pol NT 5 CN EACH uJyf. Cl 6255 

C 016286 

C Cl 6287 

c — THL NO, Of 5L-N50P POINT S/BOOY ARRAY (N^POIl FOLi.jfeS C16288 

C 016289 

C ( l ) (if) ... (NR) 016290 

C 0 l 629 1 

C l l ARC THE NO. or ;>iiN5UK 016292 

C POINTS ON EACH BODY. 016293 

C 016294 

C 016295 

C — litu M)*M • V.HEEL/ULDY TAuLl (NMO’a) FJLLJas 01 6296 

C C 1 6297 

C ( 1 ) ( 2) . . . ( NB) 01 6298 

C 016299 

C • — COL J = JTh BODY 016300 

C * — 1 1 RCW 1 = NO. OF PCM. WHEELS JN -JuJf J. 01630 1 

C 2 1 RCJ* 2 = NU. CP VARIABLE SPduO wri tELS JN BODY J. 016302 

C — . . ROW 3 = SUCCESSIVE ROWS ARc T He. MuM^.mTUM WHEEL 016303 

C NLMotRS C 1 6304 

C ... oN ULOY J (IN ASCEnjINS JiUcK) . 016305 

C 4«bliU 1 . C 1 6306 

C 016307 

C 016308 

C 016309 

C C16310 

C 016311 

C C16312 

C Cl 63 13 

C 016314 

C lHr_ STATE VEC f ok LENolM aRRAY (LENU) FJlLJwS 016315 

C C 1 63 1 6 

C ( 1 ) ( 2 ) • • • ( 2*NB + < ) 016317 

C 016318 

t 11 016319 

C 016320 

C the cLLMEM 5 AKt the LENGTHS JF SEGMENTS 016321 

c CP The state VeCTOR. 016322 

C 016323 

C oRDEn IS 016324 

C 016325 

C U( 1 ). U( 2 )... .U( KB) . X 1 (1 a i ( N6) .3ETA.0ELT A 016326 

C C l 632 7 

C 016328 

C THE STATE VCCToR LOCATION ARRAY (LOCO) HUL-Owb 016329 

C 016330 

C (1) (2) ••• ( 2 A N E + 2) 016331 
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l 


l 


LEAuINJ CLEMENT LOCATION IN IHi STATE VECTOR 
FOR TH£ StUMi-NTS DESCRIBED IN ARRAY (LENU). 


THE SPCCIMtU EtNSLx PLINT/DUDY CCRRELA T I UN ARRAY 
FOLLOWS 


{ IFTSMW) 


( 1 ) (2) ... (NSPT > 

I 1 rut J7H lLcHEM IS THE dj l/Y NS. UN 

WHICH SLNSLR POINT J IS LOCATED. 


THE KiLLO» INS uAIA 

II F ANY) 


IS SPECIFItD MUM. WHlE. INFORMATION 
AND CONTROLLER INFORMATION 


TrtE SPECIFIED MOM. CONTROL ARRAY llWLi) FOLLOWS 


( I J 12) ... ( NCFMO) 


1 1 

2 I 

Z 1 


CUL J 
MjA 1 
ROW 2 
ROW 3 


JTH MOMENTUM WHEEL 
WHEEL SENSOR POINT NO. 
SPIN AXIS 
l ACTIVE 
0 CONSTANT SPEED 


THE SPECIF ICO MUM. WFtEcL RATES AND INlTI US (AMO) FOLLOW 

I 1 ) 12) ... (NCFMO) 

CUL J - JTH MOMENTUM WHEEL 

1 1 ROW 1 = INITIAL WhEFL SPIN RAIL 

2 1 RUW 2 ■= SPIN INfcRTIA 


THl SPECIFIED CUNTRULLLR INITIAL CCNOlTlUNs 
ANO CHARACTERISTICS FOLLOW 

I TEE FIRST NUfcLTA ARE INITIAL CONTROLLER STATE 
VARIABLES. THERE ARl K A00ITICN4l PARAMETERS ) 

THIS IS THE USER INPUT ARRAY CNTDTA. 

THE AOOITICNAL K PARAMETERS, IF ANY, AH t 
AVAllAUL L TO THE USER FOR USER-PAK u A T A . 

THE FIRST NOtLTA ENTRIES IN THIS ARRAY 
C ARE THE INITIAL CONDITIONS FUR IhE 

C CONTROL VARIABLES. 

c 


Cl 6332 
016333 
016334 
01 6335 
Cl 6336 
Cl 6337 
01 6338 
016339 
016340 
016341 
01 6342 
01 6343 
016344 
01 6345 
016346 
01 6347 
01 6348 
C l 6349 
016350 
016351 
Cl 6352 
01 6353 
01 6354 
C 1 6355 
016356 
01 6357 
01 6358 
01 6359 
01 6360 
016361 
016362 
016363 
01 6364 
01 6365 
01 6366 
01 6367 
01 6368 
01 6369 
01 6370 
016371 
016372 
01 6373 
016374 
Cl 6375 
01 6376 
016377 
016376 
01 6379 
01 6380 
016381 
01 6382 
01 6383 
016384 
016385 
01 6386 
01 6387 
Cl 6388 
01 6389 
016390 
016391 
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016392 
016393 
016394 
01 639b 
01 6396 
01 6397 
01 6398 
01 6399 
01 6400 
01 6401 
Cl 6402 
Cl 6403 
01 6404 
Cl 6405 


C 016406 

C T He Y OLLCW 1 NG IS TYPICAL FCR Th£ UH uUDY Cl 6407 

t 016408 

c Summary oi- input o ata for body i w.uch is rigid. C16409 

C 016410 

C THL 6X6 INERTIA MAlklX lb 016411 

C 016412 

C (l) it) (3) (4) (51 (6) 016413 

C 016414 

C 1 1 IXa -lAY -iXZ 0 -SZ oY 016415 

C 2 l — l Y X IYY -IYZ SZ 0 -SX C16416 

c : 1 -1ZX -iZY IZZ - 5 Y SX 0 016417 

C A I 0 SZ — SY MOO 016418 

C t 1 - SZ 0 SX 0 M 0 Cl 64 19 

C 6 1 SY -SX 0 0 0 M 016420 

C 016421 

C 016422 

C BUOY 1 Tik P-G hlNCL NG . AND THh iJLiR ROTATION TYPE 016423 

C APPEAR IN THE f- UL _ U W l NG INTEGER ARRAY WHICH 1j h Jl.L OWED BY 016424 

C AN ARRAY CONTAINING tJLcR ANGLES (1*2.31* A N D POSITION 016425 

C VeC TCK C JMPONfciM S (‘♦.o.O) THAT POSITION THc HlN^E TRIAO 016426 

C Vi R f THL BODY IkiAD 016427 

C 016428 

C DATA HERE 016429 

C 016430 

C 016431 

c: If JODY I HAS ANY SeNsGK POINTS. 016432 

C Thl- f-GLLJUlNG WILL ut PRINTED 016433 

C 016434 

C 016435 

C FOR BUOY L THc. biKjCK Pu l N I NO. AND THE c JLlK UUTAT IGN TYPE 016436 

C. /Pt’lAk IN I HE r uLLU« INu INTEGER ARRAY WHICH ij r DLL OWED 016437 

C cY AN AkKAY CONTAIN! No fcOLt'R ANGLES (1.2.J). AND POSITION 01 6438 

C VECTOR LCMHUNtisl i> (4*S»c) TEAT POSITION THE seNSOR TRIAD 016439 

C vt<l li.L uCDV I«Uj 016440 

C C l 644 1 

C Cl 6442 

C DATA HERE Cl 6443 

c - 01 6444 

C. 016445 

C * « * * # 4 4 >4 44444444**** 016^46 

£*44444444 4«4*444** 4 *44*444* 4**4* 4 ^v***********?*** 4 4*4*44444444444*46* 016447 

c C t 64 4 8 

c Cl 64 49 

C 016450 

C 016451 
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c 

C * 

C* . SUBROUTINE MSMUDC - OUTPUT FOR. FLEXIBLE BoDY* 

C CUNSISTENT NASS MATRIX 

c * 

C******* #***********£****************$****#$***>(( **********$******** ♦* ** ♦ 

c 

c 

C TYPICAL OUTPUT FOR ITH BOOT 

C 

C 

C THIS SUBROUTINE PRINTS OUT SEVERAL MAHICES THAT ARE 

RELATED TO THc FORM OF THE GOVERNING ljUaTIDNS. 

THE READER WILL DE KEFLRREO TO VOL I AND THE INPUT 
DATA STREAM FOR FURTHER CL AR I F IC AT 1 DN. 

SUMMARY OF INPUT DATA FOR OODY I WHlCrl is 

flexible w/cunsistent mass vatrix. 


THE INPUT PARAMETERS IFRBM* IFDIAK, IF J I AD ARE 

SEE INPUT DATA FOP MSMUDL 


THE JDUF TABLE FLLLJWS 

J cG REE OF FREEDOM AS INPjT 
SEE INPUT DATA FOR M^MUDC 

— THt NODE SELECTION VECTOR FOLLOWS 

MODE SELECTION VECTOR AS INPUT 
SEE INPUT DATA FOR MSMUUC 

FUR BODY NO. I THE POSITION VECTOR FROM THE uUDY ORIGIN 
TO JOINT K IS 

X - Y = L - 

W Ht. RE K IS JOINT CU'J Ru I NATES 
USED TO DEVELOP RIGID UliJY MODES 

see input data for MjMudc 


c 


c 

C THt CONSISTENT, REPART I HONED MASS MAI R I X IS-- 

C 

C THIS IS THE REPART I TUNED MASS 

C MATRIX AND IS CCNSISfcNT WITH 


016452 
016453 
Cl 6454 
016455 
01 6456 
01 6457 
01 6458 
Cl 6459 
01 6460 
016461 
Oi 6462 
01 6463 
01 6464 
Cl 6465 
01 6466 
01 6467 
016468 
01 6469 
01 6470 
016471 
016472 
01 6473 
016474 
016475 
016476 
01 6477 
016478 
01 6479 
01 6480 
016481 
016482 
016483 
01 6484 
01 6405 
01 6486 
01 6467 
016488 
016409 
01 6490 
0I649I 
016492 
01 6493 
016494 
016495 
01 6496 
Cl 6497 
016498 
01 6499 
01 6500 
016501 
Cl 6502 
01 6503 
016504 
Cl 6505 
016506 
016507 
01 6508 
01 6509 
016510 
016511 
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lHt JU JP T ARI F 


1 he Ret’ A I* lilt oi'iL. U MO Gal v, A TR l X IS 

i Hi b IS I Ft R EG AR T l T i J?<LU .<luuAL 
■MATRIX* F h t: R 0 V. $ ARE LuNj L ,i 1 cNf 
A l I ii 1 lie. &CPAR T I riCk.J MA-JS ;m A I K I X 
ANO rnu LCtS Akc CGNSl jlwNf rtllM 
I he UrMrMS GF f H F -lUGc SclLC \ I ON 
V *_C TuR • 


H-E -ON i)t FORMED- INefcriA MATRIX (MU) IS 

HilS IS T Ft V.) MATRIX Nui Ll) AS 
•SO. I l-o 7 C F VOL l 


f \ i f'K tl r Hfe. N F ul L J'flS MATRICES 

A CLciPF i C IF NT S 

o CLU’ PlCtENTS 

CGKXY CCJ.FI l C IFNT S 

LQPX2 CCLFF 1C IGNTS 

C0»- Y 2 CUhPUC Ir.MTS 

H ILrt. Af^c THE. ALPHA* ii * ANO C C (JcFP L L I J N I s 
iVeN AS LO* 11-65 OF Y C L I 


JhCRfc THEN FllLu*6 Mh I k l CtS 

Lll i C22 . C33 , 

C 1 2 i Lis* C2 J 

WHICH Akc Ii>LNT IFIlU AS HC* 11-39 GF V*j_ I 


IFc VODAL STlFrNtsS IS -- 
DATA Ffckc 

c 

c 

L- l he MOO A L JAMF1NG MATRIX IS -- 

C 

c OAT A HERE 

C 

C 

C THCKt FOLLOWS TftU ARRAYS CONTAINING Tml 

C 

c INITIAL MCCAL DI SPL ALi.MJ.JTS AimJ 


C16512 
016513 
016514 
016515 
016516 
016517 
016516 
01 6519 
01 6520 
016521 
016522 
01 6523 
016524 
01 6525 
01 6526 
016527 
Cl 6528 
Cl 6529 
01 6530 
01 6531 
C l 6532 
01 6533 
016534 
Cl 6535 
Ot 6536 
01 6537 
01 6538 
01 6539 
01 6540 
016541 
01 6542 
01 6543 
016544 
01 6545 
Cl 6546 
01 6547 
01 6548 
01 6549 
01 6550 
016551 
016552 
016553 
016554 
Cl 6555 
016556 
016557 
016558 
016559 
016560 
016561 
016562 
01 6563 
01 6564 
01 6565 
Cl 6566 
01 6567 
016568 
01 6569 
016570 
016571 
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c 

c 

c 

c- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c - 

c 

c 

c 

c 

c 

c 

c 

c 

c 


-FCK 
A NO 
APP 
/ KK 
TP i 


INI UAL. 4CQAL VELOCITIES IVtLY. 


UUDY I THE P~U HlNvit NC*« TFE EULi R kJTaTIUN TYPE 
THE JOINT |«0. cu:^kt jPJNDING TO THE P-J HINGE 
EAR IN THE f LILUWtNG INTEGER ARRAY *Hi£H IS FOLLOWED BY AN 
AY CONTAINING EuLER ANGLES THAT POSillUN THt HINGE 
AO UR T I HE ,jUUY TRIAD 


U A 1 A HE R E 


IK 

7 HE 


cjOuY I HAs aNV IjlKSlh PCInTS* 
FOLLOWING a ILL bt PRINTED 


■FOR 
A NO 
AFP 
EY 
SEN 


ECO Y I THE SENSOR POINT NO., THE EJLER POTATION TYPE 
The joint NO. CORRESPONDING TO THE SEN Suk POINT 
EAR IN THE HULIOWING INTEGER ARRAY a H IE -i iS FOLLOWED 
AN ARRAY CONTAINING EULER ANGLES THAT POSITION THE 
SCR TRIAD WKT I HE oOOY TRIAD 


UAlA HERE 



c 4 ***** < 

INE MSMUOL - OUTPUT f-UP PLEXIELE « J J Y , uUMPtu MASS MATRIX 


C 

C 

c typical Output fcr the ith dudy 

c 

c 

c this sub routine prints cut several matpiccs Thai are 

C RELATED TO THE FORM OK THE GOVERNING LUG AT IONS. 

C 

C 

C The READER WILL tic. REFERRED TO VOL I AND Me INPUT 

C LATA STREAM FOR FURTHER CLARIF ICAT I CN. 

C 

C 

C C U I PUT MATRICES INERO. STATO, MASSO, JJCJir, AOCUEF • ECOEF 

C 

C ARl THE J. -s, M, D, A. £ , PakTITICNS 

C RESPECTIVELY CF THE matrix MJ UF EQ. I 1 — 87 

C uF VOL I 

c 

c 

C CUTPUT MATRIX MUO IS MATRIX MO OK Ui. I 1-87 OF VOL l 

C 


01 6572 
01 6373 
016574 
01 0575 
Cl 65/6 
0165/7 
016578 
016579 
016580 
Cl 65 8 l 
016582 
016583 
016584 
01 6585 
01 6586 
01 6587 
01 6588 
016589 
016590 
016591 
016592 
016593 
0 1 6 59 4 
016595 
01 6596 
016597 
016598 
016599 
016600 
016601 
016602 
Cl 6603 
016604 
016605 
016606 
016607 
01 6608 
0! 6609 
016610 
0 166 l l 
01 6612 
016613 
016614 
01 6615 
016616 
016617 
016618 
016619 
016620 
016621 
016622 
016623 
016624 
016625 
016626 
01 6627 
016628 
016629 
016630 
016631 
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CuTPLT MATHICc.5 ACOK. SCOF. CXY, CXZ, C YZ. 

ARE lhE ALPHA. 3, A NJ L 
CC6.FF lClEMS IN THE MATRIX 
GIVEN AS EC. II-88 UK VU-_ I 


Culpur MATRICES Cll* C 22. C33. 

C 12 • C 13. C 2 3 


ARc The CONSTITUENTS OK THE 
MATRIX i,I VhN AS EQ. I 1 -3V UK »/UL l 


CuTPLT .MATRIX aL 0 


CONTAINS THC INITIAL MODAL 
DEFLECT IONS. (AS lNPul) 


Cor Per MATRIX XECD 


contains the initial mgja. 

VELOCITIES. (AS INPol) 


PC* EOUY i THfc P-U hlNbL NO.. THE EULER KJTAUUN TYPE 
an o THE JOINT NO. C Lftke SPENDING TO THc P-J UI.Mjl 

APPEAR IN THE FULlU*ING INTEGER ARRAY A H l L H IS KULLGWEO OY AN 
fi RE m f CONI AIMING EuLCR ANGLES THAI P Os i 1 1 JN The HINGE 
TRIAL hMT THE EGuY TRIAD 

DATA He. RE 


IF *J LO Y l HAS ANY SlNSCK POINTS. 
The. FOLLOWING r. IcL uu PRINTED 


FLR ECDY I THE CENSOR POINT NO.# THE lJLc^ RUFAT i CN TYPE 

and THL JOINT NO. CUKkL SPOND l NG TO TIL jl.DUk PUINT 
^pAt AR IN THL POLLUTING INTEGER ARRAY a H 1 L H is FULL OWED 
tY AN ARRAY CO.. I MINING cJLEW ANGLES TnA'I ->uSII 1UN THE 
St'i'OlH TRIAD WRT The bGDY TRIAL' 

— JATa He P c. 


£ * V $ * $ * * * A O^tC*?#******-******^** 4* **♦♦*?¥*»*¥**** $ + $****$** 

c 


016632 
016633 
016634 
Cl 6635 
016636 
016637 
016638 
01 6639 
Cl 6640 
01664 1 
016642 
016643 
016644 
0 1 6645 
Cl 6646 
016647 
01 6648 
016649 
016650 
016651 
016652 
Cl 6653 
Cl 6654 
016655 
Cl 6656 
01 6657 
01 6658 
01 6659 
016660 
Cl 666 l 
01 666? 
01 6663 
016664 
016665 
01 6666 
01 6667 
01 6668 
016669 
C 1 66 7 0 
016671 
Cl 6672 
Cl 6673 
016674 
016675 
01 66 7 to 
01 6677 
01 6678 
01 6679 
01 6680 
01668 l 
Cl 6682 
016683 
Cl 660 4 
Cl 6685 
016686 
Cl 6687 
01 6688 
016689 
01 6690 
0 l 669 1 
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c 

c 

c 

c 

c if the user utilises pulynlmial input fur 

c control system transfer functions, the fg.lj«ung 

C MATRIX WILL BE PRINTED. 

C 

C 

c output matrix cply i kply ,2*nply ) 

c 

c WHERE KPLY = ROW DIMENSION SIZE OF LPuY IN 

C SUdRUuTINE CONTRL 

C 

c NPLY = NO. OF INPUT POLYNOMIAL RA1IUS 

c 

C AND FOR I - ODD INTEGER 

C 

c COL I = DENOMINATOR POLYNOMIAL COEFFICIENTS 

C IN ASCENDING ORDER 

C 

C COL 1+1 = NUMERATOR POLYNOMIAL LUcFFIlIENTS 

C IN ASCENDING ORDER 

C 
C 

c THE FOLLOWING INTEGER ARRAY ( I NDEP ) PRESlRIucs INDEPENDENT 

C VARIABLES (II aNu DEPENDENT VARIABLES ID) 

C 

c THE ELEMENTS OF THIS AkRAy IUcNIIFY 

C WHICH VARIABLES SURVIVE IN THE F I NDU 

C SEARCH TO DETERMINE AN INDEPENDENT 

C SET TO OE INTEGRATED. 

c 

C T He. SURVIVING VARlABwEs WILL ALSO 

C REPRESENT THE FIRST NX KUWS OF 

C I HE LINEARIZED MATRIX. A, USED 

C BY SUBROUTINE DYNSDD. 

c 

C NOTE - NX = NO. OF NDN-ZERU ENTRIES 

C IN ARRAY INDCP 

C 

C 

C 

C 

C 


‘*»*t»#»*w***W*»*V**#** 


C 

c 

c 

c 

c 


‘**#*$vv**$ *$**$**$*#$*$ 


C** * ** i 

c * 

C* SUERCUTINE UYNS20 OUTPUT 

C« 

c 

C 

c the priniuut is typical for a given simulation time. t. 


C 1 6692 
016693 
016694 
01 6b95 
016696 
016697 
C l 6698 
016699 
016700 
C 1 670 1 
C 1 6702 
01 6703 
C 1 6704 
016705 
Cl 6706 
016707 
016708 
016709 
016710 

01671 1 
016712 
016713 
CI67I4 
C 1 6 7 1 5 
016716 
016717 
016718 
016719 
Cl 6 72 0 

01672 I 
016722 
016723 
016724 
016725 
Cl 6726 
016727 
016728 
C16729 
016730 
01 6731 
016732 
016733 
016734 
016735 
016736 
016737 
01 6738 
016739 
016740 
C 1 674 I 
016742 
016743 
016744 
016745 
Cl 6746 
01 6747 
01 6748 
01 6749 
Cl 6750 
01 6751 
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C 

c THE T =0 f J H- i N r Lur l G A|. v, AYS 0 l VC N 

c (cVlN IOK A LINEARIZED ANALYSIS) 

c 

c 

C T Mt DATA Akc PkhScNruC IN VLXTOW KUiH anl) 

C uRuLkCO AS f- 0 L L •- a 5 

C 

C T ML ST AT t£ VlfCTU< Y = 

C 

C IhlE $ 1 A T t£ VLCTuk TIME JLklVATiVL Y jj T - 

C 

C C.cTaS (UULLk ANviUii PGSITICN <’004 J 1 N4 T € S J Akt 

C 

C TkL fccTA TIME LcR 1 V A T i VcS ^PE 

C 

C THE iJc.LT AS { CONTROL aYSlcM VARIABLES) Akc 

C 

C iMri UlLTA TIME DERIVATIVES AWE 


C 

C 

C 

C 

c 

c 

c 


IHfc FOLLOWING LNRJkMAVlCN IS TYPICAL FUk bUJY l. 
FJ.< 00 DY I THt VELOCITIES AWL 


C Wl>LK l S 

DM v* A 
OMj Y 

tiO D Y 

ANGULAR V.LJCITY 


UMGZ 

u 

V 

liQO Y 

translational velocity 


W 

x io ( I ) 
X 1U ( cl ) 

6L0 Y 

MODAL VEl. JC l T l f S 


X loiULi 




C 

C 

C 

C 

C 

c 

c 


C FOR BODY I THt CURPtSPUNU! NC MCMENTA aWu. 

C 

C OkDCW I S HA 

C HY DULY AXES REF . ANGULAR .MOMENTUM 

C H^. INCLS CCJNTW I t3UTI UN JF CONST. SPEED WHEEL 

C 


THcTAum 

• iXCMCNTUN WHtfCL ANGulAR VELOCITY 

. (RELATIVE T(J ScNSUR POINT Tft 1 AO ) 

. (ACTIVE W.-l ZtL) 


Cl 67S2 
01 6753 
C 1 6 7 54 
01 6 7 55 
01 6756 
Cl 6757 
01 6750 
01 0759 
Cl 676C 
016761 
01 0762 
01 6763 
016764 
016765 
016766 
01 6767 
Cl 6 768 
016769 
C 16 7 70 
01677 1 
016772 
Cl 6773 
01 6774 
016775 
016776 
Cl 6777 
016778 
Cl 6779 
016780 
01678 1 
C l 6 782 
01 6783 
016784 
016785 
01 6 7t>6 
01 6787 
01 6780 
01 6789 
01 6790 
016791 
016792 
01 6793 
C 1 6 79 4 
016795 
01 6796 
016797 
01 6798 
016799 
01 6800 
01 6801 
01 6802 
016803 
016804 
01 6805 
01 6806 
Cl 6807 
Cl 6808 
01 6809 
016810 
01681 l 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


LX 

LY LitiDY AXcS REF. LINEAR momentum 
L Z 

p x £ ( n 

P Xl(^) 

• BUOY AXES REF. MU UAL Mu M l NT U M 


P X 1 ( NL> 

M M toil) 

. tJLUY AXES REF. MJM to HttL MOMENTUM 
. < ACT I VE WHEEL ) 


FCR GOO Y I 1Tb CONTRIBUTION TO TOTAL ANuULAR 
A NO LINEAR MOMENTUM IS 

ORDER IS MX 

HY ANGULAR MOMENTUM 
HZ 

(REFEkENCED TC INERTIAL JRlGiN) 
L X 

LY LINEAR MOMENTUM 
LZ 


■ F OR BODY I ITS CONTRIBUTION TO TOTAL KINETIC AND 
POTENTIAL lNERGIES IS 


FOR fcUDY I THE ELASTIC DEFLECTIONS ARu. 


-FOR BuDY l TRANSFORM AT ION MATRIX TO JUDY l COORDINATES IS 


uSld TO TRANSFORM VECTOR AN J TENSOR S 
FKUNi uGOY i FIXED REFERENCc 
TC BODY 1 FIXED REFERENCE 


-FOR euDY I CM LJCAllON WRT OODY 1 KErcHiXtE POINT ANO 
COORD I NATES I S 


- F CR BODY I INERTIA TENSOR RELATIVE Tu ITS CENTER OF MASS 
WH T BODY 1 COORDINATES IS 


THE INTERCONNECT ION CONSTRAINT FORCES (LAMBDAS) ARE 


01 6812 
016813 
0168 I 4 
01 0815 
Cl 681 6 
01681 7 
01 681 8 
01 68 l 9 
Cl 6820 
01682 l 
016822 
01 6823 
016824 
01 6825 
01 6826 
01 6827 
01 6828 
Cl 6829 
01 6830 
C 1 683 1 
01 6832 
01 6833 
Cl 6834 
01 6835 
Cl 6836 
01 6837 
016838 
Cl 6839 
Cl 6840 
016841 
016842 
016843 
Cl 684 4 
016845 
01 6846 
Cl 6847 
016848 
016849 
01 6850 
C 1 6851 
01 6852 
01 6853 
Cl 6854 
01 6855 
01 6856 
01 6857 
01 6858 
016859 
016860 
C l 686 l 
01 6862 
Cl 6863 
Cl 6864 
016865 
01 6866 
01 6867 
01 6868 
01 6869 
016870 
016871 
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C THl SYSTEM CENTER CF MASS RELATIVE TO dUDY l McFtRENCt POINT 

C AND CUUkbl NATES IS 

c 

c 

C Ihc SYSTEM INERTIA TENSOR RELATIVE TO * Y ST EM CENTER OF MASS 

C IN buuY l COORDINATES IS 

C 

c 

C The. TOTAL ANGULAR MOMENTUM VECTOR IS 

C 

c x » y • z components in inertial Rlf. mais system, 

c 

c 

C TML TOTAL LINEAR MOMENTUM VECTOR IS 

C 

C X.Y.Z CCMPuNENTS IN INERTIAL Rer . AXlo SYSTEM. 

C 

c 

C THl TOTAL ANGULAR MLRlNTUM = 

C 1 HE TUTaL L l NcAft MOMENTUM — 

C — —————— — — 1 he TOTAL K I Nf: 1 I l ENERGY — 

C TEL TOTAL PUTlNTIAL cNhHGY = 

C THE TLTAL t'NcHuY ( T ♦ V) = 

C 

C 

C 


C * $ V * 4 $'!''*** 4 "S* * 4 * * * * *• 4 * $ 4 * * ♦ 4 V * * * ♦ * $ * < - - * * afc 4 ****<» 4 ****♦*<» %t * ♦ * * 4 * 4 ♦*£♦♦* * 


c 

c 

c 

c 

c 

C 


C **4 + 4 * 44 # 44 ***jM 




C* 

C* SULRCUTlNc D Y N S 3 0 OUTPUT 

C* 


C 444444444 ♦)(•■<« * < 


***** 44 * 44444444*4444 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUMMARY uF PLOTTING I NF- CUM AT! UN 


i he ootpjt summarizes the input jata 

WHICH CONTROLLED TFE TIME RESPONSE 
PLOT LOGIC. 

jLL INPUT u A I A FCH JYNSCC (-l.R 
l/l 1 A 1 LtO DcjCR 1PTICNS. 


NCTL— THl OUTPUT 
lb THE NO. 
Tv K l I IE N ON 


VAR IAOLE NR PLOT 
OF LOGICAL RECORDS 
IMF PLC!T TAPE. 


016872 
01 6873 
016874 
016875 
016876 
016877 
016878 
01 6879 
016880 
016881 
016882 
C 1 6883 
016884 
01 6885 
01 6886 
016887 
016888 
01 6889 
01 6890 
01 6891 
016892 
01 6893 
016894 
01 6895 
016896 
016897 
01 6896 
01 6899 
Cl 6900 
C 1 690 1 
016902 
01 6903 
016904 
016905 
01 6906 
01 6907 
016908 
016909 
C169 1C 
016911 
Cl 6912 
016913 
016914 
01 6915 
016916 

01 691 7 
Cl 691 8 
016919 
016920 

01692 t 
01 6922 
01 6923 
Cl 0924 
016925 
01 6926 
01 0927 
016928 
01 6929 
C 1 693C 
016931 
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C ***«* 1 

c 
c 
c 
c 
c 
c 


c* 
c* 
c* • 

C + * i 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE DYNS40 OUTPUT - LINEARIZEC SYSTEM ANALYSIS 


- C U I PUT MATRIX -A- (NJUiNX) 


N JQ = TOTAL NO. OF EClJAIlUNS 
LlNEARI ZED ( I NCL UO i N 6 
AUXILIARY EQUAF i uNi FROM 
SUBROUTINE EQAl>J) 

NX = NO CF I NQEPENOc 4 f >( Ale. cuUATlCNS 
U£TERMIN£D BY FINlU IN U Y N S2 0 . 


T H l 8 IS THE MATRIX OF PARTIAL DERIVATIVES 
WHICH ARE THE LlNEARl^D COMPONENTS UF THE 
STATE VARIABLES AS 0- IcK'U.^i) PY 
SUBROUTINE LINEAR. 


THt JRoER CF TEE VARi 4 3*_E S FOR THE 
HUWS IS 

SIZE 

PLANT VARIABLES NY 

Control variables nj=lta 

CL l\T ROLLER OUTPUTS NiiTU 
SENSOR SIGNAi.S NASS 

THE CLL'JMN ORDER IS 

HLAi-jT VARIABLES NY 

CLNIRCL VARIABLE;, iOtLlA 


•Cur PUT MATRIX - T - (NX, NX) 


01 6933 
016934 
01 6935 
01 6936 
01 6937 
01 6938 
01 6939 
Cl 6940 
01 694 l 
016942 
01 6943 
016944 
016945 
Cl 6946 
016947 
CL 6948 
01 6949 
01 6950 
Cl 6951 
01 6952 
01 6953 
Cl 6954 
01 6955 
Cl 6956 
01 6957 
01 6958 
01 6959 
C 1 6960 
C 1 696 1 
01 6962 
01 6963 
Cl 6964 
Cl 6965 
016966 
016967 
016968 
0169O9 
01 6970 
010971 
01 6972 
Cl 6973 
0 i 6974 
01 6975 
01 0976 
01 6977 
Gl 6978 
Cl 69 7 9 
01 6900 
C i 698 1 
01 6902 
Cl 6903 
01 6984 
Cl 6986 
0 1 6986 
Cl 69 07 
Cl o9BB 
01 6989 
Cl 6990 
C 1 699 l 
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c 

C i ni b L s the. i.y iLAKf rr 

C r » ; A N.jl U<M A i I C N .M AIM a 

C THAI 1 i, rP.COUOfcS rut Hul j *- .NiAjj ) 

C AuX l L l Y V Ak I AHLC. S l Ml O f he 

C | UANSM-KMEC STATE I ILiNS • 

C 

C HLF* MaIkIX ft IN t0« lll-<i4 l»K Vl;L l 

L 

C 

c Cjtflt matrix y* (l.nx> 


T » i I I j 1 Mt l^A\'SFf;k M r_;> _> T A T ~ 

VlCIL« INITIAL CCNJlTIwNa. 

Rf;F • VLiCTUP L IN £0. 11 l -«>♦ Or VUL 1 


c u r p l T matrix a* <nx,nx> 

Ihlb IS 1 r 1 1 _ TR AN'SFGkMEJ , lINlAKUuO 
S f A 1 c_ V A P l A t? L t CLrFF I Cl ci\I MATRIX 
I MAT IS T HP LAS IS FOR Tnt uM ikt 
UNcAMZAllCN PACKAGE. 

*LF. tu. 111-23 UF VOL 1 

T Fit. KLW/CUL VAP I Af:Lt CrxJcHl No ANj 


S I /’ u i> ARE: 

VAklAuLt IU» ^ i 

PLANT VARlAULcS NY2 

PLANT GlNSCP SIGNALS naSS 

C ON T kOL SYSTFM VAHlAdLcS NDZ 

Control dltputs (O'S) not a 


NCJTL- NY 2 = NY — NX SS 

huZ ■= NUtLTA - NQ T 0 


.PT a hi r a * 

REAL PART IMAGINARY PART kEA. PA-<T IMAGINARY PART 


C CCMPLcX WDCTS GOT A 1 Me O FRl.M 

C A A NO A ♦ RESPECT iVtLY. 

C 

C 


CJ o992 
Cl 6993 
C 1 6004 
Cl 6995 
01 6996 
01 699/ 
Cl 6998 
01 6999 
Cl 7000 
C l 7001 
01 7002 
Cl 7003 
Cl 7004 
01 7005 
Cl 70 06 
Cl /OC 7 
0 1 7000 
Cl 7009 
Cl 70 10 
C 1 70 l l 
Cl 7012 
017013 
017014 
Cl 7015 
Cl 70 16 
C 1 7 0 l 7 
Cl 70 l 8 
017019 
01 7020 
Cl 702 l 
01 7022 
01 7023 
Cl 7024 
01 7025 
Cl 7026 
01 7027 
Cl 702b 
Cl 7029 
017030 
017031 
01 7032 
01 7033 
01 7034 
01 7035 
01 7036 
01 7037 
Cl 7038 
Cl 7039 
01 7040 
01 704 l 
01 7042 
Cl 7J43 
017044 
01 7045 
01 7046 
01 7047 
01 7046 
01 7049 
01 7050 
017051 
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C TriLsE APE TPE POLLS Ur 

C Int. CLOSED LOOP SyjTliM. 

C 

C 

C ** ♦ * * *!****£'£«£<■.*<•. £ * £ t <£: $ v 4 * ¥ * * ♦ * * W $ 4 $ + * * $ * * # ***¥*<|C**¥4i<i$ 


THL HOLLUteiNu UCT PUIS ARE CHARACTcRlSF 1C UP 
A JlflULt VKANSJ- tK FUNCTION FREQUENCY RESPONSE. 


OUTPUT MATRIX — AR — 

IMIS IS THE REDUCED A* MATRIX 
FUR A PARTICULAR USER SPECIFIED 

r r ansp lr function typ-. 

Nl.F . INPUT DATA LIST A NO 
StCTIUN III. 0-2. IN YULJMt [. 

llic. ROLFS CP AR APE THE 
TRANSFER FUNCTION PO_*iG. 


CuTPUT MATRIX uC O L 

THIS IS THE VECTOR (LUL) »lTri WHICH 
AK is AUGMfcNTplD TO Ou.Tu.k'li Nc THE 
TRANSFER FUNCTION ZEROS. 


K Ak 


RAR r 


REAL PART IMAGINARY PART REAL PAkT IMAGINARY PART 


Inc Sc ARE THE COMPLEX RUUT ARRAYS 
As EXTRACTED FROM MATRICES 

ar and ar transpose respect ivlcy. 

The USER SELECTS VIA INPUT *HICH 
aET OF ROOTS TC USE FOR THE PuLES. 


NUM D-N 

RC AL PART IMAGINARY PART REAL PART IMAGINARY PART 


C 

C NUMERATOR WOUlS DENOMINATOR ROOTS 

C 

C l TRANSPeft FUNCIIUN ZEROS) (TRANSPUT FUNCTION POLES) 

C 


Cl 7052 
01 7053 
01 7054 
01 7055 
01 7056 
01 7057 
01 7058 
01 7059 
Cl 7060 
01 706 L 
Cl 7062 
Cl 7063 
Cl 7064 
01 7065 
Cl 7066 
01 7067 
01 70 68 
Cl 7069 
01 7070 
Cl 707 i 
Cl 7072 
01 70 73 
01 7074 
01 70 75 
01 7076 
Cl 7077 
01 7078 
01 7079 
01 7080 
Ci 7081 
01 7082 
01 7063 
01 7064 
01 7065 
01 7086 
01 7067 
01 7068 
01 7089 
Cl 70 9 0 
Cl 7091 
01 7092 
01 7093 
Cl 7094 
01 7096 
01 7096 
0( 7097 
01 7096 
Cl 7099 
017100 
017101 
017102 
017103 
01710* 
Cl 7105 
017106 
017107 
Cl 7108 
Cl 7 1 09 
017110 
017111 
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■CUlPl/I MATRIX ROOTRE 


T Ht RLAL PARTS OF THE LuMP-cX EIGENVALUES 
FOR WHICFI EIGENVECTORS wlL_ oE COMPUTED 


-OUTPUT MATRIX FUUTIt 


THE 1 MAO INARY PARTS OF THE COMPLEX EIGENVALUES 
FOR WHICH EIGENVECTORS w i l. dc COMPUTED 

. T HL EIGENVALUES For WHICH T FE ASSOCIATED 
cIoENVECIcRS ARE TO HE COMPUTED CUUKSbPGNJ 

ru the- Complex roots cf the charaoTcr isric 

MATRIX CUuTPUT MATRIX - AR - > 


-E lotNVALUE = 

-tloENVLCTOK CF NORMAL MATRIX 

T HL SUORoOTKJt OSLO TO COMPUTE EIGENVECTORS 
acclpts a SINGLE complex eigenvalue I _ AMdOA t • 

THE CHAPAClLKlillC MATRIX AR AND Trit MAIkIX AR*AR. 
IF LAMfTUA is A MOL I I FLE ROOT T riE ERROR MESSAGE 
1 * AM NINGAf A EEROS ON DIAGONAL OF FacI JKcO MaTRIX. 

CHECK FOR MULTIPLE EIGENVALUES* 

IS PRlNTcO; OTHERWISE 

THE NA ELEMENTS OF THE EIGENVECTOR XR uF THE NORMAL 
MATRIX ARE Found; THAT IS 
Akv-XR = LrtMciuAFXR 


Col PL I MATRIX KROO' 


IrANGFcR F UNC 1 1 CiN I.UOT ARRAY CONTAINING KuUT 
COUNTS. T i Me CONSTANTS. DAMPING. ANO FRcOUcNCY 
(• L'R 2 CRUS A. To POLLS. 


01 71 12 
01 71 13 
017114 
01 71 15 
01 71 16 
017117 
01 71 Id 
01 71 19 
017120 
017121 
017122 
017123 
017124 
017125 
CV 7126 
01 7127 
01 7 1 28 
017129 
01 7 1 30 
017131 
01 7132 
017133 
017134 
01 7135 
01 7136 
Cl 7137 
01713b 
017139 
017140 
017141 
Cl 7 I 42 
Cl 7143 
01 7144 
01 7145 
01 7146 
Cl 7147 
01 7 148 
01 7 1 49 
Cl 7150 
Cl 71 51 
017152 
Cl 7153 
01 7 l 54 
Cl 7155 
Cl 7156 
017157 
01 7158 
017159 
01 7160 
017161 
Cl 7162 
017163 


LLL 

1 

- NO . 

ut- 

NUMER ATCR 

heal. Kjurs. 

NNR 

01 

7 164 








01 

7 105 

CLfc 


— NO • 

ct 7 

.numeh a t ui 

CC'^LEX 

NNC 

01 

7 1 06 








01 

71 67 

cILt: 


= NO « 

Uf 

NUVtPATCft 

J* b . 

NN2 

Cl 

7160 








01 

7169 

ELK 

<♦ 

= N U • 

L.r 

OfcNGM I NAT U 

!H .-<U AL k Uul 5 f 

NDF< 

01 

71 70 








01 

717 1 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ELE 5 = NU. OF DENOMINATOR COMPLEX PAIRS. NDC 
ELE b = NO. OF DENOMINATOR FREE S'S. NDZ 

ELE 7 = UCJOE GAIN. KB. 

THE ROUTS FOLLOW IN THE ORDER 

ELEMeNT LOCATION DESCRIPTOR 

O THRU NNRF7 NUMERATOR TIMc CONSTANTS 

NNR+8 THRU 2*NNC * 7 NUMERATOR DAMPING AND FREQUENCIES 

ZETAl. OMeGAl. ZCTA2. OMEGA 2 

FREE S*S ARE NOT INCLUDED 

REMAINING ELEMENTS ARE OEMCNINATOR ROOTS IN SAME 
ORDER AS NUMERATOR ROOTS. IE.. 

TAU( 1 ) . . . , T AU< NOR ) . ZET A I i ) , CMEGAI 1) , . . , Z E I A ( NO C ) .OMEGA (NOC ) 


THE TRANSFER FUNCTION FREQUENCY RESPONSE FOLLOWS 



FReG/RAO/SEC FREQ/HERTZ REAL I MAG AM^> dECIOELS 


the damped Resonances (based on a 
pole or Zero) are identified 

gY ***** IN oOTH THE LEFT AND RIvjHT MARGINS. 


THE KOLLO* I NG OO TPU I S ARE TYPICAL OF A ROOI 
LOCUS INVLST I GAT ION. 


CulPLT MATRICES POE.N 
Pnom 

THE DENOMINATOR AND NUMERATOR 

transfer function pceynjrinal 

COEFFICIENTS ASCeNDInG POwERS OF 


RAD 


DEG 


01 71 72 
01 7173 
01 7174 
01 7175 
01 7176 
01 71 77 
01 7170 
01 7179 
01 7100 
C17181 
01 7182 
01 7183 
017184 
01 7185 
017186 
01 7187 
01 7188 
Cl 7189 
01 7190 
C 1 7 I 9 1 
Cl 7192 
01 7 193 
01 7194 
01 7195 
017196 
01 7197 
01 7198 
01 7199 
01 7200 
017201 
01 7202 
01 7203 
01 7204 
017205 
01 7206 
Cl 7207 
01 7208 
Cl 7209 
017210 
017211 
017212 
01 7213 
01 7214 
0 1 72 1 5 
017216 
017217 
01 7218 
Cl 7219 
01 7220 
017221 
01 7222 
017223 
Cl 7224 
Cl 7225 
017226 
Cl 7227 
Cl 7228 
01 7229 
01 7230 
017231 
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C PIS) = MMcfeAluri 01 72 32 

C ANu 01/233 

C 0(5) = OtM^MNATUlt 01723a 

C 01 7235 

C nin^HJCC^czV 01723C 

C POi. YT.r.Ml «\AL COLfTKiUMS AS USE.) _i r -<LJLJi. CL 7237 

C 01 7236 

C 0172 39 

C sTAKfl.NO POINT = WM.H lOf-NTIFlhO SfAuTiMi PGl.xT Cl 72.40 

c hon rue loci. oi/24i 

C 017242 

C 3 CAN L l P l ! 5 = LIMITS ON WtAL AN J NAOINAkY 01 7243 

C COMPONENTS FOR T.ic lJC 1 . 01 7244 

C Cl 7245 

C Cl 7246 

C GAIN kOU T 5 OkWuk 017247 

C 01 7246 

C Cl 7249 

C RDUT LOCUS OUTPUT Cl 7250 

C 017251 

C 017252 

C 017253 

£ t * £ 4 t I, <c * <c C17254 

C * * H * *$***£ <***<•• ?4**4*4*<‘4*4>*4*4:£*’*4*v4** **$$***$******* 01 7255 

FCTUfrN 01 7256 

cNC Cl 7257 


£U«.iCcT|\t L) EF 5 Cl 7258 

C DE BUG # 1 16 01 7259 

C 01 7260 

C 017261 

C 017262 

C OLr lNirlOfiS.CF SYMJOLU 01 7263 

C USED IN DISCOS 017264 

C 01 7265 

C 01 7266 

C 01 7267 

C MAXIMUM S I -MU LAC ION MUJiiL SIZE PARAMETERS 01 7266 

C 017269 

C 017270 

C T F E S E P Ak AMc f Lkb Akt IN1EGCRF4 CONSTANTS FOR ANY p AR T I COL. A R C1 7271 

C CCMi'tlcO VERSION Lr ulsCOS. THEY YAY B_ ALTlRlD ONLY VIA USE 017272 

O Of Tl-,2 RE J i MENS i ON PROGRAM Cl 72.73 

C 017274 

C THE FULLCaING All E Ulil INUu IN MAIN. STUPED IN /MAXMuM/ AND PRINTED 01 7275 

C ALOMi WITH 1 He CCriU Of THE INPUT CATA 017276 

C ... Cl 72 77 

c AO, VAX i VAX MUM NUMl3c.il Cf- bOJIES (RIGID F feeXlJLEl 017276 

C AM.VA > = MAXIMUM NvMUEh UF HlMic POINTS IN Si IDEATION Cl 7279 

C NSPMAX = MAXIMUM NuMutfi Ur SENSOR POINTS IN SIMULATION 01 7260 

C AMuMAx = MAXIMUM NUMBER L'F MOMENTUM WHEELS IN SIMULATION 017281 

C N M V. 6 C J = MAXIMUM NUMBER OF MOMENTUM WHEELS IN ANY BODY 017282 

C AMCBCu = MAXIMUM NUMolFa LF FlExIOLE BODY MODES AlloAcD PER BCOY 017283 

C XMU - MAXIMUM NUMBER OF VELOCITY COORDINATES PER BODY 017284 

C K.MU = 6 ♦ NMD6CD F AMwLOO 01 7285 
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C 

C 

c 

c 

c 

c 

c 


XY = MAX I NS UN NuMU£h OF PLANT + CONTROL S Y 3 I •- A STATE VARIAELES 

ALLOWED FuK NUN'LINEAR TIME RESPONSE ANALYSIS 
KU = , MAXIMUM NUMBER CE VELOCITY CUORDI NATE .» IN SIMULATION 

K.U = NL>MAX*(u ^ NMC60D) + NMwMAX 

THE FGLLClviNG ARE uTUREO IN OTHER COMMON oLUCCS OUT ARE NOT ECHOED 
MITE 1 h t INPUT DATA 


KSUMKY = MAXOI NHMAX, NSPMAX) STORED IN /5UMMRYV 

NR = MAXIMUM NuMUCK CF INDEPENDENT LINEARIZED tUjAl IONS ViEICH 

MAY HE SUtiULC TED TO f StOUONCY DOMAIN ANALYSIS. STORED 
IN /LJSIit/ 


KR T 

= 2*KR ♦ 7 

I b T Or Eu 

IN 

/LDS I ZE/ ) 

KR X 

= 2*KR1 

( STOrEu 

I N 

/LL>b IZE/ ) 

KV 1 

= 2*K«r 

I ST CreO 

i N 

/l osize/.) 

K V2 

- kk r 

(ST OReD 

IN 

/LOii i ze/ > 

K V X 

= KR 

( 5 T OR ED 

4 N 

/LDS I Z£/ > 


THE FOLLLwlNG ARE NUT SILKED IN DISCOS BUI ARE Der INeD IN THE 
R £ D l MEN SI ON PROGRAM and USED THCRIN TO Set DISlOS DIMENSIONS 


ICASMX 

maxcnt 

JM AXC 

JM AX L 

NLTANX 

MXET AD 

MLTJMX 

MACMAX 

MAXZP 

MX JVFl 

NAXDLM 

LI 

L5 


MAXIMUM NuMuEK LF EQUATIONS WHICH MAY Ot NUMERICALLY 
L I NEAR I ZED 

maximum number of constants which may be inputted by 

THE USER In JYNSIO 

MAXCNT = K CON T (IN DYNS10) 

MAXIMUM NuMbLR CF JCIMS (GRID POINTS) UN ANY FEEXIOLE 
BODY TO £t DESCRIDEO BY CCNSISTANT MASS MATRIX DATA 
KJOuF - JMAXC (IN MSMOOC) 

MAXIMUM NdMBl'R LF JOINTS (GRID PulNTS) UN ANY FLEXIBLE 
3UDY TO tit oESCRlbOO BY LUMPED PARAMETER DAI A 
KJQINT = JM«XL (IN MSMODL) 

MAXIMUM ALLOWABLE ROW DIMENSION FOR 3 MATRIX IN MULTA 
ML T A MX ( SHOULD BE) - M AX 0 I 6* J M AX C . I G ASM X ) 

MAXIMUM MATRIX DIMENSION IN OTABA 
MXHTA6 (SHOULD HO) = 6 * J M A XL 
MAXIMUM MATRIX DIMENSION IN MULT3 
MAXIMUM MATRIX DIMENSION IN MULTAJ 
ROW DIMENSION ECR TIME HISTORY Pl J I DATA ARRAY 
MAXZP = KRPLUT ( IN DYNS30) 

SIZE OF TIME HISTORY PLOT VARIABLE steECTIUN VECTOR 
MXJVPL = NCPLGT (IN DYNS30), JUN*T CHANGE 
SIZE OF DUMMY VECTOR DCM IN DYNSJO 

USED IN ReDIMlNSION (PROGRAM TO Si T PARAMETER KR IN 
DYNShO* DEFINED adGVE 

MAXIMUM SIZE CF FREQUENCY RESPONSE DATA VeCTORS 
IN /PSTUFF/ 

Lb - KOSAVE (IN SFE'OZ ) 


EASIC SIMULATION MODEL CREATED ev THE USER 


C PLANT size: (THESE PARAMETERS ARE INPUTTED VIA DYNSIO, 

C ECHOED IN THE STANCARD PRINIUUT, STORED 

C IN /SPECIF/ ANC ARE INTEGER** CONSTANTS) 

C 

C NO = TOTAL NUMBER OF RIGID AND FLEXIBLE DJJieS 

C (Nii MUST UE .GE.z) 
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01 72 86 
01 7267 
01 7280 
01 7269 
01 7290 
0) 72 9i 
01 7292 
017293 
Cl 7294 
0) 7295 
01 7296 
Cl 7297 
01 7296 
01 7299 
Cl 7300 
017301 
Cl 7302 
0) 7303 
017304 
01 7305 
01 7306 
Cl 7307 
Cl 7306 
01 7309 
01 7310 
017311 
017312 
Cl 7313 
017314 
017315 
01 7316 
Cl 731 7 
017318 
Cl 7319 
01 7320 
017321 
01 7322 
01 7323 
01 7324 
01 7325 
017326 
01 7327 
01 7326 
017329 
017330 
017331 
01 7332 
Cl 7333 
Cl 7334 
01 7335 
01 7336 
01 7337 
01 7338 
01 7339 
Cl 7340 
017341 
01 7342 
Cl 7343 
01 7344 
01 7345 
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l 

c 

c. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


f>H = TUTAL NUMLER Of- hlNGcS. HINGE l A.ifcfS t AlC.CN TO 6E 

Our WEEN ULLir 1 AND THE INERTIAL RLHtRiNud 
f-SPT = TUTAL NUHotK OF SENSOR POINTS. AuL MOMENTUM WHEELS ARE 
LOCATED A 1 Sc NS UR POINTS. ALL POINTS AT »HICH KINEMATIC 
DATA MUST BE OUT a 1 NED ARE SENSOR POINT a I HINGE POINTS 
NUT INCLULitO) INSPT MUST EE . GE. 1 I 
rOFMC = TUTAL NUMBER UF CLNSTANT AND variable SPEcl) wheels 

CCNTHUL SYSTEM SIZE (THE USER MAY Re OU I RE THAT SEVERAL 

DIFFERENTIAL EjUAT 1 GNi> Sc INTEGRATED 

TO OEFINE EFFECTS ACTING ON THE SYSTEM) 

nOELTA = TOTAL NUMlER OF USER DEFINEO FIRST ORDER DIFFERENTIAL 
EODATIONS CUJLD IN SDEROUTINE CONTRL. AN INTEGER** 
CONSTANT STLRED In /SPECIF/ INPUITuD VIA DYNSIO 

FLINT DESCRIPTION : I OUT A I NED VIA INPUT DATA CAULS FRCM 

u Y Ns TO. ECHOED IN STAnDARO PRINTOUT AND 

STORED IN EITHER /.» 3 fClF/ OR /NHNS/ 

I T OP C L = PLANT TCPGLOGY. AN INTEGER** ARRaY DIMcNSIONED (2.NHMAX) 
USED ALSU TU DePINE POSITIVE DIRcdlJN OF RELATIVE MOTION 

xT HlNGt POINT J, 

UGDY NUMBER N= l T CPU L ( 1 . J ) , WHLrl CONTAINS THE Q — FRAME* 
IS CONTIGUOUS TO 

Li CD Y NUMBER M= I T LPO L ( 2 . J ) . WHICH CONTAINS THE P-FRAME, 

by definition: 

HINGE FCINT 1 IS BODY 1 REFERENCE POINT 
FOR J=l. N = I AND M = OI ALSU, 

THE MOTION CF THE u-FRAMd wIlL BE MEASURED 
RELATIVE TO THE P-FRAME a T EVERY HINGE 
POINT IN THE SIMULATION 

iRGFLX ~ liCiuY TYPE. AN INTEGER** ARRAY DIMcNSiuNcU (NbMAX) 

irgflxin) = o implies that bout n is a rigid body 
irgflain) = m implies that body n o a Flexible body 
AND THAT m modes uF w 1 OK A I i ON ARE TC BE 
USED TO CCMPUTE its flexural deformation 
imo = momentum wheels, integer** array jimensiunco o.nmwmaxi 
FCR MUMeNTUM WHEEL NUMBER 0, J=4*E.....NCFM0 
IMUIl.Jl = SLNSLR POINT NUMBER AuSOLiAl't WITH WHEEL J 
IMOI2.U) = THE axis number (1.2 DR p» OF THE SENSCR 

PL1NT REFERENCE FRaMc «HILH IS ALIGNED WITH 
jPlN AXIS CF THE WHEEL J 

IMCH3.J) = 1 Ir WHEEL J IS ACT I Vu UR VARIABLE SPEED 

J IF WHEEL J IS CONSTANT SPEED 

NMOW = MUMENTUM wHUcL/bUDV X ACLe , CCMPUIcD INTEGER** ARRAY 

D I HENS I O NED (EFNHxBCD.NUMAX). F UR B UD Y N . N=1.2....t NO 

NMC'aI l ,N> - NUMBER OF MB ME N 1 UM »1ci u JN BODY N 

NMOv;l2»N> - NUMBER OF VARIABLE uPcuU uriccLS ON BODY N 
NMLW < 3 ,N» - LOWEST MAGMTUOE v.'HEcL NuMOCR UN BODY N 

• = NeXT TC LCWEST wHEEu NUMBER wN BODY N 

. = E I C. 

NMUWIL.NI - FtiGHtST MAGNITUDE WHcLE NJMUcR ON BODY N 
iihuiTt L-2TNMCWI I ,N) 

I F T S M A S SLilbUR PU1NT/OUUY TABLE. INPUTTED lNleGeR** ARRAY 
UlM.LNSlUNeD (NsPMAX) 

IFISMW(J) = eUDY NU'-ieER CF THE BuUY LN wlilCH 

UL NuLR 2 l 1 i\'T J 13 LGuATcu J— 1.2.....NSPT 
MiPU I = HINCL/UUDY I ABLE. CUMPUTLU INTEGuR** aRrAY 


01 7346 
01 73*7 
01 73*8 
01 73*9 
01 7350 
01 7351 
01 7352 
01 7353 
01 735* 
01 7355 
01 7356 
017357 
01 7358 
01 7359 
017360 
017361 
Cl 7362 
Cl 7363 
01 736* 
017365 
01 7366 
01 7367 
01 7368 
01 7369 
Cl 7370 
01 7371 
01 7372 
01 7373 
01737* 
01 7375 
01 7376 
01 7377 
017378 
01 7379 
017380 
017381 
Cl 7382 
Cl 7363 
01 738* 
017385 
01 7366 
017367 
Cl 7386 
01 7389 
01 7390 
01 7391 
01 7392 
01 7393 
C 1739* 
01 7395 
017396 
01 7397 
01 7396 
01 7399 
01 7*00 
017*01 
Cl 7*02 
017*03 
Cl 7*0* 
Cl 7*05 
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c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DIM LNS1C NL D (NBMAA) 

NHPOKN) = NUMBER OP HINGE POINTS JN dUuy NtN-li««.tNQ 
NSPO I = btN SUR/OGuY TAtiLL. COMPUTED lNTEJck*'4 AkkAY 
DIMENSIONED INuMAX) 

NSPCl(N) = NUMBER UF SENSOR POINTS UN riUUY N.N=1...**N0 
IHCA1A = H 1 NGE POINT CONSTRAINT AND EULER ANGuL 1 YPti INPUTTED 
l NT EGER * 4 ARRAY DIMENSIONED (7.NHMAX1 
POR HINGE POINT J. J = 1 • 2 • • • • • NH 
IHDATA(l.J) = ilYPE ( CODE NUMBER ASjIGNcJ TO THE DESIRED 
EULER ANGLE ROTATluN S-QucnCE TC BE USED 
70 OK I ENT G-PRAME «kf P— P rtAMc ) * THAT IS 


1HDAT A ( 2 » J ) 
i MUAT A ( 3 . J ) 
i HC AT A ( h « J ) 

1HUAT A ('5* J ) 

I HO A T A (u . J ) 

IHJATA { 7, J ) 
CONSTRAIN! CODE = 0 
CONSTRAINT CODE = 1 


I T Y PE = 1 - C 1 . 2 . 3 ) 
n YPc =2-(1.2*l) 
ITYPE =3— < 1.3.1) 
ITYPE = 4-1 l ,3,2) 
l TYPE = 5-( 2.3, 1 ) 
ITYPt = G-( 2.3.2) 

CUuL TO DEFINE TH-1A 


CUDt 7 0 DEr I NE 
CODE TC DEFINE 
Code TO DEFINE 
CODE TO DEFINE 
CODE TO OEF INE 


CONSTRAINT CODE = 2 - 


ITYPE - 7- ( 2 * l * 2 ) 

ITYPE -= 8-< 2. I .3 ) 

I f YPc = 9-<3. i .2 ) 

I * YPE = 1 0- ( 3# l .3 ) 
l T YPE = 1 l-< 3.2. 3 > 
ITYPE = 12— (3*2*1 ) 

1 ROTATION CCNSTRAINT 
T HE I A 2 R U T A r 1 0 N CCNSTRAINT 
THETA 3 ROTATION CCNSTRAINT 
X IRANSLAllUN CONSTRAINT 
Y T i<AiN) lA T I ON CONSTRAINT 
Z TRANSLATION constraint 
NO CONSTRAINT 

FIXED CONSTRAINT* NO RELATIVE 
MOTION ALLJwcJ IN THIS DIRECTION 
RHP'CNC M l C CONSTRAINT. RELATIVE 
MOTION IN THls DIRECTION TO BE 
UStR DEFINED VIA SUBROUTINES 
ADT AND Add T 


LINEAR UR NON-LINEAR ANALYSIS 


IF'LNtK - INPUT PARAMlTeR IPDATM3) WHICH IS READ IN* IN OYNS l 0 
AND GTOReD IN /ILINcR/ 

I P L NCR = u ir THE uSc_R DESIRES THc CJjPLcD NCN-LINEAR 
EJDAT1CNS OF MOTION TO uE 1 NTtGKA TcL) WITH 
KeSULTANT TIME RESPONSE OUTPUT 
IT L NE R = I IP THE USER DESIRES Th£ lUJPlcu NON-LINEAR 
EGUATIUNS UF MOTION T u BE NUMERICALLY 
LINEARIZED AND EITHER THE LINEAR TIME UR 
P'REuUENCY RESPONSE. ANALYSIS PeRPOKMED 


stability analysis: (iransfer functions may be obtained 

WHICH DEFINE THE PRcJJENCY RESPONSE 

characteristics of any user defined 

Uu I Pt I MORGUE SIGNAL* Tu ANY USER 
Dt- F I NED INPUT *SENSJ< SIGNAL*) 


NX S S 


NB TQ 


NAUX 


TOIAL NUMUcK UP UoLR DEFINED SENSUR j 1 GNALS * THESE APE 
ASSUMED TO BE FUNCTIONS OF THE Pu A N I sTAIl VARIABLES AND 
ARL f iUMER i L ALL Y LINEARIZED WITH RE^PcCT Tu THEM. THIS 
PAkAM&TcK is ujtk UtF INtU IN C0N1RL AND STUkED 
1 N /l. DS 1 Zt / 

TOTAL NUMciER CP USER DEFINED TOR’JJE S I uNALS* I h£ SE APE 
ASSUMED 1C L>E HDNC110NS Or THE CuNTkJL SYOTeM STATE 
VARIABLES AND ARE NUMERICALLY LlNcARlZcD WITH RESPECT TO 
VrlL M • This PARAMETER IS USER u#EP'iNcD 1 i\* CUnTRL AND STORED 
IN /LDS I ZE/ 

total number op auxilary equations. ?zif i^tio in eqadd 


Cl 7 406 
01 7407 
Cl 7408 
Cl 7409 
017410 
Cl 741 i 
01 7412 
01 7413 
Cl 7414 
017415 
01 7416 
017417 
Cl 7418 
017419 
017420 
017421 
Cl 7422 
017423 
01 7424 
Cl 7425 
01 7426 
01 7427 
01 7428 
01 7429 
01 7430 
017431 
01 7432 
Cl 7433 
C 1 7434 
Cl 7435 
Cl 7 43 6 
017437 
01 7438 
01 7439 
01 7440 

01 744 l 
01 7442 
017443 
01 7444 
Cl 7445 
Cl 7446 

02 744 7 
01 7448 
Cl 7449 
Cl 7450 
C 1 7451 
01 7452 
Cl 7453 
01 7454 
01 7455 
Cl 7456 
Cl 7457 
01 7458 
Cl 7459 
01 7460 
Cl 7461 
01 7462 
Cl 7463 
Ci 7464 
01 7465 
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ANi) 5 TuRLU IN DUNAUX/ 

Is AO X = NASS ¥ MIT 0 

M)L r A = DO l NED Lv-OAl IO NULLTA IN CCMPl, SlOkED IN /LOSIZE/ 


Cl acts CLMT-’O TAT Ion CC.NThLl PARAMETERS 


STATE VECTOR, al<!c A No ARRANGEMENT OF alAfc VARIABLES 


C 

C 

c 

c 

c 


THE FOLLOWING FARAMUuRi ARC INTEG£R*4 COnsTAnIS. CUMPUTEO 

IN U7NS10 AND slcrttiJ IN /SPECIF/, THEv Akt uStD To DEFINE THt 
NUVCLH OF AN 0 LULA T1 UN Or VARIOUS COMPONENTS JF THE TOTAL 
SYSTEM STATE VECIOR 

NBETA = TOTAL NUMocK LF IriETAl COORDINATE/ H THt aT ATE VECTCR, 
THESE COORD I NAT Es DEFINE THE TRANSLATION ok HCTATICNAL 
MOTION ASSOClAlt WITH EACH UNCCNS I K Ai NCo OH RhfcNCMICALLY 


A ILAMGA ) 
OH 


CONSTRAINED uEsFEc Ur FREEDOM 
NLAM = TOTAL NUMBER OF (LAMDAI CONSTRAINT tUUAT TUNS* 

U ON ST HA 1 NT EQUATION IS DE F I NE D F'o < e A C FI FIXED 
RHECNOMICALLY CLNSTHAINED OSGRES OF FkeeDOM 
NU = TOTAL NUMtaok OF lO‘S) VET.OCITY C J 0 R D I N A T t s IN THE STATE 

VECTOR. TFiE OK L AK - OUW N OF VELOCITY CJUkUINAlcS FOR BODY N 
IS AS FOLtOWsI 

0 - ROTATION LUOROINATES (COMPONENTS OF THE INERTIAL 

ANGULAR VtLGClTY vector wrt the UOJY N REFERENCE! 

0 - THANSLATICN COORDINATES I CO MPUNtN TS Ur THE INERTIAL 

LINuAR VLIULITY VECTOR WRT T Ho l)ODY N REFERENCE) 
IRGFLX(N) - GENERALIZED MODAL VELOCITY COoRdInATeS ASSOCIATED 
WITH FLEXIBLE oCOY N DEFORMATION, ZERO if BODY N 
IS A K 1 Oi 0 BODY 

NNC.v(2.N) - « HELL SPIN HATE COCHOINATES ASSOCIATED WITH THE 
ACTIVE UR VARIABLE SPEED WHEELS IN UOOY N 
ZERO IF OCoY N HAS NO EMBEDDED AoTIVL WHEELS 
NEC = TOTAL NUMlilH OF STATE EQUATIONS WHICH ARE SETUP TO 

DEFINE TDTAL SYSTEM TINE RESPONSE. IN DYNSIO 


NEQ = (RGFLXIl) * ... ¥ IRGFLX(ND) 

¥ NO r NtiETA ♦ NOEL T A 

LEND = STATE VtCTGR LENGTH TABLE. COMPUTED INTEGER** ARRAY 
DiMENSIUNLJ ( 2*NdMAX 12) 

LENU(N) = II JMcjch OF VELOCITY CuJkDlNAItS (U*S) 


.ibaOClATFU WITH BODY N. N=1.2 NU 

LEND (INFNL) ) = N DM tit H OF NODAL O I SPl A Lt ME N T LOORDINATES 
ASGLCIATED WITH BODY N, N = l , <L. . . . . N8 
LENO(Z*ND*l ) — NBeTA 
LtNUI 2 «N6+2 ) = NDtLTA 


lucu ■= state vector location table, c.cmpjied integer** array 

DIMENSIONED ( 2 * NBRi AX ¥ 2 ) 

LOCU(N) = LOCATION IN STATE VECTOR O'F FIRsT VELOCITY 

COORDINATE ASSOCIATED wilH BODY N, N= 1 

LUCU(NrNU) = LOCATION IN STATE VECTOR OF FIRST MOCAL 

displacement coordinate associated with 

BODY N. N= 1 , 2 NB 

LUCGl 2 *NB+ l ) = LOCATICN IN STATE VECIOR OF FIRST (BETA) 
COORDINATE USED TO DEFINE CONTIGUOUS BODY 
KEL AT 1 Vt NC T I CN 

LCCU I 2 «N6*2 I = LOCATION IN STATE VEoIOR OF FIRST STATE 


01 7466 
Cl 7467 
01 7468 
Cl 7 4 69 
017470 
017471 
01 7472 
Cl 7473 
01 7474 
01 7475 
01 7476 
01 7477 
Cl 74 78 
01 7479 
017480 
017481 
01 7482 
01 7463 
01 7484 
01 7485 
01 7406 
01 7487 
01 7488 
01 7489 
01 7490 
CI 749 1 
01 7492 
01 7493 
01 7494 
01 7495 
01 7496 
Cl 7497 
017498 
01 7499 
Cl 7500 
01 7501 
Cl 7502 
01 7503 
017504 
01 7505 
Cl 7506 
01 7507 
01 7508 
017509 
01 7510 
017511 
017512 
01 7513 
017514 
01 75 15 
Cl 7516 
Cl 7517 
01 7518 
01 7519 
O17520 
01752 I 
01 7522 
01 7523 
Cl 7524 
01 7525 
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n r. 


c 

C 

c 

c 

c 

c 

E 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


VAKlAbLc ASSOC I AT Jr.0 wlTH THE NOEL T A USER 
i>fcK l Nt-0 CCM'RCL E QUA/ l ON J 

THE FOLlOV. ING PARAMETERS xRL I N TEG£R*4 CONb T AN T S , COMPUTED 

I N T LH f\ ALL V ANi) sIukEO 1 N /lDSIZE/. THEY AHl JSlJ IN T HE SETUP 
CF THc LINEAR l ZEu cubATiCNS OF MOTION 

NX s NUMdF.it OF I Nu t PtNOeN T COORDINATE.* IN THc iiTATL VECTOR Y. 

IMIS IS CuMPOTcO IN LINEAR 

FJC = NuMbLR CF INDEPENDENT COORDINATES IN 1 He STATE VECTOR Y 

PLUS THE' NUMBER OF USER DEFINED SENSOR *ND TORQUE SIGNALS 
(AUxILAkY £0-jAT 1LNS) CODED IN EOmOOS UJMPUlED IN LINEAR 
NJC = NX -f NAUX 

NY 2 - NUMBER 01 INDEPENDENT PLANT C.OQfc<J i NAN T S IN THE STATE 

VECTOR MINUS the NUMBER OF USER UuFlNbO btiNSGR SIGNALS 
NY 2 = NX - NDELTA - NXSS 
COMPUTED IN DYN540 

NO 2 = NUMBER UF I tNDePENuLN T CONTROL SYSTEM COORDINATES IN THE 

' slATt VECTOR MINUS THc NUMBER OF USER Deri NED F CIRQUE 

SIGNALS 

N U2 = NDELTA - NOT Q 
COMPUTED IN UYNS4U 

INTEGRATION CGMkUL 


JIL - i.2.o UR 4; DEFINES THE CYCLE NUMBER nirtiiN THE FOUR STEP 

AUNGE KUTiA 1 wTcokAI { CN ROUTINE THAT COMPUTATION IS 
CUkRLNTLY AT; UPDATED IN RK ADAM AND STuRED IN /JlLFLG/. 
NOTE ADAMS PReUI LT UR/CUKRCC TOR I NT E GR AT ION MAY CE USEO t3Y 

SETTING llYPE-2 IN THE DATA STATEMENT IN kKADAM, IF SO 

JIL WILL ALWAYS bh EQUAL TO 4 AFItft THE FIRST RUNGE 
KU T TA s T Ak 1 i NG 5 1 EP • 

THE FOLLOW l Nu ARE kE AL * ti PARAMETERS STORED IN /TIMESS/ AND USED 
TC CEFINt DI M-CRfcNT TIME PARAMETERS 
ST •= STaRTT = INPUT PARAMETER TMUAT A(l > RcAj IN, IN DYNSIOJ 

JSeD TO DEFINE THE STARTINu TIME EUR TIME 
Hi SI LR V SI MUl.A T I ON 

CT = DEL TAT - INPUT PAR A ME TER TMDATA(E) READ IN, IN DYNSIC*. 

USLu TU DEFINE THE INTEGRaIiQn STeP SIZE 
ET = END T = INPUT HaRAME TER TMCATA(s) READ IN, IN DYNSIOJ 

USED TO DEFINE THE END U r SIMULATION TIME 
T = TIME PARAMETER. INCREMENTED IN R<4 uA M , COMPUTATION 

STARTS AI T=S1 AND IS STOPPED AT l=eT 
TM5T = TIME ELAPseD IN SIMULATION FROM I - S T 

THE FOLLOWING ARE VAklAuLeS INITIALIZED IN DYNSEO. UPDATED IN 
RK AD A M AND STORED IN /GPRKlA/ 

GR K = REAL *3 WQRk AREA FUR RuNGt-KUTTA iNTEoRAT 1 un ROUTINE 
DIMENSIONED (KYi 

FRK - REALMS AKkmY UF CONSTANTS REQUIRED FuR RUnUe KUI TA 
INTEGRATION ROUTINE DIMENSIONED (4) 

NT = IN Tl GER * 4 VARIABLE USEO AS A COUNTER. ITS STURED VALUE IS 

EQUAL TO THE TOTAL NUMUER OF INTEGRATION jIEPS TAKEN IN 
NON-lINEAR time RLsPUNSC ANALYSIS FROM TIME S1ARTT TC 
INSTANTANEOUS TIME T. 

CUTPOF DATA CONTROL 


NG PR N T = INPUT PAkAMc. T ck iPUATA(l) READ IN, IN DYNS10 AND STORED 
in /r/isCNci/. print Output data ev^ry nqprnt multiples 


01 7526 
01 7527 
01 7528 
01 7529 
01 7530 
Cl 7531 
01 7532 
01 7533 
Cl 7534 
01 7535 
01 7536 
01 7537 
01 7538 
01 7539 
01 7540 
01 7541 
01 7542 
Cl 7543 
Cl 7544 
01 7545 
01 7546 
Cl 754 7 
01 7548 
01 7549 
Cl 7550 
017561 
01 7552 
Cl 7553 
0.1 7 5 54 
Cl 7555 
017556 
01 7557 
Cl 7556 
01 7559 
Cl 756 0 
017561 
01 7562 
Ci 7563 
01 7564 
Cl 7565 
01 7566 
01 7567 
01 7568 
01 7569 
Cl 7 5 70 
Cl 7571 
01 7572 
01 7573 
Cl 7574 
01 7575 
Cl 7576 
Ci 7677 
017578 
Cl 7579 
Cl 7560 
01 7581 
Cl 7562 
Cl 7583 
Cl 7584 
017565 
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OF THE INTEGRATION STEP 

no pl ct = input pA^nMcitk ipuata(2) read in, in dysnig and storeo 

IN /MlbCNU/. PLOT OUTPUT DATA E Vt R r NUPLul MULTIPLES 
OF The IMcoRAliON SI EP 

NRPLCT = uOTH ARE INTEoLRS CUMPlIEU (N PLJT..R, uPLT^k AND O Y NS3 0 
NCPLCT AND STORED IN / PL T 0 T A / THEY ARE Kc^JIkcJ Fur SC-4020 
PLU I GENl'RAT I CN 

KSAVE = TOTAL NUMoER OF DATA POINTS TO BE sArfe'D IN THE /PSTUFF/ 

AkRmYS, *HICH ARE EXCLUSIVELY RESERVED rJH THE STORAGE OF 
FREQUENCY kESPuNSE DATA COMPUTED IN jFWl U2 


VOUE DEPENDENT PAkAMlTcKS 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

L 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


mass matrix *uh associated mode dependent parameters 


amu - mass matrix array. real*b time varying parameters stored 

IN /AMUB'A/. J I MENS luNEJ ( KMU . KMU .N-JMAX ) 
dp on entry into dynS20: 

( l A MU ( I • J «N I • 1 = 1 iLV ) * J = 1 . L V ) = MA5:> MATRIX FOR OCDY N 

IN IT5 UNOEFuR Me. J STATE a'HERE 
LV = 6 f IkjFLKINJ f NMUM2.N) 

there af ter : 

( ( AMU< I • J. N ) , I = 1 ,LV ) , J= l • LV ) =MASS MATRIX FOR BODY N 
AT TIME T IN OIL Utr UMRL D STATE 
(COMPUTED IN MGfcN) « iVrichi E 


PET AILS Sc.L uOdATI-UNS 
( (AMU (I , J , N ) .1-1 i j) , J =i • JT 


( ( A '*i U ( 1 i J . N ) . l : i « j J i J— 4 , c ) 


( ( AM.U ( i , J # N ) .1-4.0) . J -4 . 6 > 


LV = 6 + Ir<uFi_X(N) F NM0fc(2.N> 

I l - 39 AND So IN VUL I: 

= inertia tensor for body n 

RE LA T I V- Tu oiiDY N REF POINT aRT 
FODY N ;.NCc FRAME 

= skew tenjok form of the body n 

MASS MOMENT VECTOR RELATIVE TO 
fcioOY N REF' ->01141 *R T BODY N 
REFERENCE FRAME 

= tHAOCNAu MA'jj MATRIX. TOTAL MASS 
CF BODY *4 UN D l A u uN AL ♦ ZERO OFF 


TFE DIAGONAL. 
t OR 1 HE F ll LOSING LET l 
Lt — 0 4 Ik UF L X ( N ) 

LV - or if<grLX(N)fNMU*(2,N) 

( CA.-lu ( l . J ,M . I =i . 0) . J=7,Lt > = INLKUAu CJJp'.li'N TERMS BETWEEN 

ANGULAR and modal ACCELERATION 
CCi CR DINA TeS r OR OuOY N 

( ( A >1 0 ( I « J . N ) , I = a «u J • J = 7 # Lt_ ) = INERTIA^ CdJP_Ino TERMS BETWEEN 

linear and 40 j al acceleration 

CC LR J 1 NA l p UK UUJY N 

( (AMu(l.J.N) * 1 = /#Lc ) » J=7 iLE ) =• INERTIA*. C oJP.INv, TERMS BETWEEN 

MODAL ACC-E-KATlUN COORDINATES 
FCR tiCDY N ( J* AooNAL FCR 
CR TXOuONAL MOdcS) 

( ( AMO( I » J ♦•M ) » 1 =1 »lL ) i J-Lt 4 I i LV ) = I .M _ K T 1 Ac CuJPLlNG TERMS 

ixl wc;N ou'JY N ACCEL. 
CJJRD. AinO *hfcfc‘L ACCEL. 

( ( A Xul 1 , J .N) . I =LuF 1 ,LV) ♦ J = LCM .LV) = iNudllAL COUPLING BETWEEN 

VArIAoLc ->PEED kvFiEELS (;N 


BODY V 


IN SUOWOd I l Nil YuUl THE MASS MATRIX lVVc.RSu IS NEEDED. IT 


Cl 758b 
Cl 758 7 
01 7588 
01 7589 
01 7590 
017591 
Cl 75V2 
017593 
01 7594 
017595 
01 7596 
01 7597 
01 7598 
017699 
Cl 7800 
Cl 760 l 
01 7602 
Cl 7603 
Cl 7604 
01 7605 
01 7606 
Cl 7607 
01 7608 
Cl 7609 
Cl 7610 
Cl 76 1 l 
Cl 7612 
017613 
017614 
01 761 5 
Cl 7616 
017617 
01 76 1 8 
01 7619 
Ci 7620 
01 762 1 
Cl 7o22 
017623 
01 7624 
Cl 7625 
01 7626 
Cl 7627 
01 7628 
01 7629 
Ci 7630 
017631 
Cl 76 32 
01 7633 
0 l 7634 
01 7635 
Ci 7636 
01 7637 
Cl 7638 
01 7639 
C 1 7640 
01 764 l 
01 7642 
01 7643 
Ci 7644 
01 7645 
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c 

c 

C 

C 

C 

c 

c 

t 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C 


IS COMPU T t_D IN 1NVINP AND STORED IN X He AMU ARRAY 
THUS DESTROYING ALL MASS MATRIX DATA DEFINED BELOW 
** NOTE n may BE RECOVERED BY REINVESTING AMU ARRAY 

THE FuLLCwlNG PARAMETERS ARE REAL*8 ARRAYS STJSED IN /INTGRL/. 

T h c 1 R ELEMENT MAUN I FUDeS ARE EVALUATED IN L.ITHEH MRIGID. MSMODC 
OR MsMuJL AND SI OREL) ON NT APE I (TO CONSERVE COMPUTE STORAGE) . 
UPON ENTRY INTO DYNS20 A RE AD ( N TAPE I ) INSTRUCTION IS EXECUTED 
AND THE APPROPRIATc TIME INVARIANT ARRaYs L JADED. 

THESE ARRAY WILE bE JScU IN MGE N TO COMPUTE INl ELEMENTS OF THE 
TIME VARYING MAoS MATRIX DEFINED BY EQuATIUN 11-86. VOL 1 

am = undefurmed mass matrix array <m sjb j in ii-86> 

DIMENSIONcd ( ( ( O+NMDB CD ) * ( 7 +N MD6UJ J ) / 2 * NUMAX ) . UPON ENTRY 
INTO OYNs2u IT IS SET BY THE FOLLOWING CODE: 

DO 3 N=1 • Nb 
NXE = IRGFLX(N) 

NPo — 6 + NXL 
XNT = U 
Du 6 1=1 .NPo 

DO t> J = i * NPo 
KNT = KNT+i 

6 AMIKNT.N) = AMU ( I . . J » N ) 

J CONI 1 NOE 

SINCE THE MASS MATRIX IS SYMMETRIC 

ONLY THE UPPER TRIANGULAR PORTION NEld BE SAVED 

( AM( I ,N ) • I = i . ( NP6 *( NP6+ l ) ) / 2.) = JndcFJRMED MASS 

MATRIX FOR BODY N 

ACOF = Cue FF I C I EiN'TS WHICH DEFINE THE LINcAR DEPENDENCE OK TKE 
MASS MUMLjnT UN FLEXURAL DEFORMATION, 

DIMENSIONED ( 9 • NMD BUD ,M3MAX ) . T Ha I IS: 

(AC OF (1«M,N). 1=1.9) = 9 ALPHA COEFFICIENTS IN EQ 11-86 

WHICH DEFINED T He LINEAR DEPENDENCE 
Of BODY N M A oS MOMENT ON BODY N 
MODE M DEFORMATION. 

EC LF = COEFFICIENTS wiUlH DEFINE THE LlNcAR JePENDENCE OF THE 
. 1 Ne. R T I A luNSUk ON FLEXURAL DEFORMATIuN. 
lvIMENSIONlU ( u . NMD BOD * N0M AX ) . THAI IS: 

( bCUF ( l ,M .N ) . 1= I ,u ) = 6 LOWER CAuc B COEFFICIENTS IN 

eq ri-ae waich uEfine the linear 

DEPENDENCE OF SuDY N INERTIA TENSOR 
CN BODY N MODE M DEFORMATION 

COFYZ = COEFFICIENTS WHICH DEFINE THE LIn^aR DEPENDENCE OF THE 

C0FX2 INERTIAL LOUPLINU 1ERMS BETWEEN AN GU_ A K AND MODAL 

C O F X > ACCELERATION Co EF F I C £ LN T S . EACH Ur 1 it 1 MREc. ARRAYS ARE 

o i mens i cnld ( nmduud • n mould • nbmaxi 

(CUFYZ(l.M.N) .1=1. IRGFLX(fJ) )= IRoFLX(N) C SuB YZ COUPLING 

COEFFICIENTS IN Eu I 1-88. DEFINES 
THE LINEAR DEPlNDLNCu OK BODY N 
X-AXIS ROTATIQ.m - MOdc M COUPLING 
COEFFICIENT;* ON MODE 1.1=1. •••« 
IRGFLX(N) DeFORMATIUN 

(CUFXZ ( 1 .M.N) .1 =1 • IRGFLXt N) )= IR^FlX(N) C SUB XZ COUPLING 

COtFFlC I ENTS IN Lv) 11-88. COUPLING 
Y-AXIS ROTAIIUN - MODE M BODY N 
(COFXY ( I *M.Ni .1 = 1 • IkGFLX(N) )= tRjr LX(N) C SUB XY COUPLING 

COEFFICIENTS IN cJ 11—88. COUPLING 
2 -aXIS ROTATION - MuDu M BODY N 

CUF I 1 = COlFFICIcNTS WHICH DEFINE THE OvMDRAliu DEPENDENCE OF THE 

CUFIc INERTIA TcNS'wk LN FLEXURAL DEFORMATION. 

COFI 2 DIM EnS I OnEO ( rJM udUU . N MC 3 UO . NB M AX ) 


Cl 7646 
01 7647 
Cl 764 6 
01 7649 
C17650 
017651 
017652 
01 7653 
01 7654 
01 7655 
01 7656 
Cl 7657 
01 7658 
01 7659 
01 7680 
017661 
01 7662 
Cl 7663 
01 7664 
Cl 7665 
01 7666 
017667 
01 7668 
01 7669 
017670 
Cl 76 71 
01 7672 
01 7673 
01 7674 
01 7675 
Oi 7676 
01 7677 
01 7o78 
01 76 79 
01 7680 
Cl 7681 
Cl 76 82 
01 7683 
01 7684 
Cl 7685 
01 7686 
01 7687 
Cl 7688 
01 7689 
01 7o90 
Cl 7691 
017692 
0 l 7693 
01 7694 
01 7695 
0 2 7696 
Cl 7 697 
01 7698 
01 7699 
Cl 7700 
Cl 7 70 l 
01 7702 
Cl 7703 
017704 
Cl 7705 
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n n o r r- r> r. r. n a 


c 

C F.F 2 l 

l.wb l l C l 

♦ J.N 1 

= Cut t (* l C. 1 v-.\ IS V*H l Ce\ Jtf V ,vc 

THt 

OUADKAT 1 C 

c 

C u F 2 3 

Cut- *:;h i 

, J . N ) 

DEPr.NDF.NCE CF PH IPAl aX 

• r v . zz MCMbN r s 

c 

COF 3 J 

Cl M- j-J( [ 

• J • N ) 

Cr I Nr. R I l A RfSP. GF bjjY N 

UN 

MODE I AND 

c 




yOD- J FLEXURAL iLrjKUHu 

N . 

SEE tO 11-89 

c 


0 . 1 - l.'l I 

. J . N ) 

= COlFFI ru NTS WHK-.i dl- I nE 

T He 

OuAOHAT ic 

c 


L Cl- l • ( 1 

, J • N ) 

DciPLinD Er.CC LF FRfJJCI j aY * 

XE 

. YZ 

c 


Ul- £ 

f J • N 1 

cf inert i a rest* • u- bjdy a 

UN 

MODE I ANC 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C 

c 

c 

c 

c 

c 

c 

c. 

c 

c 

c 

c 

c 

c 


NUDE J Fl_F KUPAL D- r U.*iMAT I uN . SMC LQ 11-39 
ACDAL Cu MPUNlN 1 8 >'il HINGE A NL) CENSOR PuiNTS 
THE FClLLW (No »'A^AMl Tch'j A k i_ RcAL^O ARRAYa i V J •< t iJ 1 N /HANDS/ THE 

actual data ro tic. loaolj into these appays is inpoi Tto eitfier 

V l A HSPODL C3 MSMUDC • n IS STORED Tl.mPUkAKILY ON NT APE 1 THfcN 


LNUiAi 
p A IM 


ED 1 N OYNo20 
n I NGL POINT 
O l MEN SI CNuu 
HlNEL PC l NT 
J 1 MENS [UNtD 
AT HI NuL 


l N T C THE APPROPRIATE aRKaY. 
•IUDAL D I S PL AO- MEN T A«<R AY • 

( 3 • MudliO «2*MHMAX-l ) . 

NODAL huT ATICN ARRAY. 

( 3 . N.MuLUO . 2*NhMAX — 1 ) 

Pl INI NLH, NQH= 2 % 3 ....»NH 


TmE v 
T ML f 
( HAfH(i t i'i N < 


-FRANC I : 
-FR AMe I : 
2 * NOh- J I 


CL NT A I NED 
CONTA I NED 
l -= l i J ) = 


AND 


OF 

WRT 


( F A T h ( l ,MM,2*N0h-2) ,1=1.3) = 


( 5: I jH( I .NN, 2«N0H-3 ) , 1 =1 .3) = 


( S loH.< I .MM . 2*N0H-2 ) .1=1.3) - 


IN BODY N= 1 TuPDL ( i , NOH ) 

IN BODY M= I T UPUL ( 2 , NOH > 

3 DISPLACEMENT COMPONENTS 
NN AT T HE u -FR AMc ORIGIN 
BODY N FIXED RLFc.V-it.NLE 
.1 Dl SP L A Ctt M fc N T COMPONENTS OF 
MM AT. THE P-KMAME ORIGIN WRT 
BODY M FUcu K -r'cRENCE 
3 POT AT I On CGMPuNt N I S OF 
NN AT THE' J-MAMt ORIGIN 
BODY N FIaud RcrcRC, NCC 
3 p c r a r t on lomponcnts cf 
MM AT THE ^-F-iAMfc ORIGIN 
BODY M FIX Co r< c.F LRc-NL L 


MG Cg 
THE 


Moce 

THE 


MODE 
wRT THE 


MODE 
WRT THE 


C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


fats = SlNSOR POINT MuUAL DISPLACEMENT ARRAY • 

DIMENSIONED l 3, NMUuUi) .NSPMAX ) 

SIGS = SENSOR POINT MODAL HU T AT I CN ARRAY 

u [M ens t cnlu c 3 . NMuauo .nsp ^ax ) 

AT SENOUK POINT NOS WHICH IS ON BODY N= l F T SM W ( N 0 S ) 

( HA I S i I .MN.NOS ) . 1 =i .3 ) - J DISPLACEMENT LU M Pd Nt NT S ' OF MODE NN 

AT SENSGR POINT NOS WK f BODY N RcF 
( S I jS ( 1 .NN.NOS) .1=1 •«*) = 3 RCTATICN COMPONENTS OF MODE NN 

AT SENSOR POINT NO 5 wRT BODY N REF 

NODAL STIFFNESS AND CAMPING MATRICES 


THE FOLLOWING PARAMETERS A K L REAL*8 AHRAYj 8T3JLD IN / 1 NT GRL / . 

TFUSE ARRAYS AkL LOADED IN DYNSEO BY A Rc. A3 l in T APE l ) STATEMENT. 
TFl CAVA CN N T APE 1 WAS GENERATED IN AND uY CALLS FROM THE f 
FLcXlELc BODY llsPUT ROUTINES M S MO DL AND MSMJJC- 
AK = Muu-AL STlrF-NESS MATRIX. D I MENS I CN- D ( NMD BOD . NMUPCD • NEMAX ) 

LlT : 

NM = 1 KG F L a ( N ) =■ NUMBER OF MODES JSt_D FOR BODY N 

T ML N 

( ( AK ( I • J ,N> . I = I . NM ) . J= l .NM ) = NM BY NM MODAL STIFFNESS 

MATRIX FOR BCD Y N. NON -OR I HU C.ON AL MODES 
MAY BE USED; IF So. JHli MATRIX WILL EE 
SYMMETRIC EOT NON- J l AG JNAL • 

I OR CRT huoUNA L iVC JcS * 


0\ T 706 
017707 
01 7 708 
01 7 7 09 
017710 

0 17 7 11 
017712 
01 7713 
017714 
C l 7 7 1 b 
017718 
C l 7 7 1 7 
017718 
Cl 77 19 
01 7720 
01 7721 
01 7722 
01 7723 
017724 
C 17 7 26 
01 7726 
01 7727 

01 7 728 
01 7729 
01 7730 
017731 
01 7732 
01 7 733 
01 7734 
Cl 7735 
01 7736 
01 7737 
01 7738 
CL 7739 
01 7740 
Cl 7741 
Cl 7742 
Cl 7743 
017744 
01 7745 
Ot 7746 
01 7747 
01 7 74 8 
01 7749 
01 7750 
0 l 7751 
Cl 7762 
01 7753 
01 7754 
01 7755 
01 7756 
01 7757 
01 7758 
01 7759 
Cl 7760 
01 7761 
0 l 7762 
017763 
01 7764 
01 7/65 
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AK(M.MiN) 


c. 

c 

c 

c 

c 

c 

c 

c 

c 

c 


AO 


= ,vrjL> ai. 


- ( GLNL^AL t 2ED M ASS CF >IUL)£ M bUDY N) * (MODE M 

NATURAL FREQUENCY ) <-*2 
DAMPING MATRIX* D i Mt NS X fi NE J ( N 4i)uUL) » NMDBOD * NEMA X ) 


LuT : 

NM = IKOKXIN) s Mif/fitfi OF MJueS Jbtj F>JR BODY N 

THEN 

( ( AD ( I • J • N ) i i = 1 t NM ) * J - l »NM) = NMciY f\H MUDAL DAMPING 

MATRIX FOR BODY N* IF The DAMPING MATRIX 
izf M T PROPOR f I ONAL fu A UNcAK FUNCTICA 
CF Irl£ MASS AND SUPFNcbS MATRICES THIS 
MliDAL CAMPING MATRIX a ILL be SYMMETRIC AND 
NON-U I AGONAL 

r ok prupokt iunal dampifg in ouoy n: 

A t) t M * M * N ) = 2 * (GENERALISED MAw bF MUDe M) 

♦ (DAMPING /.ETA F CK MOJc M> 

* {NATURAL FWEQUENetf Ur MUuc M> 


GRAY MY GRADIENT DATA, INPUTTED AND CCMPUTcD 


C 

U 

c 

c 

c 


vtV = ‘jf<A V l T Y uwHUltNT INPUT DATA ARRAY. TrlLiC REALMS CONSTANTS 

ARE USED TO CUMPUTL DATA TO BE ST JR t J IN /GuDATA/ 

< wV < I ) * I = i * J) - u COMPONENTS CF 7 He GRAVITY VECTOR wPT 
INERTIAL REPERENci (UNITS UF ACC) 

WV( 4) = distance frcm gravity sjurce tc vicinity 

of HOUY CLUSTER CENTER UK MASS 


THE FOLLOWING PAKAMt ICfib ARE WEAL*8 V A R [ A8 L e 5 STORtU IN /GGO AT A/ 
TFl LScK MAY, I in lOnTRl, DEFINE THESE PAKA^zTeRS TO tit TIME 
FUNCTIONS SO TmAT MUT1UN IN CRdlT MAY o£ oIMJoaIED 
P C. MAC - ;« V ( 4 ) UMIANCl Fk CM GRAVITY SOURCE U VICINITY CF SYSTEM 

CM AG = RESULT ANT GR A V I T A T ioN AL ACCELERATION 

GMAo = SGR V ( V.V ( I ) * *2 * * *V(3)**2) 

CAMGI = COMPONENTS OF A UNI) VECTOR FRCM I He. GRAVITY SOURCE TC 
THE VICINITY OF The SYSTEM center OF MASS vkRT inertial 
REFERENCE, DIMENSIONED (3). FROM JYNSiO 


CG S 


GA MG 1(1) - wV( U/GMAG; I = 1.2, 3 
(NUT. CUNPuTt It (oMAG.EO.OM 

- GRAVITY ohAJItNT eFFECTS CN ELASIlC COORDINATES* A REALMS 
ARRAY DIMENSIONED ( NMC30D , 9 ,NHMAX ) AND STORED IN /GOSAVE/ 
THE EL O ME is I S OF THIS ARRAY ARE COMPUTED IN MGCN BASED 
UPON THlGkY ON PAv.LS 48-52, VOL i. T HE Y AWE 
DEFORMATION DEPENDENT TERMS RCOUIRED FOR COMPUTATION 
OF GRAVITY sjRAOIENT FORCES AND TuWOuES 
FOR UuOY N LET 

L 0 = LULo(NtJFN) = LOCATION of FIRST tLASTIC CCCiRD. 


. Lc = eeNU(Nc-FN) 


(G\jb(U*l * N ) * J— 1 

, Lu ) 

- 

RCw 

J 

( C'G S ( J ,2 *N) , J— I 

• u. ) 

= 

KCW 

J 

(oGa < J ,3 «N) , J — I 

,LE ) 

= 

KCm 

J 

(Gvib ( J ,4 • N ) , J — l 

, Ll ) 

= 

kuw 

J 

( GO S ( J • 6 » N ) , js 1 

, Le i 

= 

kuw 

J 

(ooS ( J ,6 , N ) , J — i 

, LE ) 

- 

koW 

J 

( G-j S ( J , 7 ,N) , J=i 

, Le ) 

- 

C CL 

J 

(GoS( J ,6 *N) , J — 1 

, Le J 

= 

COL 

J 

(Gob(J *v ,N) ♦ J=i 

.LL ) 


C UL 

J 


IN S T A Tc vEeTUw 

= NuMOtk Jr tLAbTlC COORD* IN Y 
OF COP l l ( I , I ,N) *Y( LJ > 

GF C. OF 22(i * I •NJ*Y(L0i 
OF COF33(i. I . n)*Y(lJ) 

OF COF 12( l, I ,N! * YiLOl 
OF COF I 3(1 , I ,N)*Y(LJ) 

GF CCF23( l , l ,N ) *Y { LO J 
OF Y (LO ) ** f *CJF l 2 l I , 1 .N ) 

OF V ( L 0 ) ** T *CJr 1 J( i, i ,M) 

Of Y ( LO ) *LuF2 j( I , l , N ) 


01 7706 
01 7767 
01 7768 
01 77 69 
Cl 7 7 70 
01 7771 
Cl 7772 
Cl 77 73 
01 7774 
Cl 7775 
01 7776 
01 7777 
01 7778 
Cl 7779 
01 7780 
017781 
Cl 7782 
01 7783 
Cl 7 784 
Cl 7785 
01 7 786 
Cl 7 78 7 
Cl 7 788 
01 7789 
01 7790 
01 7791 
01 7792 
Cl 7793 
017794 
01 7795 
Cl 7 796 
01 7 79/ 
01 7798 
01 7799 
01 7800 
01 7801 
C l 7802 
01 7803 
Cl 7804 
01 7805 
Cl 7806 
01 7807 
01 7808 
01 7309 
01 78 l 0 
017311 
017812 
01 7813 
Cl 761 4 
01 78 15 
01 7816 
01 781 7 
017318 
Cl 7819 
01 7820 
01 7821 
01 7822 
01 7823 
01 7624 
01 7825 
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KINcSATIC DATA INPUTTED AND COMPUTED 


otTAh = CONT ICUCUS Hlf.bE F WAME ORIENTATION DAI A ARRAY, RE AL* 8 
PARAMETERS STORED IN /SPECIF/, DIMENSIONED I6,NHMAX> 
INITIAL VALUES INPUTTED IN OYNSlD 

l NS TAN TANEOUS VALUES ARE STRIPPED FKJM THE STATE VECTOR 
ARRAY Y IN RUTUH 

(OETAHI I ,N) ,1-1 ,3) = 3 SUCCESSIVE EU-Ek ANGLES REQUIRED 

TO ORIENT Q-FRAME RELATIVE TO 
P-FRAME AT -IlNGE POINT N 

(dt TAH( 1 ,N) ,1=4,0) = 3 POSITION COORDINATES OF THE ORIGIN 

OF THE Q-FRAML RELATIVE TO THE 
P-FRAME AT HiNoE POINT N 

bETAHD - CUNTlUUCUS Hi Noe FRAME RELATIVE kaJE DATa ARRAY, REAL*8 
PARAMETERS siured in /specif/, dimensioned <0,NHMAX) 
INITIAL VALUES INPUTTED IN CYNSIO 

INSTANTANEOUS VALUES ARE STRIPPED F RDM THE STATE VECTOR 
DOT ARRAY Y L> T IN Y DOT 

BETAHOUtNi = FIRST TIME DERIVATIVE OF UE T AH ( I , N ) 
i ( l = l ,6) , N= 1 , NH > 

AM 0 = MOMENTUM *NEEL DATA ARRAY, RE AL AD PARAMcTLKs STORED IN 

/sPEClF/, O 1 MEN Si U NcD <2,NM«MAX), INPUT DATA FROM DYNSIO 
THESE PARAMETERS Are NCT FUNCTIONS OF TIME 

a m o { i , m i = initial spin ratl for wheel m 

AMCJ(c*M) = SPIN INERTIA FOR w n L u L M 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Roroh - TRANSFuRMAl I ON MATRICES COMPUTED THEREIN 


THE FJLLCWIiNG ARRAYS ARE FUNCTIONS OF TlMc. ELcMtNlS OF THE STATE 
VBCfbh Y ARE U ScD IN RUTOH TO COMPUTE T lie. M NEMA I I C 
TRANSFORMATION MAlKlCto ASSOCIATED WITH HlNUc POINT AND BQCY 
FlXiO RtrcRCNCt FRAMES, SET 0EBUGI44) = .TRUc. TU PRINT ARRAYS 


BCTAF =■ EuLLR ANGlc. 5 UPDATLD FROM STATE V-LTDR Y AT TIME T IN 
SUBROUTINE kUTUFi 

CH = REF ERENCL POINT, HINGE POINT POSITION VeCTUR ARRAY 

D 1 M L NS 1 L N£ O l J , / * ( NH M A X — 1 ) ) * ST Ok ED IN /sPtCIF/, ACROSS 
HlNUi: P 0 1 cm T NOii , NOH-2,3, . , . ,NH He. FUe LO wlNG POSITION 
VECTORS ARE COMPETED, LEI 

LD l = 7 ♦ ( N 0 H - 2 ) ♦ 1 

1 HE N 

( DM J ,iD l *■ 0 ) . J= l • 3 ) = 3 COORDINATES «F The uk I G I N OF THE 

d-FRAME CN dCDY N= i TOPOE ( 1 , NCH ) WRT THE 
UUDY N RLFERENCS In T r It UNDEFORMEO 


(Dh( J ,lDH I ) « J = 1 « 3) = 


I D H I J , L u l F 2 ) , J = 1 • 3 ) = 
(.)H(J,LuH J) .J-l . J) = 
(Oh( J , L 0 1 ♦ A 1 , J= l , 3 > = 


STATE ( MS MODE l,k mSmJDLJ 
3 COORDINATES Or I H 5 uRiolN CF THE 
P-FPAME CN BODY M= 11 OPUL ( 2 , NON ) WR T THE 
BODY M KCFcP.ENbi IN I HE UNDEFORMED 
STATE ( MS MODE JR MjMuwC) 

3 COORDINATES uF Trie ORIGIN OF THE 
U -FRAME ON uOlV N=i I UPO e( I .NCH ) wRT THE 
dUDY N REFERENCE, DcruRMuD STATE 
3 CCCRDINATtS OF Inc. ORIGIN OF THE 
P-FRAME CN BODY M=i TOPOL (E , NO H) WRT THE 
BODY M REF t RE NL z deFuRMcD STATE 
3 COORDINATES OF I He. UR l v* IN OF THE 
Q-FRAME wRT THE P-Fr AMc A I HINGE 
POINT NOH 


Cl 7826 
Oi 7827 
01 7828 
01 7829 
01 7830 
01 7831 
017832 
017833 
01 7834 
01 7835 
017836 
01 7837 
01 7838 
01 7839 
01 7840 
01 7841 
01 7842 
01 7843 
01 7844 
01 7845 
Cl 7846 
017847 
01 7848 
Cl 7849 
01 7850 
017851 
017852 
Cl 7853 
01 7854 
017855 
01 7856 
01 7857 
01 7858 
01 7d59 
01 7860 
01 7861 
Cl 7862 
01 7863 
Cl 7864 
01 7865 
01 7866 
01 7867 
01 786 8 
Cl 7869 
01 7870 
017871 
C l 7872 
Cl 7873 
01 7874 
Oi 7875 
Cl 78 76 
01/877 
01 7878 
01 7879 
01 7880 
017881 
017882 
Cl 7883 
01 788 4 
Cl 7885 
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C 

c 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


(0H(J,L0H5) ,J=l,3) ~ 3 COCRD l N A T E S UF THE UftlG-IN CF THE 

BODY N= ITOPQLC l * WOn) FIXED REFERENCE 
*KT THE BODY M- I 7 OPGL I 2 • NUH ) FIXED 
REF ERENCE 

(JH(J,LUl+6) ,j=I, 3) = 3 COORDINATES OF THE PuSITlUN VECTOR 

FRO M THE ORIGIN UF THt dODY 

N- I rOPOL( l * KOH) FIXED REFERENCE TC ThE 

ORIGIN CF THE JUDY m= I T UP uL ( 2 . NOH ) 

FIXED REFERENCE *RT T He INERTIAL 
REFERENCE FRAME 

"RH - UODY FIXld REFERENCE FRAME* H I NGs POINT REFERENCE FRAME 

TRANSFORMAT UN MATRICES* DIMENSIONED < 3 • J . 6* ( NHMAX- 1 > ) , 

5 TUKdD IN /SPECIF/. ACROSS HINGE POINT NOH, N0H=2*....NH 
T ME POLLUTING COORDINATE T R AN SF ON M AT ION MATRICES ARE 
COMPUTED. LET 

LKl « o*(N3H-2) + I 

THEN 

( (RH( I* J.LRI+O) .1 = 1 .3). J=I .3) = 9 ELEMENT^ OF TR ANSF CRM A T I CN 

MATRIX CSED TO TAKE VtCTJRS FROM 
G-FRAME COORD I N A Its AT HINGE POINT N OH 
10 HCOY N=I TOPOu ( l • NOH) FIXED REFERENCE 
FRAME C CORD I NAT l j IN dODY N UNDEFQRMED 
STATE 

( (RH( l * J * lK l F l ). 1 = 1 * 3) • J=l * 3 ) = 9 ELEMcWlS uF I R ANSF ORM A T l CN 

MATRIX USED TO I AK- VlLTQKS from 
P-FR/ME COORDINATES AT HINGE POINT NOH 
IU BODY M- I TOPJL ( 2* NOH) FIXED REFERENCE 
FRAME CCCRDINAI-S IN BODY M UNDEFQRMED 
STATE 

( (RH( I » J * LF 1+2) .1=1 • J) • J = l ,3) = TRANSFuRMAT l UN MATRIX G-FRAME 

COORDINATES' AT HINGE PU l NT NOH TO 
BODY N= ITGPOLU ,N0r1) FIXED COORDINATES 
IN 0CDY N DEFORMED STATE 

( <RH C I • J, LM F3 ). I = l ,s )* J-I , 3 ) = TRANSFORMATION MATRIX P-FPAME 

COORDINATES AT rtlNoc POINT NOH TO 
BODY M= ITOPOLI l • NOH) FIXED COORDINATES 
IN BCUY M DEFORMED STATE 

( ( RH I I . J * L R I F 4 ) # I - l * J ) * J - 1 *3) = TR ANSFurMA] i UN MATRIX G-FRAME 

COORDINATES TO 3-rRAME COORDINATES AT 
HINGE PC TNT NOn 

( (WH ( l * J , LRI ♦ *3) • l = l . 3 ) * J=i . 3 ) = TRANSFORMATION MATRIX FWCM 

OQDY N= I TOPCL ( 4 * NOH ) FlXtD COORDINATES 
TO BODY M= l TCPu_ I 2 • N JH) FIXED 
COORDINATES IN Trie. JtruRMCD STATE OF 
BODIES N AND M 

' f-GL = OUDY FIXED 10 INERTIAL FRAME T R A.Nj jF UR M A 1 l ON MATRIX ARRAYS 

DIMENSIONED U.J.NBMAX), STORED IN /BHUSRD/ 

UHCU I, J»N),U1 ,3),J=I ,J) = 9 uLcME'NTs UF f ail TK ANSF CR MAT I C N 

MATRIX Us=.D Is IRANSFORM VECTORS 
FROM cCDr N FIXED REFERENCE FRAME 
COORDINATES TU THE INERTIAL FIXED 
REFERENCE FKAMl 

COL = POS.MION VECrOK ARRAY, INERTIAL ORIGIN To BUOY FIXED 

FRAME ORIGIN. DIMENSIONED (.5«NQMha)« STORED IN /bHaSRD/ 

( D UL (I.N). 1 = 1*3) = J COMPONENTS OF THE POSITION 

VECTOR FROM THE INERTIAL ORIGIN 

to the. Origin of i he body n fixed 

• REFERENCE wKT T HE INERT I ALLY 
FIXED REFE.Kc.NCc. 

PIN - PI INVlRSl TRANSFORM AT IONS for hinge. POINT KINEMATICS 


017886 
017887 
01 7888 
01 7889 
01 7890 
017891 
01 7892 
01 7893 
01 7894 
01 7895 
01 7896 
01 7397 
01 7898 
01 7899 
Cl 7900 
C l 790 l 
01 7902 
01 7903 
01 7904 
01 7905 
01 7906 
01 7907 
01 7908 
01 7909 
Cl 7910 
017911 
Cl 7912 
01 7913 
017914 
01 7915 
01 7916 
017917 
Ci 7918 
017919 
01 7920 
017921 
01 7922 
Cl 7923 
Oi 7924 
01 7925 
01 7 926 
01 7927 
Cl 7928 
01 7929 
01 7930 
017931 
Cl 7932 
01 7933 
C l 7934 
01 7935 
01 7936 
Cl 7937 
Cl 7938 
Cl 7939 
Cl 794 0 
01 7941 
C l 7942 
01 7943 
Cl 7944 
01 7945 
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c 

c 

c 

c 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. 

c 

c 

c 

C 

c 

c 

c 


0 I ML .N-J 1 UNLD l 3 * J . NhMA X ) , STORE o l N /P 1 NRP/ • 

SEC APPENDIX Li VOL l 

( l P l Nl l*J»NjH),i=l,o)»J=l » 3 ) = PI INN/U^jt T ,< ANSF U R M A T I C N USED 

TO RE LATE THi c J.LK kATLS A GOUT THE 
SKEWuC AXES AT Hi Noe. Pu l NT NOH TO THE 
CCMPOiNcNTS C r Ttl- l<tL A T l VE ANGULAR 
VELOCTY VlCTjh OF I»il G-FRAMt WRT THE 
p— FRAME AT Hi Not POINT NOH. 

RP2 - ARRAYS USllO 1 G S I ORE MATRICES RED J l RED FOR f ME 

RP3 CUM PUT A T luN 3F 1 i-*t£ TINE DERIVATIVE uF T Jit: Pi INVERSE 

MATRIX. jjOIH u 1 ML NS l 0 NED ( 3 * J « NHMA \ ) ANJ STuREO 

1 fs /P I NPk/ 

( (RP2< l . J.NOHJ . I - I ) . J = l . 3 ) = 3 BY 3 COEFFICIENT MATRIX FOR 

ThFIA SUB 2 Jkj I IN EO C- 16 VCL l USED 

TO JET PI INvtiKot PUT AT HINGE NCH 

( (RP j< i . J .NOH) . I = 1 .3 I . J = l . 3 ) = 3 DY 3 u UEr F i CitNT MATRIX FOR 

THETA SUd 3 JtiT In EG C- id VCL 1 USED 

TO GET PI INV-RdE PUT AT MlNGC NCH 


FCTJi - StNSUk FRAME LOCATION AND ORIENT All UN 


RS = TRA NSF URMaT I UN MATRICES FRCM SENIOR POINT TO BODY FIXEO 

REFERENCE FRAMt* DIMENSIONED ( 3 . 3 • 2*N SPMA X ) . STORED 
IN /SPECIF/, icl 0t<jUG(46) = . T R’Jt • IJ PRINT 

OS = COORDINATES uf POSIT ICN VECTOR FROM cjjjf FIXED REFERENCE 

lu SENSOR POINT dKT TO BODY F R A Me • STORED IN /SPECIF/ 
DIMENSIONED 4 j »E*NSPMAX ) . SET 0LSJj(4O> = .TRUE. TO PRINT 
h OR SENSOR POI N 1 NS. N5 = l i 2*« •« ii>lo J T LcT 
N = IF rS.VVt l NS) 

LRl ^ *L * NS — I 
l_ R 2 - 2 * N S 

< (:<3( I . J .LK 1 > , 1= l .3) . J-=i ,3 ) = TRANSFORMATION MATRIX WHICH 

TAKES vectors FROM SCNSUR POINT NS FIXED 
COORDINATES TO OUJY N F I Ac D COORDINATES 
IN THE UNDEFCRMED STATE OF BODY N 
< (Ks ( 1 • J ,LR2 ) • 1= l . 3) • J-= i . 3 ) = TW ANSFOk M AT i ON MATRIX SENSOR 

POINT NS FRAME TC BODY N FRAME IN OEFCRMED 
STATE OF B CD Y N 

(Oj(ULKI)fiM.j) = POSITION VcJTUR FROM BODY N 

RLFtRENCE POINT TO SeNSGR PuiNT NS WRT THE 
BODY N FIXED REFERENCE IN DNDEFORMEO STATE 
(D:?( I.LR3)*I=l»3) = POSITION VcClUK FROM OODY N 

REFtwENCE PCINT TO SENIOR PuiNT MS WRT THE 
BODY N FIXED REF Er< £ nll IN DEFORMED STATE 


EH it NR - hINJt POINT KINEMATICS COEFFICIENTS 


BH = VELOCITY 1R ANSFuRMAT l CN ARRAY. THE NJN-ZcHO PARTITIONS 

OH THE VELOCITY TRANSFORMATION EQUATION 11-64 ARE STCREO 
IN THIS AkKAY. THL ARRAY IS STORED IN /OSBsRD/ AND 
DIMENSIONED 4 O • 6 fN MO BCD • 2 * NHM A X - 1 ) • 

SET i)tBOo(45) = • I RoE • TC PRINT 
( (nH( l » J * l ) . I = l « o ) • J = 1 . o+ I RGFL X ( I ) ) = uOMPONENTS OF THE (l.l) 

PARTITION CF THE COeFF I C l ENT MATRIX IN 
dOUATICN 11-84. Ru*.ATcj TO THE Q-FRAVfc IN 
BODY 1 AT HINGE POINT 1. eVALUATtD 8Y USE 
OK tJUATI ON I I -83 


Cl 7946 
01 7947 
017948 
Cl 7949 
Cl 7980 
Oi 79 5 1 
01 7952 
Cl 7953 
Cl 7954 
Cl 7955 
01 7956 
01 7957 
01 7958 
01 7959 
01 7960 
C l 7961 
017962 
Cl 79 1>3 
01 7964 
01 7965 
Cl 7966 
01 7967 
01 7968 
Cl 7969 
Cl 7970 
017971 
Cl 79 72 
017973 
01 7974 
01 7975 
01 7976 
Cl 7977 
Cl 79 78 
017979 
01 7980 
017981 
Cl 7982 
01 7983 
0 l 7964 
01 7985 
Ci 7986 
Cl 7987 
Cl 7988 
01 7989 
01 7990 
01799 l 
01 7992 
Cl 7993 
01 7994 
01 7995 
01 7996 
Cl 7997 
01 7998 
01 7999 
01 8000 
018001 
01 8002 
018003 
01 6004 
01 8005 
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o n 


c 

c 


AT l-UNViu POINT NOh * N CM = 2 • 3 *H L:. I 

LU = ^NOh-a 
Lp - 2 * NOh - 1 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c- 


iN = I TUP CL ( l . NOH ) 
M = l TO PEL < 2 . NOH ) 
.4 MO = IkGFLX(N) 

M.v.P = IkGFLX(M) 


(U--RAM,E IN BCOY N) 

( P— F KAMI: 1 N BODY M ) 

( NMJ MoJlS FOR BODY N) 
( NMP MUJci) FOR BCOY M ) 


c 

< ( Uil( 1 . J .LP > . i - l .u ) 

, J= I * o *■ AMP ) 

= COM PG N c N T S O F 

THE I NOH * M ) 

c 


PAR r l T ICN 

OF THE CJcFFiLlLNT MATRIX IN 

c 


too a r i cn i 

I *b4 * RcL AJti> Tu 

THE P-FRARE 

c 


body m a r 

HINGE PoiiNl NOH* 

EVALUATED BY 

c 


v, 3 L OF EQUATION 1 1 - o 2 


c 

( ( <)H ( I , J ,L0 ) .1 — 1 . o ) 

. J = 1 » UFNMCl ) 

- CCMPUNcNI 3 OF 

THE ( NOH • N ) 


PARTITION OF THE CJcFFIULNT MATRIX IN 
iuvAT l C: N 11-82* REBATES TO I HE O-F'R AVE 
BODY N AT HINGE Pul^T iNjn. EVALUATED BY 
oSL uF EQUATION Il-o2 


SENSOR POINT KINS MAT l CAL COEr r I L l cNl S 


IN 


I N 


VELOCITY IK ANSFCilMAT l CN MATRIX FUR SENIOR POINT FRAMES 
OiMuNSIONhO ( 6 • oFNMuSOC * N SPT > STU^lD IN /UhdSRO/ 

S L T OtiiJUGI 4 / ) = • I K ut • TO PRINT 

FOk SENS Ok POINT NS. NS= l . 2 NoPT 

N - IMbMn (NS) SENSOR POINT NS IN 13CDY N 

LL = IkGFLX(N) LE MCD-o FOR BOOY N 

i I ■= I . o ) * 1 • 6 F LE ) = TR ANSr uk MA T 1 UN MATRIX c SEC TO 

CUT AIN THE CCrMPONt; NTS OF THE BODY N 
INLKTI AL ANGULAR AND NEAR VcLOCIIY 
VECTORS IN SENSOR NS FRAME COORDINATES 
SEE PAGE L 7* VOL I I 


( ( U 5 ( l • J * NS ) 


USER OnF INE CONTROL SfoTcM DA f A 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


CN TO T A = KLAL^O ARRAY OF LuNjTAMS READ IN. IN 3YN310 AND STORED 
IN /CONPaR/ • T HtS L ARE USER DEFINED PARAMETERS* 
DIMENSIONED (MAXCNT) 

DISCOS Aa SOMES 1HAT : 

CNIOTA( l > * I -I *NOELT A = INITIAL CONDITIONS FCR THE 

NOtLT A JlF = £kENTIAL EQUATICNS 
CODED JY THE USER IN CCNTRL 
CNTOT A ( II ♦ I *uT*ND£L TA = CONSTANTS THAT THE USER WILL 

NEED Furt THE ustrt COOED 
EQUAT lu.No 


ST ATE VECTOR AND 11^ FIRST TIME OERIVATIVu 


THE REAL *6 ARRAYS Y AND YdT *K£ STORED IN /VECTOR/ AND 

0 IMi-NSIGnED (KYI* IN SEVERAL ROUTINES I HE iYMbuLlC NAME YD 
IS 0^>ED INSTEAD OF Yul. SET DEBUG ( 39 > =. T RUE . TO PRINT 

1 INSTANTANEOUS VALUE S OF ELEMENTS IN Y AND Y J T ARRAYS 


(Y ( I ) , I =LL-CO ( N) *LOCJ ( N> + 2) = 


(Y(I ) , l^LOCO ( N).+ J.LUCO ( N ) 4-S > = 


CCMFCNENTS uF INERTIAL ANGULAR 
VELOCITY VECTOR OF BODY N WRT TFiE 
BODY N REFERENCE 

COMPONENTS or I.N^RTIaL LINEAR 


Cl 8006 
01 600 7 
Cl 6008 
01 6009 
0 1 60 10 
018011 
01 8012 
oi ao i 3 

C18014 

c i a o i s 
018016 
018017 
018018 
01 80 19 
018020 
018021 
018022 
01 8026 
018024 
Cl 8025 
01 8026 
018027 
Cl 8028 
01 0029 
01 8030 
018031 
018032 
Cl 8033 
01 8034 
Cl 8035 
01 8036 
018037 
01 8038 
Cl 8039 
01 8040 
018041 
Cl 8042 
01 6043 
018044 
01 8045 
01 8046 
01 8047 
01 8048 
01 8049 
01 8050 
018051 
018052 
C L 80 53 
018054 
016055 
018056 
01 8057 
018056 
018059 
01 8060 
018061 
01 8062 
01 8063 
018064 
01 8065 
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c 

c 

c 

c 

c 

c 

c 

c 


( V ( l ) , I = LCCU (N ) +6.LUCUI N 1 *-t> = 
— 1 + lRGFEXlN) ) 


{ Y ( I I , 1 =LUCU(N) «-6HKGFLX (All .= 
LUCU l N ) +o*- I KuFLX IN ) 

-1 +NMUW12.N) J 

(Y 1 l ) • I -LUGO lNO«-N> i = 

LDCL(NdFN)-lHP;ljrLXlN) ) 


( Y ( I ) , I = LGCU ( i*NUH J . 

L CCd (2tNlifl )- l+NDETA ) 


(Y ( I ) . I -LCCJ (2*N0fcl . 

LCCUl <2 »ND + 2 )-l HNDELTA ) 


(YC( l ) . 1= t .NEU) 


VELOCITY VECfUH UF (JUDY N «HT THE 

ecoy n reference 

GENERALIZED MuuAl VeluCITIES 
ASSOCIATED w 1 T H THE FLEXURAL MODES 
UF QODY N, (IN ASCcNUING ORDER AS 
HEAD IN. NCWc IF DDUY N RIGID) 

SPIN BATES JF THe acTIvE WHEELS 
IN BCD Y N. (1.4 ASCcNUlNG ORDER AS 
READ IN. NONE 1 = NMUwl 2,N)=0) 

generalized modal displacements 

ASSOCIATED « 1 TH T He FLEXURAL MODES 
OF BCDY N. (In ASCENDING ORDER AS 
READ IN, NONE IF BODY N RIGID) 
dETA COORDINATE^ UsED TO DEFINE 
UNCONSTR AINlD AND RhENU M I C ALL Y 
CONS 1 R A I NED MOTION BETWEEN BODIES 

mhich are contiguous, 
let : 

NU.M=BETA COORDINATE NUMBER FOR 
DEVICE OF FRclDOM I- l AT 
HINuE PdInT N. THE 

numolking algorithm is 

NUM = 0 
CG 1 N=1 , NH 

DO 1 I =2 . 7 

IF ( IHDATa( 1 .N) .Eo. I ) GO TC 1 
NUM s NuM+1 
l CCNTINUS 

STATE VARIABLE GLuHJINATES WHICH 
ARE ASSOCIATED ft i I H 1HE N DEL T A FIRST 
ORDER DIFFENTIAL EoUATIONS CODEC EY 
THE USER IN' CoNTkl 
FIRST TIME DERIVATIVE UF THE 
COORDINATE' Y ( 1 ) IN THE SI ATE VECTOR 


p l.NJV - FIND GET OF INDEPENDENT COORDINATES IN STATE VECTOR 


IFLAG = DUMMY VARIABLE be I IN CALLING RCoTINi 

iflag = j Initial pass through compote magnitudes of 

INJlPlnoenT COORDINATES UF STAft VECTOR 
IFLAG = l Nor AN INTERMEDIATE STEP THROUGH RUNGE-KUTTA 

INTEGRATION CYCLE, GET THE JcPEI.UtM COORDINATE 
MAGNITUDES AND PUT THEM IN T He STATE VECTOR. 
AlSU CHECK IC SEE IF OPTIMUM jl I OF INUEPENDENT 
CUGKUlNATeS BEING USED 

IFeAG = 2 AN INTERMEDIATE S1EP THROUGH HUNGE-K LT T A , GET 

OcPENdcNT COORDINATES. USE same. SET OF 
INJLPcNDcNT COORDINATES as LdMPUICD cn last 
pass Through wtih ifl A u - t 

DV. = MUL T 1 -PURPOSE ARRAY STORED IN /A.Mjtiw/ 

dIMENSIUNEU ( C « MiMm X , NBM AX4 ( b f NM bbUD ) H.vMw MAX ). 

AT THE DcuUGaGo PRINT POINT IN FiNuU LAdELcu 
■ THE UP MATRIX Is' 

( (li «{ 1 . J I . I- I ,U*Nh I , J = I ,NG ) = THl vE.JUIY TRANSFORMATION 
MATRIX AS OeF I Mu J BY EudAT ICN I I — E 4 
l N VCE 1 

INOCP - l INDEPENDENT /D lP ENDENT COORDINATE TAJ__. AN I N T C GER * A 

ARK AY G T Ur. E U IN /VINUEP/ ANU D I Ml N s 1 u N i D (NY). USED FOR 


01 8066 
018067 
013068 
01806V 
01 8070 
018071 
01 8072 
018073 
01807A 
01 607 S 
Cl 8076 
01 8077 
018078 
01 e079 
018080 
018081 
016082 
01 8083 
018084 
01 8085 
01 6066 
Cl 8087 
01 8088 
01 808V 
01 3090 
018091 
013092 
C l 8093 
018094 
01 6095 
C 1 8096 
018097 
01 8098 
016099 
018100 
018101 
018102 
010103 
016104 
018105 
08106 
01 8107 
018108 
Cl 81 09 
01 81 10 
0181 I 1 
018112 
016113 
0161 14 
016115 
016(16 
Cl 8 1 1 7 
016118 
081 19 
016120 
018121 
018122 
018123 
018124 
018125 


B -315 



oftr. oronnnnr>nor*>onor. onor'. nnnrnf'ionnrsnnnnnnnrvor. r\ r> n n o r. n n 


c 
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THE CASES WHEN 

IFLAG = 1 DR 2 

TO DEFINE WHICH COORDINATES IN THE STATE VcCTOh Y ARE 
TO Lit TREATED AS BEING INDEPENDENT AN J WHICH DEPENDENT 

INDEPCLU) = 0 IMPLIES THE COORDINATE Y I LG > IS FOR THE 
PRESENT INTEGRA! ION STEP A DEPENDENT 
CCuR D I N A TE 

1NDEPILDI = 1 IMPLIES THE COORDINATE YILU) IS FOR THE 

PRESENT INTEGRA! ION STEP AN INDEPENDENT 
COORDINATE LU=l....,NO 

AT THE: END OF EACH INTEGRATION STcF A CHELA IS MADE IN 
F INDU TO AsCtRTIAN IF A BETTER SET Or INDEPENDENT 
COORDINATES CAN BE FOUND; IF SO. AKKA< I NDtP IS UPCATED 
THE ALGORITHM FOR COMPUTING THE SET OF INUEPENOtNT CCOPDS. 

HAS A BOILT IN BIAS. THE DEPENDENT CJOIDs. USED TO 
ACCOUNT FOR CONSTRAINTS AT HINGE PG1NI 1 ARE CHOCSEN 
FROM THE VELOCITY COMPONENTS USEd TO DEFINE THE INERTIAL 
VELOCITY OF THE G FRAME RELATIVE [u I nE P FRAME AT 
HINGE POINT l. IF THIS CAN'T BE DONE ANY COORDINATE THEN 
BECOMES FAIR Game FOR USE. 


Y Du T - FIRST TIME DERIVATIVE OF STATE VECTOR 


SUBROUTINE YUuT DIRECTS 1 HE COMPUTATION RedOIReJ FOR THE 
DETERMINATION OF THE YuT ARRAY. 

GGV = TURQUE ARRAY. DIMENSIONED (NBM AX* ( oFNMDoUO I FNMWMAX > 

THIS ARRAY IS IV Cl SIORED IN COMMON. IN YJOT IT IS 
INiriACl^tD TO ZERO ON EACH PASS THROUGH. IN SUBROUTINE 
GRVGHD The GENERALIZED FORCE ASSoElATtD WITH GRAVITY 
uRAOIENT EFFcCTS ACTING ON EACH STaTE VECTOR 
CCOKOINAIE IS COMPUTED AND STORED IN uvV. In SUBROUTINE 
TUKDOE ALE OTHER dYSTEM FCRCE ANd TORQUES ARE COMPUTED 
AND ADDED ON To gGV. CEUUGISO AND 57) = .IRdE. TO PRINT 

(GGV ( J ) . 3 = 1 . Nul = TOTAL GENERALIZED FlikeE ASSOCIATED WITH THE 
J-TH STATE VECTOR COUkolNAfc tOUATICN 
□MB = 6*Mn(-l)»u**T MATRIX IN EQUATION II-O. VOt 1. COMPUTED 

in gltbmb and pointed if cebogias i^.frijE. . stored 
temporarily in thl aw array via an eudi valence 
bm - u*MFw( — i) matrix used also in eqoatidn ii— o. ccmputec 

IN GETBMJ AND SIOK Ed TEMPORARILY IN ANOTHER PART OF 
THE GW ARRAY 

ED TP = rIKjT DERIVATIVE uf- THE HINGE POINT <1 NEMATIC COEFFICIENT 
MATRIX ASoUlIATED WITH THE P-FRAME. I/vTltU. C-l. VCL 1) 
DI.MENSIOhlD i G, c + NKDuCD) . STUPED LOCALLY 

BOTP FOR lACH HINGE POINT PRINTED IF Do DO » ( S 1 ) = . T ROE . 

SOTO = FIRST DERIVATIVE OF THE HINGE POl N I (INlMaTIC COEFFICIENT 
MAT R 1 X ASSOCIATED WITH THE U-FRAME. JOTltv. C-2. VOL 1) 
DIMtNSIONtD (G.gFNMDBGD) . STORED LUCAlLY 

GOTO FOR tACrl HINoE P C 1 NT PRINT Ed IF DcGOoISl )=.THUE* 

ALAM = LAGRANgE MULTIPLIERS. FORCES AND TGROOEo uF CONSTRAINT 
bTURCD IN A COMPACT ARRAY IN ZLAMddAX WHICH IS 
DIMENSIONED IGFNHMAa), 0tBUG(S2> s.r-iJb. To PRINT 
LcT 1C = IV(I.L) THEN 

ALAMIIC) = CCNSTRaINT FORCE OR TORQUE ACTING TO RESTRICT 
UETAlltl.Ll MOT I C N AT HINGE POINT L. NOTE THAT 
THE LAGKANGc MUEIIPLIeRS CJMPuTEU IN bAKSLV ARE 
TIIl. C gN g I R A I NT FORCES AND I — *R Q J " g 
V - ALAM VIA AN EQUIVALENCE IN YOGI 

IV = LAGRANGE MULTIPLIER NUMBERING TADLe, InTgGER ARRAY STORED 


Cl 6126 
01 812Z 
016128 
C18I29 
018130 
018131 
018132 
01 6133 
018134 
018135 
01 8136 
01 8137 
01 6138 
018139 
01 8140 
Cl 814 1 
01 81 42 
01 8143 
Cl 8144 
01 8145 
018146 
016147 
018148 
Cl 61 49 
018150 
018151 
01 6152 
018153 
018154 
01 8155 
Cl 8 I 56 
018157 
01 81 58 
01 81 59 
01 81 BO 
018161 
Cl 8162 
01 6163 
0131O4 
01 8165 
018166 
Cl 8 lt.7 
Cl 8166 
018169 
Cl 81 70 
C 1 8 1 7 1 
0181/2 
018173 
018174 
Cl 8175 
01 81 76 
01 81 77 
018178 
01 6 I 79 
Cl 31 80 
018181 
Cl 61 82 
018183 
018164 
Cl 8185 
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c. 

c 

c 

c 

c 

c 

c 

L 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

L 

C 

c 

c 

c 

c 

c 

c 

c. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


Ifi /IVCUNQ/ t) 1 Mfc.No l UNEJ (OtNHMAXi TU .->K'jVl Jt A COMPACT 
NuM iJt'.H 1 Nm icilotNCi: FOP THu LAGRAnGE 'IOl I i PLIERS 
l V ( l *L > - NUMoeR ASSIjNLu INTERNALLY TO 1 ii i_ -a GHANGt 

MULTIPLIER AjiuClATt-J TH UF F k £ £ D C M I 

A I HINGE PCI NT L, LOCALS ZERO IF Ju jHtc UF 
FfthfcwiiM i AT Hi.JvIE PC l NT l j KJ'jO I haIncD# 

CUMFOTfJ IN uEIHVG 


LSL-R SUPPLIED SUtlrtOU I l NlS 


PATH CP T FA N Al TEMPI JHt IMPELS IDLE TASK CF Ft-CjtclNvi ALL PCSSIOLE 
SIMULA! I CN NlcDS UF ALL POTENTIAL USD* 5 

•OiuCUS ccMANoS LSER t NT ERFACl • 

THc: CiuR MUSI COOc iN FURTKAN ALL L’CUATICnG K“UJ IKLU TO DESCRIBE 
ALU NUli-uYRUSCuP l C AND NUN - GRAVITY CPADlcNT c->’tCTS REQUIRED 
F Oi< SIMULATION PUkPcSES 

Cl sees A I TEMPTS To PROVIDE THE USER WITH A CLcAN InTcRFACE BETWEEN 
PAPA ME T E R i> WHICH wGULU .NCR V ALL Y Be CON 5 I oEwEo IO BE P KY 5 l C A LL Y 
PuALiault. and the GENERALIZED FORCE AND TukUUE PARAMETERS 
L ;i C O f-UR ACTUAL COMPUTATION. This IS DUNE VIA A SET OF 

Functions and vubrouiines which requik; h_l u^lk to define 

(U.UIAN PHYSICALLY REAL I c. ABLE PARAMETERS S TheSc PARAMETERS 
/RE THEN AUTOMATICALLY TRANSFCRMED I NT O THd APPROPRIATE 
ClNlRALI ZED PAR A Me I lKS RlOuIRFO FOR CJMPUr^liJN. 

all iSiiK REQUIRED INPU1 DATA IS NORMALLY Rc.AU rMuM CARDS BY 

FORMATTED head STATEMENTS IN SUBROUTINE DYNSU. IT IS HERE 
THAT THE USER DEFINES 

II NJcLIA - TUTA- NUMBER CF ADDITIONAL FUST URjER 

DIFFERENTIAL EQUATIONS WHICH will dL USER 
DEFINcD IN SUBROUTINE CCnTRL 

d) CNTdTAI l ) • 1 .LE .NDELl A - INITIAL CUNDlliUNS FOR THE USER 

DEFINED Olr FL kSNC l AL EQUATIGNS 
J) CNTOTAl l ) . I .GT .NDELT A - ALL OTHER PARAMeTEKIC MAGNITUDES 

GF PARAMETERS uSEu IN THE USER 
DEFINED EQUATION* 

ALL L ?LR REQUIRED STATE VARIABLE DATA CAN BE 'JoTAInED BY SIMPLY 
INCLUDING THl APPROPRIATE CCMMCN BLOCKS IN THc SUBROUTINES 
tcINC USER MODIFIED. DATA MAY BE TRANdFeRuD bETweEN THE 
CSeR MUDIFIAdLe ROUTINES BY EITHER USING AVAiLAULE SPACE 
IN /CGNPAR/ Or. aY DEFINING NEW SPECIAu PU«POSl lLMMCN BLOCKS 


ScDRCUTINE CCNTRL USER DEFINED DIFFckuNT I AL cuUATICNS 


USER SPECIF l CAT ICM GF ALL NUN- GYR OSCOP I C AND NUN-oRAVlTY GRADIENT 
FORCES AND TUHuutS FREQUENTLY REQUIRE* THE CAPABILITY TO ADD 
AND SIMULTANEOUSLY SGLVc SEVERAL ADDITIONAL DIFFERENTIAL 
CGJATIONS. THE^E ARE REFlRED TG AS •CONTROL cQUATIONS* SINCE 
IN MCST SPACECRAFT SIMULATICN PROBLEM* THEY ARE THE EQUATIGNS 
MICH SIMULATE THE AC.T I Vl CN-BOARD CONTKUu SYbTtiM. THE TOTAL 

number uf user defined first order differential eouaticns 
is •NOElTA*-, this parameter is set via data input in d y ns 10 


Cl 81 86 
01 Bl 87 
Cl 6 168 
01 81 89 
Ci 8 190 
01 8191 
Cl 8 192 
016193 
01 8 1 94 
Cl 6195 
01 81 96 
Ci 6197 
018198 
01 8199 
Cl 8200- 
01820 l 
Cl 6202 
CI 8203 
018204 
018205 
01 8206 
Cl 8207 
01 8208 
01 8209 
018210 
C 1 82 I 1 
01 8212 
018213 
018214 
018215 
018216 
Cl 82 1 7 
018218 
018219 
018220 
Cl 8221 
01 8222 
Cl 6223 
016224 
018225 
01 8226 
01 6227 
Cl 8228 
01 8229 
018230 
Cl 8231 
Cl 8232 
018233 
01 8234 
01 8235 
01 8236 
018237 
01 823B 
01 8239 
018240 
018241 
018242 
01 8243 
018244 
01 8245 


B -317 



rinnnr, nririctrrtnnnn r>r\nnnnnn S'. rinnnr>rrr>rir. r, nrinr'r. nr, rinnr. nn 


C 

C 

c 

c 

c 

c 

c 

c 
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c 

c 
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♦ ** if transfer Functions are 10 be generated ihe user must adhere 

To THL RULE THAT ALL CONTROL INFORMATION (SYSTEM STATE CATA) 
CCMES THROUGH sENtSUK SluNALS. IF THIS IS 'JUT JUNE TFE 
M-.ILHICAl L INC Aft I Z AT ION ALGCRTHIM C A NN U T D l rFt*EN T I ATE 
tcUcetl CONTROL TURciUeS AMO GYROSCOPIC l uJOutS » AND HENCE 
CANNOT UPON FEEDBACK LLU.’S WEN OPEN AND .)JASl-UptN LOOP 

transfer functions ake called fur 

IN ADDITION Tt! DEFINING ALL CONTROL COUATI'JNj IN oONTRL INTERNAL 

computation Louie Rlouires that the UuCr al su define in ccntrl 
nxss — total numolr of senscr signals tu tic defined 

IN UOAOLI (DtFAULT NXSS=1> 

NOT u - TOTAL NUMBER of TORQUE SIGNALS tu BE DEFINED 
IN EGADD (DEFAULT NOT 0=0) 

GISCCS ASSUMES THAI Tut NULL r A STATE VARIABLES ASSCJOlATED WITH THE 
NJclTA USER DEFINED CONTROL EQUATIONS ARo I NDc.Pt N DE N T . TO 
SIMULTANEOUSLY SUcVL THESE EQUATIONS AlOnG WITH I Ht OISCOS 
CtRlVEU PLANT LuuATIlNS THE FOLLOWING oTuRAut cUNVtNTION MOST 
Et adhered to: 

Lc T 

LOLL = LOLUl 2*N0+i )- l I SEE QLFInITIJN ABOVE CF LUCU) 

TniiN 

YDT (LDEL + I » . I = 1 .NOLL TA = USER DEFINED u l NEAR DR NON-LINEAR 

FUNCTION u = TIME AND SYSTEM STATE. 
IMIS IS Tilt l-T.T uSLR DEFINED 

first order differential equation 
which wil_ be s i mulaT edosly 
INTEGRATED wlTrt THl DISCOS DERIVED 
PLANT EQUATIONS 

YILDI.LF I ) . I =1 .NDLlTA = LOCATION IN THe STaTe VFCTOR ARRAY 

OF THE STAlt VARIABLE OBTAINEC VIA 
NUMERICAL INIEuRAlIUN CF THE I- TH 
USER DEFINED DIFFERENTIAL EQUATION 

AiNO 

CNTUTAI I ) .1 =1 .NDLlTA = INITIAL OuNuillUN TO BE USED FLR 

ThE I-Th usek DEFINED 0 I F F EREN T I AL 
EOLATION. I He Sc PARAMETERS ARE SET 
VIA DATA INPUl IN DYNSIO 

FPeCLENTLY THL ONLY uJNTROL SYSTEM DESCRIPTION AVAILAOLC TO THE 

analysist is a multiluOp feeoeack blccx diagram consisting 
CF TRANSFER FuivLTIUNS. logic GATES AND NDN-LINeAR elements, 
the discus user may cither transform this discripticn to the 

TIME DOMAIN ANU DIRECTLY C COE: THE RESU.TANT DIFFERENTIAL 

ECUATIUNS. UR SIMPLY INPUT THE VARIOUS TRANSFER FUNCTIONS AND 
LET THE CCJMPUttK TRANSFORM THEM AND Sul uP I He APPROPRIATE 
C IF FEReNT IAL EuuATIUNS. THE USER MAY IF II IS DESIRABLE CCDE 
CIReCTLY SOME OF the DIFFERENTIAL ECUATIUNS ANU LET THE 

computer generaIl thl rest from inputted irans for functicn 

CATA. UOVIOuSLY. The USER MUST ADHERE Tu CERT IAN PROGRAMMING 
RULES TU SET THIS CAPABILITY UP: 

1) I FERE IS NO REAL LIMIT AS TU THE NsMBLR UF TRANSFER 
FUNCTIONS TO Be INPUTTED OR TO THE JednSe UF THEIR 
DENOMINATOR POLYNOMIALS. THIS IS USLR jcT IN CONTRL. EACH 
TRANSFER Function must HE GIVEN AS a POLYNOMIAL RATIO IN S 
C F THE FORM 

All) ♦ A(2)*S F ... F A l KS) *S** ( KS-1 ) 

TFI S) = 


01 82 A 6 
01 824 7 
01 8248 
010249 
01 8250 
0 l 825 l 
01 8252 
Cl 8253 
0 l 8254 
018255 
018258 
01 6257 
018258 
01 8259 
Cl 8260 
01 6261 
01 6262 
01 8263 
0 1 8264 
010265 
Cl 8266 
01 6267 
016268 
01 0269 
018270 
016271 
01 8272 
016273 
01 8274 
018275 
01 6276 
01 8277 
018278 
010279 
01 8280 
016281 
01 8262 
01 8283 
016284 
01 8285 
01 8286 
01 8287 
Cl 8288 
01 8289 
01 8290 
0 1 829 1 
018292 
01 6293 
018294 
Cl 8295 
01 8296 
Cl 8297 
01 8298 
01 8299 
018300 
C l 830 1 
018302 
018303 
Cl 8304 
01 8305 
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c 

c 

c 
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fall) ♦ b(2>*S * ... ♦ Ul NS) *S«* ( NS- 1 ) 

•hCKc (K5.LE.NS.AN0.NS.GE.2) 

1 ) DEFINE THE FOLLUWING MAXIMUM SIZE PARAMETERS VIA OATA 
STATEMENTS IN SudKuUTINd CCNTRL 

N PL Y = IUTAL NuMJLfi UF TRANSFER FUNCTIONS TO b E INPUTTED 
l 1ST = 0, FIRST PASS THROUGH CONI ML Fi-AG 

KRY = UTHc DEGREE CF THE HIGHEST Ui-iREE DENOMINATOR 

PGLYNOMIae TO Q£ INPUTTED (JScJ Tu ScT DIMENSION 
OF ARRAY IN WHICH ALL PULY. CDEFF. STORED) 

KCY = 2*NPLY 

c ) u Sc THE FOLLUwlNu ACRONYMS TC DEFINE THE TRANSFER FUNCTION 
•DATA STURAGl. ARRAYS 

KPLY = TRANSFER FUNCTION DENOMINATOR JilGwEE ARRAY, 
INPUTTED INTEGER44 ARRAY DIMENSIONED l NPLY ) 

NPLYIK) = ONE PLUS THE UEuRti OF THE DENOMINATOR 
OF THE K-TH INPUTTED TRANSFER 
* UNCTION, 10=1,2 NPlY 

CPLY =. TRANSFER FUNCTION POLYNOMIALS D ULF F 1 C I E N T S ARRAY, 
INPuTTEU RtAL«e ARRAY DIMENSIONED KKY.KCYl 

OPLY ( l . 2*i0- 1 ) = COEFFICIENT JF l Hi. 5**<I-l) TERM 

IN THE j-NUMINAIUR OF TFE K-TH 
INPUT TEJ TRANSFER FUNCTION 
LPLY(l,2*K) = COEFFICIENT JF T HE S**(I-1) TERM 
IN THE NUMERATOR OF THE K-Th 
INPUTTED IkAnSFek FUNCTION 

K= 1 NPLY 

1 = 1,2,..., KPLYI K) 

A) INuERl THE FOLLOWING FORTRAN COOE i V LUNTRl TU INPUT ALL 
TRANSFLR FUNCTION DATA IN A OISCOS CUNS1SIANT FORMAT 
IF l 1 1ST .Nc.O) GO TO 110 
I l SI = l 

IF (NPLY, tu. J) GO TO 110 
CALL ZcRU( LPL Y , KRY ,KCY ,KKY ) 

DO 10 5 K=I,NPLY 
K. 2 = 2 *K- 1 

10 J CALL RE AO( CPL Y( l . K2 ) , KPL Y( K) , N2 , KR Y , KcY ) 

CALL *Rl Tt (CPL Y . KRY , KCY . 4HCP. Y ,Krt Y ) 

II 0 CONTINUE 

E ) TC TRANSFORM S-OUMAiN TRANSFER FUNCTION DATA TO TIME DCMAIN 
CONTROL EUuATIUNS USE 

SUdROuTINE TFPLY ( A , O , U, X . NS ,L ) 

TFE FOLLOWING CLOCK DIAGRAM SETUP IS ASs'JMcD DY TFPLY 


UIK..T) | I X(K,T) 

>| TF(K.S) | > 

I I 


TFPLY MUST dE CALLEU EXACTLY NPLY f 1 MES FROM CONTRL EVERY 
I NTLORAT I UN STEP. ON THE K-TH CALL TO TFPLY FROM CCNTRL 
TFPlY ASSUMES THAT T Ht FOLLOWING PARAMEIcKS HAVE 6EEN PUT 
DY THE USER PROVIDED COOE INTO ITS DUMMY ARGUMENTS: 

A = COEFi ILIlNTS OF THE DENOMINATOR POLYNOMIAL OF 
Tr(K.S); THAI IS COLUMN 24K-1 Ur ARRAY CPLY 
d = COKFf ICILNTS UF THE NUMERATOR PJ.YNUM1AL OF 
TF(K.S); THAT 1= COLUMN 2«K uF ARRAY CPLY 


01 8306 
01 8307 
Cl 8308 
Cl 8309 
Cl 83 1 0 
01831 1 
018312 
01 8313 
C 1 83 1 4 
01 83 1 S 
01 8316 
018317 
018318 
Cl 8319 
01 8320 
C 18321 
01 8322 
01 8323 
Cl 8324 
01 8325 
01 8326 
018327 
018328 
01 8329 
018330 
018331 
Cl 8332 
01 8333 
018334 
01 8335 
01 8336 
018337 
01 8338 
Cl 8339 
018340 
C I 834 I 
Cl 8342 
018343 
018344 
01 8345 
01 8346 
Cl 6347 
01 6348 
01 8349 
01 8350 
018351 
Cl 8352 
018353 
01 8354 
Cl 8355 
01 8356 
01 8357 
018358 
Cl 8359 
Cl 8360 
018361 
01 8362 
018363 
01 8364 
01 6365 
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U - INSTANT ANEUUS VALUE OF THE USER DEFINED VARIABLE 
WHTeH FEEDS INTO THE BLOCK DEFINED BY TRANSFER 
FUNCIIUN TF(K.S). U(K.T) MAT BE ANT LINEAR CR NCN- 
L I REAM FUNCTION OF STSTEM STATE VARIABLES DEF I NED 
IN THE TIME UUMAIN 

NS = 1 V DEGREE Of- THE DENOMINATOR POLYNOMIAL OF TF ( K , S » I 
THAT IS, KPLY(K) 

L = LOCATION IN T He STATE VECTOR ARRAY T OF THE LEADING 
ELEMENT OF THE KPLVIKI-l STATE VARIABLES TO BE 
ESTABLISHED BY f FPL V FROM TF ( K , S I 

NOTE THAT THE NPLY CALLS TO TFPlY *ILL 
ESTAfaLISH EXACTLY 

KPLY I 1 > +KPLT ( 2 ) F. . . FKPLYI NPLY I -NPLY 
NEw CONTROL EOuATICNS AND ASSOCIATED 
STATE VARIABLES 

WITH THE AuoVc DATA LOADED INTO T Hi DUMMY ARGUMENTS OF 
TFPLY IT WILL DEFINE: 

YD< L-l + I ) , 1 =1 ,KPLY ( K ) -1 = INST AN! ANED JS VALUE OF THE 

FIRST TIME DERIVATIVE OF THE 
I-TH STATE varI ABLE REGUIRED 
BY THE T RANSFuRMaT ION OF 
S-OCMAiN DATA TU THE TIME 
DOMAIN 

X = INSTANTANEOUS VALUE OF THE ODTPdT XlK.T) OF THE 
ULOCr. DEFINED BY TRANSFER FjNCTION TF(K.S) 

TFE ALGURITHM used TO GENERATE THE KPl.YIKI-1 CONTROL 
EOUATIONS IS GIVEN AS follows: (SEE PAGE 7 a, VOL I) 

AN=A(N3) 

00 10 1=1. NS 

A ( I I = A ( I 1/ AN 
10 Bill =U t 1 ) / AN 
ON =04 NS I 
00 20 1=2. Nj 

J = NS- I vi 
k = l+ i -a 

IF ( I .EG. NS ) GO TO 2 S 

eO YO(KJ = -A(J1*Y(L> V YIK + 1) + l J l J > - A l J I * BN ) * U 
25 YO(K) = -A(J)«Y(L> + (B( J ) “A ( J ) I(1N ) *U 
X = Y ( L ) V BN*U 

THE USER WILL HAVE IU GC THROUGH THIS ALGURITHM IF NON— EERO 
INITIAL CONDITIONS FOR SELECTED CONTROL VARIABLES ARE 
RLUGIKlO TO AVOID PRGlUNGCO TRANSieNI RESPONSE. AGAIN. ALL 
INITIAL CONDI riCNS ARE DEFINED IN THE 1NPOI ARRAY CNIDTA 


FUNCTIONS AO T t, AD D T UEF I NC RHECNCMIG COVSIRAINTS 


ASSGNt TFAT AT HlNuc PGIM L. RELATIVE MCI I ON WITH RtSPECT TO 
CejKLL OF FREEDOM I IS RHE O NCM I C ALL Y oJNSTRAINto. 

LEI 

RN = 6* IL - 1 ) * I 


then 

AUOT(NN.l) = uSE« PRESCRIBED MAGNITUDE UF THE SfcCCNC 

timl derivative cf slta-ui.l) at time t 

AOT(N.'J.T) = USER PRESCRIBED MAGNITUDE UF THE FIRST 
TIME DERIVATIVE CF JETA.-UI.l_) AT TIME T 
WHeKE BETAH Is DEFINED ABOVE UNDER T He TIIll 'KINEMATIC CATA 
INPUTTED AND COMPUTED* 


018366 
01 8367 
018368 
01 8369 
018370 
01 8371 
01 8372 
01 8373 
016374 
01 8375 
01 8376 
Cl 8377 
01 6378 
01 8379 
01 8380 
018381 
01 8382 
018383 
Cl 8384 
018385 
Cl 8386 
01 8387 
01 8388 
01 8389 
018390 
018391 
018392 
01 8393 
01 8394 
01 8395 
01 8396 
01 8397 
01 8398 
018399 
018400 
018401 
018402 
018403 
01 8404 
01 8405 
01 8406 
01 8407 
01 8408 
01 8409 
Cl 84 l 0 
018411 
018412 
01 8413 
018414 
01 84 1 5 
018416 
018417 
01 84 I 8 
Cl 8419 
018420 
C 1 842 1 
01 8422 
018423 
018424 
01 8425 
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IF At j r ( Nfi • r ) IS Tu dc DEFINED 8Y * Dl SCO# T 1 Njuo'b FUNCTION CF TIME 
li 13 KLCOMMLKucU That AjT(NN,n BE UOfAlN ED VIA numerical 
I.Vi LCfcAT IGN OF AJUl(NN.r) IN SUBROUTINE cONTRL. IF This 
IS NLl J CNE NUMERICAL PUOBtLMS CAN OCLJK. 


iLuRCCTlNE EXTUR EXTERNAL TORQUES AND FLMCcS 


ALL CxICUNAL TOROUtS AND FORCES ACTING CN T HL SYSTEM MUST BE 

CeFINED IN SUo^UUTInL LxTGR, SEE PAGc 12# vUL li. t XT OR IS 
< ALL feu I- KLM SUBROUTINE TLRCUE IMME C £ AT tc Y aF 1 c« RETURN F R CM 

ccntrl. upon entry ;ntu uxtcr the state vcliur y contains the 

IN'jT AN 1 A NCO c S VALUES OF ALL PLANT AND lUNTRuL jYSTtM STATE 

V AK l A bLL 5 • THE UiLK MAY oSt ANY OF THSSu SI Alt VARIABLES CP 

ANY CtHcH system parameters stereo in common to create the 
external forcc./tu*gue vectors require^ oy lguatign 11-74 cf 

V CL I * 

THE L«hK MUST AOHLHE TO THc FOLLOWING ROL-Ij InuRDLR TO CCPReCTLY 
CfcF INE. I HE ACfluN OF tX I EWNAL FORCES AND TokUoLSI 
l) EXTcRNA L FtkC.cS AND TURCUES MAY .Be APPLIED ONLY AT 

•sensor points •• a maximum of nspmax sjch points may ee 

DEFINED (VIA DATA INPUT IN OYNSIO) 
el) DEFINE THE PUlLUwING acronyms as 

NTEX = TuJAL NUMBER OF 6-ELcME NT r URC i / lOROOE VECTORS 
Tu dc DEFINED IN CXTCR ANj KtiT URNcJ TO TORQUE* 

ISPN = FORCE/ TOKOUt APPLICATION PUlNf ARRAY. THE FORCE/ 
TOKQUc VECTORS M UST BE NUUdcfciU AND CORRELATEC 
a 1 1 H SENSOR POINTS. HENCE THE jSlK MoST DEFINE 
THc Lu cMtM S UF ISPN ON The tlRsT PASS THROUGH 
exiuh such that 

ISPN(L) = SENSOR POINT NjMdtW ASSOCIATED WITH 
I HE POINT AT WHICH FORCE/TORQUE 
VECTOR NUMduR u»L=l . NTEX 
IS TO BE APPLIED 

TEX = FoRCE/ToROUE VECTOR ARRAY. PUT CUMPUT AT l CNAL 

EFFICIENCY THE USER SHOULD RETURN A MAXIMUM OF ONE 
POkCE/TUKuOE VECTGR PER ScnSUR PuiNT# HENCE IT IS 
DIMENSIONED <G#NSPMAX> IN TOkJOt. THE ELEMENTS OF 
FOhCc/ TURGUE VECTOR L are TU 0 1 STORtD IN CGLUMN L 

of r t x a cclko i ng to the Following definitions 

TlX ( I #u)»l-l#2#3 = X » Y * 2 CUMPUNtNTS OF THE 

RESULTANT EXTERNAL TORQUE L TO 
BE APPLIED AT SENSOR POINT 
ISPN(l) # ycLATlVc TO THE LOCAL 
ISPNiL) PiXtO ReFERENCE frame 
tex ( i # l ) . l =* • 5*6 = x • y * z components of the 

RESULTANT tXTERNAL FORCE L TO 
BE APPuicJ AT ScNSCR POINT 
ISPN(l). ^clAUVc TO THE LOCAL 

ispn(l) faxed reference frame 

Both O l i> TK l BUT E D AND LOCA*.lY APPLIED EXTERNAL- 
EFhtCTS MAY bE CONSIDERED. THEY MAY b£ ANY LINEAR 
UR NGN-LINEAR FUNCTION OF PLANT AND CONTROL SYSTEM 
PAkAMcTERS; HOWEVER. ONLY RcSJ^lANI fokce/torcue 
V tCTORS ACTING at PARTICULAR st.^SUR POINTS ARE IC 
BE RET Uk N eb IN THE ARRAY T£X 

J) UPON RETURNING TC TORQUE KRCM EXTQR DlsCUS MAKES USE CF 
THE UATA now CONTAINED IN THE ABOVc ARRAYS TU EVALUATE 


01 8 A 26 
Ot 8427 
01 6428 
01 8429 
Cl 8430 
018431 
01 8432 
01 8433 
018434 
01 8435 
018436 
016437 
01 8438 
01 8439 
0 1 8440 
01844 i 
01 8442 
01 8443 
01 8444 
01 8445 
01 8446 
01 8447 
01 8448 
01 8449 
Oi 8450 
018451 
01 8452 
018453 
01 8454 
01 8455 
018456 
01 8457 
01 8458 
018459 
018460 
018461 
Cl 8462 
01 8463 
018464 
01 8465 
018466 
01 8467 
01 8468 
018469 
01 8470 
018471 
01 8472 
01 8473 
018474 
018475 
01 8476 
018477 
018478 
01 8479 
01 8480 
01848 l 
018482 
01 8483 
0 l 8484 
018485 
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fcUjA T I UN 11-7* OF VOL I WITH NO AujffiJNAL jSfc'h I NTERFACE 


SUBROUTINE KH INGE SWINGS* OAMPtKS AN./ MJfiiKi AT HINGES 


RELATIVE .MOTION GF CONI UULuti BODIES 15 OF TEN RebTRAINED 

£ Y MECHANISMS PlaCcO A1 IMF. IR COMMON HINGE POI.Nl# THESE 
MECHANISMS# WHICH MAY INCLUDE LINEAR UR NjN-L I NEAR SPRINGS# 
CAMPERS AND MUTUWS, PRODUCE INTERNAL FukCiS AND ICRQUES WHICH 
ACT IN EQUAL AND OPPOSITE PAIRS CN THc Cu'illuuOUS DCDIES# ALL 
SUCH EFFECTS MuST uL USER DEF I NQO IM SjURuJTlNc KHlNGL# (SEE 
f AGE 1 I I -b OF VOL l l > . 

KHINCr. PROVIDES THl USER w 1 TH A CLEAN INTERFACE utTWEEN PARAMETERS 
WHICH ARE PHYSICALLY REALIZABLE AND PARAMETERS Rc. QU I RED FGR 
CCMPUT AT i ON# 

RECALL THAT Al HlNuE POINT L • L = 1 » 2 • • • • • NH 
LULCK ANoLc ROTATION SEQUENCE TYPc IHDhIA(1#L) 

IS USED Tu ORIENT THE P-FftAME IN jOdY 11UPJL(2#L) 

RELATIVE 10 THE U-FRAM E IN BODY I T OP Jl 4 i • L 1 J 
F uK THcKMuKt D L v> RE c. OF F RE EDOM I»( = i«2«*##o IS 
fKLfc CF EITHER FIXlj OR RHEONUMIC Cu^SIRaINTS IF 
I HD AT A ( 1 +1 »L ) =0 . 

TO PFOVlCE THE USER WITH THE OESIREASLE ClEAN INTERFACE A 
A MODELLING RESTRICTION MUSI BE iNTPOUJCEJi THAT IS# 

INTERNAL TURqUE GENERATORS ARE ABbQ^CO |j 
ACT AbuUT EULER ANGLE ROTATION AXtS 
WHICH ARE FREE OF FIXED OR 

RhluNGMIC constraints 

1 HE UStH MUST PROVIDE DISCOS WITH THE COMPONENTS OF THE 
PEoULTANT INTERNALLY GENERATED T CR QUE RELATIVE TO THE SKEWED 
AXIS SYSTEM WHICH WAS ubtR SPECIFIED IN ARRAY 1 HD AT A • 
FURTHERMORE. 

internal fukce. generators are assumed tu 

ACT ALONG COORD I NATL AXES OF THE 
Q— FRAME WHICH ARE FREE OF 
F I Xc D OR RHEONGMIC 
LCNd TRA l NT S 


The USER MUST PRCJVIOC DISCUS WITH THE CUM*<jNdN T S. OF THE 
RESULTANT I NT ckNAL L Y GENERATED FORCE RELATIVE Tu THE Q-FRAME 
COORDINATE AXES WHICH ft A j USER SPECIFIED VIA I NPU t data 


THE L SLR MUST USE 1 HE ACRONYM HNGT TC OEFMt THE aRKAY IN WHICH 
The TUkQUL AND FuRCE COMPONENTS ARE STJKtD AND ADHERE TO 

the following definitions: 

AT HINGE POINT L #L=l #2 « . • • * NH 

fngTU#li = internal torque to be applied adodt first euler 

ROTATION AXIS AT HINGE POINT e 

FNGT(2#L> = INIlkNAL TORQUE TO SE APPL 4 ED AuUUT SECOND EULER 
ROTATION AXIS AT HINGE POINT *_ 

fnoT(3.l> = internal iukoue to be applied about third euler 

ROTATION AXIS AT HINGE POINT L 

FNJT ( 4 # L ) = Internal FORCE TC EE APPLIED AlOnG THE X-AXIS CF 


01 9 A 86 
01 8 A 8 7 
Cl 8488 
01 8489 
01 8490 
Cl 849 l 
018492 
01 8493 
Cl 8494 
01 6495 
01 849b 
01 8497 
01 8498 
Cl 3499 
Cl 8500 
01850 I 
Cl 85 02 
01 8503 
Cl 8504 
01 8505 
018506 
01 8507 
Cl 8508 
01 8509 
Cl 851 0 
C 1651 i 
018512 
C 1 85 1 3 
018514 
01 6515 
016516 
018517 
01 8518 
Cl 8519 
018520 
01852 l 
Cl 6522 
018523 
018524 
01 6525 
01 8526 
01 8527 
01 8528 
01 8529 
01 8530 
01653 1 
018532 
018533 
01 8534 
Gl 8535 
01 8536 
01 8537 
013538 
01 8539 
01 8540 
010541 
01 8542 
018543 
016544 
01 8545 
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r He O-FKAMl AT HINGE POINT L 

F N T ( 5 t L ) •= I N T f~ K N A L FORCE TO EE APPLIED AlGiMG TrlE Y-AXIS OF 
Trie U-FftAMc AT HINGE POINT L 

h\uT(6,L) = INTERNAL FORCE TO 9E APPLIED AlJNo THE 2-AX I S OF 
THE G-FKAML AT HINGE POINT L 
FUK eXAMPLe ASSUME MOTION RELATIVE Tu JE^Kt t OF FREEDOM 
I • l-l .2 • * . . #6 AT HINGE POINT L.L-l .2.....NF 
Is UNCONSTRAINED { I HO AI A { I f l . L i =0 J BUT THAI 
IT IS RESTRAINED BY A _ I NL A k SPR i MG OF 
STIFFNESS SK(I.L) AND A LlNcAR DAMPER HAVING 
A DAMPING CONSTANT UK((.K). TU INCLUDE THIS 
IN DISCOS THE USER SIMPLE ^JDcS 
HNGT(l.L) = -< SK4 I *L )*3ETAH( I .L> ♦ D n ( 1 * L ) * BE T AHD < I .L ) > 

IN KHINGE. MOTOR GENERATED I URQJEG { 1-1*2. J) 

OR FORCES ( 1=4* 5*6) ARu S 4 M L ■— A k L Y HANDLED* IN 
MUST CASES THESE WOULD Pc CJMPufcD IN CUNT FL 
AND PAsSED TO KHINGE l.N A SPECIAL COMMON 
BLOCK. It- TQFRII.L) IS THE MUIGR TCRQUE OR 
FORCE RESTRAINING JEGR-c UF rREcDuM I MOTICN 
AT HINGE POINT L ITS EFreCT aOJLD BE INCLUDED 
ri Y THE USER WRITTEN COUc 
HNGT(I.L) = HN O T ( I * L ) *■ TQFR(I,o) 

ALL CATA RCUUIRED BY THE DSLR IN KHINGE; SJCH AS* SPR I NG AND 

CAMPING CONSTANTS. ARE MUST CONVENIENTLY INPUTTED IN ARRAY 
CNTUTA. TIME UePENDeNT DATA REQUIRED JT THE j'jtki SUCH AS. 
NOTCH TCRUUES UR FORCES. ARE MOST C 0 NV i N I - N T L Y COMPUTED IN 
KHINGE UR CuMPuTEU IN CONTRl AND PASSED TJ KHlNuE BY A SPECIAL 
FuRPCSc COMMON DeOCK 

IF M t CHAM SM S EXIST IN T HE SYSTEM WHICH- CAN dIJRL PuTENTIAL ENERGY 
THeIR CONTRIBUTION TU TuTAL SYSTEM POTENTIAL. LNEHGY (TOTPE) 
NDoT BE ACCOUNTED FuR. FOR THE LINEAR SPRING A^juMEU ABOVE 
llj CONTRIBUTION IS INCLUDED fJY THE UScR « R I T 1 i:N CODE 
TUTPL = 1UTPE + .5UO*SKU.Li?dLl hH{i»L)** 2 
CON TfilrfU T IONS DUc TU NwN-L I NE A R SPRINGS MUST Be USER 
C L I ER»»I IN ED AND ALSU CODED. TOTAL SYSTEM FJTcNTiAL ENERGY IS 
Mjr USED T UR ANY KeUClRLD CCMPUTATICN IN DISCOS 

UPON ENTRY INTO KHINGL Cldc IS PROVIDeD TJ ZERO TUT PE AND 'ALL 

ELEMENTS CF TML ARRAY HNGT. THE USER THEN PRUViDcS T FiE CODE 
IU DEFINE THt NUN- <iLKU ELEMENTS OF HN^ T AND T Ml. CLEMENT TCTPE. 
C 1 ;> C C S PROCEEDS li-ihN VIA TFE PROVIDED Cujlu mLuQhITM TO 
COMPUTE PARAMcluRS KcOulREO FOR CONTINUING CuMPUTATIGN. 


EOuROUriNL SnAl r T ‘aHlCL TORQUES 


variacle and consign r sPEeu wheels may boi ri ue included in the 

SIMULATION MUDlL * «*HLcL TORQUES MAY U=. AP^ulcu UNLY TO THE 
V AF I AbL L SPEED WHEELS Ur The SYSTEM. Idb IS JuNc IN A BANNER 
ALMOST ! UeNT 1UL Tu TnAT USED IN SUBROUTINE KH&NvjC. 

C NL Y IMLRNALLY GcNERATcD ILROUES MAY BE APPLicJ TO aHEFLS* AND 
1 He S L ALT U NL t ABUUI THE RESPECTIVE WHeuL AaES. 

,i F LcL I »l=1.2*...» Nuh MU I S A V AR I A8i_ — o** c. eu WrlL EL 
4T i 1MUI j,l J.EC.U 

.v F LK E Tht I MO U A 1 A AKkA Y IS USER S Pu C l F l c D VIA 


018546 
018547 
01 8548 
01 d549 
01 0550 
018551 
018552 
01 8553 
018554 
01 d5S5 
01 8556 
01 8557 
01 0558 
01 0559 
01 8560 
Cl 8561 
Cl 8562 
018563 
01 3564 
01 0565 
Oi 8566 
01 0567 
01 0568 
018569 
01 8570 
01 8571 
01 0572 
01 8573 
01 0574 
01 8575 
Cl 8576 
01 €577 
018578 
01 8579 
Cl 8580 
C 1850 1 
01 8582 
018563 
Cl 0584 
Cl 8505 
C 1 0586 
Cl 8507 
Oi 0588 
01 8589 
01 8590 
Cl 859 l 
01 0592 
01 8593 
018594 
01 0595 
Cl 8596 
01 0597 
01 0598 
01 0599 
01 3600 
01 0601 
010602 
01 0603 
Cl 8604 
01 0605 
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INPUT DATA IN DYNS10 

IN S L cW C L T i N E iiHAFh I T He. USER MUST USE THE ACMuNY M TSHFT TO DEFINE 
THE ARRAY IN wHlLH ALL WHEEL TORQUES ARt STURED AND ADHERE TO 
? HE FOLLOWING UlMMTUN FOR ELEMENT I UF 1 HE ARRAY TSHF X 
WHICH IS DIMENSIONED (NMwMAX) IN SUBRUJTINE TUKuut 

TSHFT(l) = INTERNALLY GENERATED TORQJl. TO Ot APPLIED ABCUT 
THE SPIN AMS GF WHEEL I. AS In kHINGE THIS 
TORQUE USUALLY COMPUTES IN CONTRl AND PASSED 

TO SHAFFI VIA A SPECIAL PJKPUSt COMMON BLOCK 

THE COMPUTATION OF WHEEL TOkQUE OFTEN REQsIRcS KNOWLEDGE OF THE 

l NS T ANTANLOUS e>P l N RATE AND AT TIMES* FuR jPeLiAL SIMULATION 
PROBLEMS. WHEEL ANoLt. ALL SPIN RATES Jr VARIABLE SPEED 
(ACTIVE! WHht'Lb ARE CONTAINED IN 1 HE alATi VECTUR ARRAY Y. SEE 
CtHMTICK ABOVE F Lk EXACT LOCATION* SINCE whtiiL RATES ARE 
CFTLN VERY HIGH AND WHEEL ANGLE IS USUALLY NUT REQUIRED FCR 
SIMULATION PURPOSES WHEEL ANGLE IS NCI COMMUTED. IF REQUIRED. 
FCwLVER THE USlR SIMPLE HAS TO ADD THE ul F r lKcnT I AL EQUATION 
IN CCNTRL WHICH wlLL CuMPJTE IT. 

FOR EXAMPLE: IF THE SPIN OF WHEEL I IS DAMPED BY A LINEAR DAMPER 

WITH l/AMPING CONSTANT WDK ( I ) AND CUNTROLLEO BY A 
MOT UR WHICH PRODUCES WHEEL TOkuUE ClM ( U THE 
USER MUST CUDE 

IW = LOCATION IN ARRAY Y OF WHEEL I S 3 1 N RATL. (A SIMPLE 
INTEGER EQUATION EASED UPON A3UV£ dEF INI T I CN) 

TSFFI(I) = -WDK( I ) *Y ( I W > * CLM(I) 


SUDktUTlNE GMISC Ml jt EL L ANEOL S AND THERMAL lPFlCTS 


THERMALLY INDUCED MUTIGN UF A FLEXIBLE BOuY LAN OCCUR IF THERMAL 
TIME CONSTANTS AND FUNDAMENTAL NATURAL FRcJueNHES ARt OF 
NEARLY THE S A ML ORutR Of MAGNITUDE* THE MOTION CAN AT TIMES 
Et cjcLF- SUSTAIN! NO AND EVEN UNSTABLE IF TIE DIkLLTION AND 
NAoNITUDL OF THE INCluLNT THERMAL FIELD I :> T 1 Me VARYING 
RELATIVE TO A r.UDY F'IaLD REFERENCE:* IM ^t'^KrtL THE FLEXIBLE 
ECOY WiLL MGVl. TOWARD a TIME VARYING POSITION OF THERMAL 
EQUILIBRIUM WHICH WILL oL DEPENDENT UPON Trie. UKIENTATICN CF 
Thu BODY RE L A I I VE IU THE THERMAL F I ELD 

THIS EFFECT CAN be luCOkPUKATED IN SUBROUTINE oM I SC . IN GMISC 

The USER MUST HAVE AT HAND THE TIME VAKYlNb MU UAL AMPLITUDES 
CF THE THERMAL EQUILIBRIUM POSITION. USUAL. Y uBTAlNED VIA 
SUlvTIUN OF HEmT CONDUCTION EQUATIONS IN ^UNTRL. THE POSITION 
CF THERMAL cQUiLiukluM IS THE POSITION THAT tL«STIC RESTORING 
FORCES ARE MEASURED FkOM. ThIS COMPUTAIIO.N IS CAkRIEO OUT 
IN GMISC. THIS IS AN ADVANCED TOPIC; IT SJFFICEs TO SAY THAT 
CISC GS CAN BE SETUP Tu INCLUDE THIS Er red IF ReUU I FED • 


ElORGUTINL LQAuD SENSUR AND TORQUE SI SNA. SQUAT IONS 


THE 


CONTROL 
TRANSFER 
S IGNALS. 


SYSTEM DESIGNER NEEDS THE ABILITY Tu OBTAIN THE 
FUNCTIONS WHICH RELATE PHYSICALLY KlAlIEABLE SENSOR 
WHICH Ah£ FLNL11CJN5 U F PLANT uTATE VARIABLES. TO 


01 8606 
01 8607 
Cl 8608 
Cl 8609 
C I 66 i 0 
018611 
01 8612 
01 061 3 
Cl 8614 
01 8615 
018616 
018617 

01 861 a 

Cl 8619 
01 8620 
018621 
016022 
Cl 8623 
01 8624 
01 8625 
01 8626 
01 8627 
01 8628 
Cl 8629 
018630 
0 18631 
01 8632 
018633 
018634 
01 0635 
018636 
01 8637 
01 8638 
C l 8639 
Cl 8640 
018641 
018642 
01 8643 
Cl 8644 
01 8645 
01 8646 
01 0647 
01 8648 
018649 
01 0650 
Cl 8651 
018652 
0 1 8653 
01 8654 
01 8655 
01 8656 
Ci 8657 
018658 
Cl 8659 
01 0660 
01 3661 
018662 
01 6663 
01 0664 
01 8oo5 
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FHYS I C AL LY HifALl tAuLt: TCROUE SIGNALS. w 1 1 l %* » i mk l FUNCTIONS 
C r CCMKOL SY:»|I£m bfATt VARIABLES* 


TO ACCOMPLISH 1 H I b T Me. Ubt-H MOST OLFINE A :>lT ur NaUa AUXILARY 
£ OU A T I «JN b • IN vUUkGoTI NL C CMftL THE Ujc k .)lF iNfiJ THAT IN 
SuJrtC.UT l NL fGALU IHLRt. WOULD oL COOED laA.TLY 
NASS SLNbUR SIGNAL EQUATIONS. AND l AaU'LY 
NtJ TO IDrtOuc b 1 GNAL LOLA! ICNb 
£ L-l H T HA T 


NAUX = NXSS+Ni3TQ 


AS if' ALL OTRLR USER JLh INtO ROUTINES CERT i AN KjU.j MUST BE 
AJHuKLD TO 0Y THE USER. THESE ARE AS FULL J tt S : 

1) SLN50R SIGNALS - IhL USER MUST DEF l ml NXSS slNSCR SIGNAL 

tOUAT ICNS, THCSE lOUATIUNS ARE ASSUMED 
TO BE F ONCTCN3 OF PLANT dTAI'E VARIABLES# 
IN THE PROCESS Cr NUMERICALLY LINEARIZING 
LOCATION'S ALL SEiNoGk signal EQUATIONS 
WILL BE EXPRESSED AS l. I Nl AR FUNCTIONS OF 
PLANT STATE VARIABLES 
THE USER CODlS IN EQAOO 

YOT<NLU+l 1 - l-TH SENSOR SIGNAL lQuaTIgN 

I = 1 • 2 • . • • .NX Sb 

2 ) TLRGUf. SIGNAL^ - THE USER MUST J£F i Nl NO f 0 TuRGUE SIGNAL 

EQUATIONS. THESE EQUATIONS ARE ASSUMED 

Tu ae funcitcns Qr control system state 
VARIABLES. THE U^lR Musi ue careful to 
INCLUDE CONTROL EcUAT I DNS IN CCNTRL WHICH 
CAN UE USED TO Ocr INE ALL TORQUE SIGNALS. 
THIS IS NECCSSARY' ULuAOot IN 1 HE 
NUMERICAL L I N£ AR I Z A T 1 UN PnUlESS ALL 
TORQUE SIGNALS Wl-L Jl EXPRESSED AS 
LINEAR FUNCTIONS JF THE lUNTRUL SYSTEM 
bTATE VARIABLES 
THE USEh CODES IN HQADD 

Y DT I Ni.O+NXSS+ J ) = J- TH TCROUd SIGNAL EQUATION 

J= 1 .2.. ... NOT Q 


SYSTEM AND BODY ENERGY AND MOMENTUM 


THE FOLLOWING PARAMETERS ARE CONTINUALLY MJNITU^EO FUR THE USER 
TC CHECK TU DlIlkMINE IF ALL ENERGY AND MOMENTUM CONSERVATION 
Lfiv<6 ARE HOLDING TRUE. T HE S E PA RAME TE Wo ARE WITH THE EXCEPT l CN 
OF ORDINARY MOMeNTA COMPuTED IN SUBROUTINE ENuMOM. THEY ARE 
ALL STCRl-D IN /MOMcNG/ AND PRINTED AS A FUNCliuN UF TIME 

P - URU INAKY MOMENTA ARRAY. SEE EQUATION 11-49 V UL 1 

0 l MENS l Q nlD l NbMAX* ( 6 fNMDBOO) ♦ NM* MAX ) 

( F ( l > . l — l • NU ) - ORDINARY MOMENTA ASSOuAT^j Mi IH VELOCITY 

COOkOINATc I* 1=1*. ...NU 
PMOM = CODY ANGULAR ANO LINEAR MOMENTUM ARRAY 
oIMlNSIONlJ ( 6 * NOMAX ) 

( f MC.V ( I ) . 1 = 0* ( N- 1 ) *■ l .6*1 N-l ) *3 ) - 3 COMPuNlnIS OF THE INERTIAL 
ANGULAR MOMENTUM VECTJ^ ASSOCIATED WITH THE 
MOTION UF BODY N WRT InckTIAL COORDINATES 
C (f«LM(I).l=oMN-I)f4,oiMN-l )f6) = 3 COMPONENTS UF THE INERTIAL 

C LINLAK MOMENTUM VECTOR ASiUCIAIci) WITH THE 

C MOTION OF BODY N WRT INERTIAL COORDINATES 


Cl 0606 
Cl 866 7 
01 8668 
01 6669 
Cl 86 70 
C 1 867 1 
01 86 72 
0 1 86 73 
01 8674 
01 8675 
01 8676 
01 8677 
01 6678 
018679 
01 8680 
01 8681 
Cl 6682 
01 8663 
Cl 8684 
Cl 8685 
Cl 8686 
01 868 7 
Cl 8688 
018689 
Cl 8690 
01 6691 
018692 
C l 8693 
018694 
018695 
Cl 8696 
Ci 0697 
01 6698 
01 Q699 
018700 
018701 
Cl 8702 
013703 
Cl 8704 
01 8705 
018706 
Cl 8707 
Cl 8708 
Cl 8709 
Cl 87 l 0 
018711 
01 67 12 
Cl 871 3 
016714 
018715 
018716 
01 8717 
Cl 871 Q 
018719 
01 8720 
018721 
018722 
01 8723 
Cl 8724 
01 8725 
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c h r c T 

c 

C 10 TL 

c 

0 ENGKti 

c 

C ENGPF 

c 

c r g t k e 

c roipg 

c atotl 

c ah i a r 

c 
c 

C LINEAR - UNt'AKULj SYSTEM EQUATIONS UF MJTION 

C . 

THE LINE AK I Z AT l UN PROCESS PRUVIOCS A SET OF UNtAK CuUPLED FIRST 
tfiOcH JlfFcktMIAL uliuAl idNS WHICH OEl-iNe I HE TutAL SYSTEM 
ScGFCNSC RELATIVc TO AN cUULICIIIUM STATe. 

IF THE CLUPECD NCN-Ll.'JLAk EQUATIONS CF MOI 1 uN ARE TO HE LINEARIZED 
THE' INITIAL STATE DEFINED TTY T FiC INPOlTcD s Y jT EM INITIAL 
C END I I I UN'S UcF 1 NL 1 T HE EQUILIBRIUM STATE RELATIVE TO WHICH 
CC« TUR.BA T ION EOuATIdnS Ah E TO EE DERlveu 

LET : 

(Y( I , 0 ) , 1 = 1 ,NLUJ = EQUILIBRIUM STAIe Ur I He STATE VECTOR 

OEF 1 NED HY USER sPeClFlcD INITIAL 
CCND I T ICNS 

(Y( I ,T) . 1 = 1 . NEuJ = STATE VECTOR AT TIME T 

then: 

IVLYll.T) = Y( 1 ,T) -Y ( t .0 ) . I =1 .NEO) 

IS THE PeRTURdAT I CN VECTOR 
SIMILARLY LET: 

( YDT < I . 0 ) , i = 1 .NEU) = EQUILIBRIUM ST Ale u? The FIRST TIME 

ULRIVATIVE CiF THE SIAIe VECTOR 
( YD T ( I . T > .1 = 1 «NEQ> = state RATE VECTq< AT TIME T 
< YdT ( I , 0 > , 1 =NEeF t . NAUX) = ECU I L l 8R 1 UM STATE FUR ALL AUXILARY 

ECUATIONS DEFINED 3 Y THE USER IN 
ECADO. THESE ARE slNsuR AND TCRCUE 
SIGNAL EQUATIONS F uR TRANSFER 

Function studies 

(Yj T ( I tT I , 1 — Neu +1 , NA UX) = SENSOR AND IDRuJL sluNALS AT TIME T 

then : 

(SLYUT(I.T) - Yel ( I . T l-YOTI I . 0 > .1 = I » VEQFNAUX J 

Is THE PLRTURdaTI LiN RATE VECTOR 

THE NUMERICALLY DUTAINeO eINEABIZED PER TURD AT I UN EQUATIONS 
TC LiE OUTAINED via subroutine LINEAR are: 

DLYDTTl.T) = h( I . J ) *DL Y ( J . T ) I 1 = 1,2 NEO+NAUX 

WHERE SUMMATION IS IMPLIED EY THE REPeATEQ J INDEX 
C J = 1 NEO 


= TOTAL SYSlEM ANuuLAR MCMENTUM ARrtAY JiMcNSluNLD (3> THE 3 
COMPONENTS ARE KK I INERTIAL COORDINATES 
- IUML SYSTEM LINEAR MCMENTUM ARRAY DIMENSIONED 13) THE 3 
COMPONENTS ARE till INERTIAL COORDINATES 
= K1NE1IC C.NERGY ARRAY* 0 I McNSI 0NED (NUMAx) 
eNGKE(N) =K1NEI1C ENERGY CF BODY ,<1 
= PUT ENT I AL ENERGY ARRAY, OIMENSlONeD INdMAX) 

ENG PI (N) = FU I EM I AL ENERGY UF B J D Y A 

= fUAL SYSTeM KINETIC ENERGY 
= TOTAL SYsleM POTENTIAL ENERGY 

= lUTllL SYSIeM ElNEAR MCMENTUM (VEETUk MAGN1IU0E) 

= TuTAL SYsTML ANGULAR MCMENTUM (VeCTuR MAGNITUDE) 


018726 
01872 / 
Cl 8728 
01 0729 
Cl 8730 
01 8 73 l 
01 8732 
018733 
018734 
Cl 87 35 
Cl 8736 
018737 
018738 
01 8739 
01 d 74 0 
018741 
018742 
018743 
C 1 6 744 
Cl 8745 
Cl 8746 
01 8747 
01 .8/48 
018749 
01 8750 
018751 
01 8752 
018753 
018754 
01 8755 
01 8756 
01 8757 
01 8758 
01 8759 
01 8760 
018761 
01 8762 
01 8763 
0 l 8764 
010765 
018 766 
01 6767 
018768 
01 8769 
018770 
018771 
01 8772 
01 6773 
Cl 8774 
01 8775 
01 8776 
01 8777 
01 8778 
01 8779 
01 8780 
018781 
Cl 6782 
01 8783 
018784 
018785 
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c 
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c 

c 

c 

c 

c 

c 

C 

c 

c 

t 

c 

c 

c 

c 

c 

c 

c 

c. 

c 

c 

c 

c 

c 

c 

c 

c 
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THE ELEMENTS UF The NEU+NAUX OY NE'Q PAkTITlAL DERIVATIVE 
NAIKIX • H ■ ARl U d T A 1 NcD A CCLUMN AT A 1 I Me 

CNLY THOSE COLUMNS J 3F THE PARTIAL DERIVATIVE MATRIX »H' 

CCRKESPGNDI NG 1u INDEPENDENT CGOROINAIES ARE REOU IRED l THAT IS 

CNLY THOSE COLUMNS J EUR WHICH IND£P(J>=1» J=l*2 NEC 

A Ac EVALUATED, A MAXIMUM OF 30 ITERATION STEPS ARE ALLOWED 
FUk THE CONVERGENCE CF EACH COLUMN. IF uc3j u ( AO ) = • T ROE • THE 
FOLLOWING PRINTOUT IS UdT A I NED 

* Z ARRAY ITERATION N FUR CCLUMN J • = T He NEU^NAUX ELEMENTS IN 

COLUMN J OF THE PARTIAL DERIVATIVE MATPlX AT 
THE SIAAT OF ITERATION N 

• ZNEW ARRAY ITERaTIUN N FUR CCLUMN J ' = T He NEu*NAUX ELEMENTS IN 

COlUMN J UF THE PARTIAL DERIVATIVE MATRIX AT 
TrlE END OF ITERATION N 

FCK CONVeRGENt THE FOLLOWING CODED Ic^I IS MADE 
DO 100 i-i.NEU+NAUX 
l F ( iNDtP ( L ) .EG. 0 ) GO TC 100 
ON = DAbS ( Z ( I ) ) 

DNl - 0 Ab S ( ZNt * < I ) ) 

I F ( DN l . GT . UN) ON=DNl 
IF (ON .LT.tPSi) GC TC 100 
G1 - u*d5(ZNEW( l >-Z( I ) )/DN 
IF(Gl .LL.tPSii) GG TC ICO 
C SORRY TkY again; ONLY 30 CHANCES ALL U W ED 

TO AC Ml cVE CCNVERGENCE FOR ALL COMPUNeNTS 
lu J CUNT JNUu 

C CONVERGENCE TEST SUCCESSFUL. 

C EPS 1 = l.Ou-08 THESE NJMdCkS MAY UE PROBLEM 

C EPs 2 - 1.0D-JA SENSITIVE 

** THIS CRIleklA HAS BEEN SLIGHTLY MODIFIED TO PROVIDE 

fur two automatic changes cf epsi . fur columns with very 

CAR GE MAjNITuDl NUMiiERS EPSl = l. Ou— 3s Is BEYOND THE 
ACCURACY CAPAdlLi \ IES CF THE CCMPJTtR. T ht CRITERIA FCR 
RLslITINm l S- Eased UPCN THE LARGEST 4rtv.NlTUi)E NUMBER 
IN THE Z mRRAY FuuND CN THE. FIRST ITERaTIUN THROUGH. 

IF EPSl = I. CD-06 IS UNSUCCESSFUL 
RESET EPSl = 1 • 0 D — 0 6* M A X ( Z ( I) OF 1 TER ATI ON l) AND 

THEN TO 1 .00-04 *MAA( Z ( I ) UF ITERATION i) dEFORt GIVING UP 

WHEN sUCCESSF'JL CU N V ek GE.*C E OBTAINED I He ruLLUwlNG PRINTOUT 
t s pHL' V l OLD 

' COLUMN J UF THE PARTIAL DERIVATIVE MATRIX IS* = IHc NJG ELEMENTS 
IN COLUMN J OF THE PARTIAL J^RlVATIVE MATRIX 
WHICH MuST EC SAVED F OK LINEAR ANALYSIS. TFESE 
AKl THl ELEMENTS OF ARnAt L nC ia CukRESPCND I NG TO 
LIT HE k INDEPENDENT COOkjINAIES ui< SENSOR AND 
TOR DUE SIGNALS. (THIS COLUMN MATRIX IS STORED 
UN NT APE 2 FOR RETRIEVAu IN DYNS40 
NuTe; NJli = NX + NAUX 


STAdlLilY ANALYSIS OF LINEARIZED EQUATIONS* DYNS40 


* $ » JO T c * <f 


STAuiLlTY ANALYSIS CF LAKvjE OkDCk SYSTEMS* WHICH 


01 8786 
01 8787 
01 8Z8Q 
01 8789 
01 8790 
018791 
018792 
Cl 8793 
Oi 8794 
01 8795 
01 8796 
01 8797 
01 8798 
018799 
01 8800 
018301 
01 8802 
01 8603 
018804 
01 8805 
01 8806 
01 8807 
01 8808 
01 8809 
018810 
01831 l 
018812 
018813 
018814 
018815 
01 88 16 
018817 
018818 
018819 
018820 
C 1 882 l 
01 8822 
01 8823 
018824 
01 8825 
01 8826 
01 8827 
01 8828 
01 8629 
Cl 363 0 
018631 
Cl 88 32 
01 8833 
01 8834 
01 8835 
Cl 8836 
01 8837 
01 8838 
Cl 8839 
01 9840 
01884 1 
Cl 8842 
01 8843 
018844 
01 8845 


B-327 



nnnnr . nr ' r ' nnnnnonnr ' nnnr > onr > r , onrirnr -, r-.orinnnnnn no 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Id WHAT DISCUS IS GEARED FUR, REQUIRES OPERATING 
WITH LA Hot URCER MATRICES. T'J CONSERVE MEMORY 
REDO 1 Re MEN T S , WORK AREAS AND SCRACH FILES ARE 
EXT E'l Si VE'L Y USED. BY SETI A NG I HE APPROPRIATE 
DE BUG FLAG EQUAL .TRUE., PARTICULAR MARI CE S CAN 
UL PRINTED. IN MOST CASEd THEY ARE DE S I ROVED AS 
SOON AS THEY ARE NO LONGER NEEDED. 


LINEARIZED EQUATIONS UF MOTION 


THE STABILITY ANALYSIS IS DIRECTED BY SUBROUTINE DYNS40. IN 

subroutine linear the clupleo system equations along with the 

SEN SCR AND TORuufc SIGNAL EQUATIONS ARE L I N E A n I ZlU ANO THE 
PARTIAL DERlVAliVL MATRIX IS SICRED FuR R-UUVEkY IN DYNS40 CN 
FTaPE2. UPON ENTRY INTO DYNS40 THIS MATRIX IS READ, STORED 
AND PRINTED. THE EQUATIONS ARE OF THE FORM 


JLYOHUT) - HI 1 , J ) ♦DLY ( J, T ) 


where: 

1=1,..., NX— NDEl T A INDICES ASSOCIATED W 1 1 ri INDEPENDENT PLANT 
LOOP'D I NAN IfcS 

I=NX-NDti_T A+ I , • • .NX INDICES ASSOCIATED « 1 I ri INDEPENDENT 
CuNTrOL SYSTEM COJR D i 'J A T E-> 

INDICES ASSOCIATED it I I H SEnsuR SIGNALS 
AS DEF INED IN EQADD 

i.njc indices associated with turuue signals 

AS UeF [NED IN EGAdD 

and The REPEATED INDEX J IMPLIES SUM MAT I UN OVER J *• J - i , • • • , N X 
WORK ARRAYS Wl ANu wE IN /LwCRKl/ ARE J SE AS TEMPORARY STORAGE 
LOCATIONS FOR PARTITIONS OF THE H MATRIX. The SYMBOLS DLY AND 
CLYDT AKE DEFINED aULVe UNDCR THE TITk_E *uiNEAR — • ••* 


1 = NX + i NXtNXSS 


I=NXfNXSS* l , • 


THE CUIPUT WATRIClj PRINTED AFTER THE FCLlJikINvi CAPTlUNS ARE: 

• OUTPUT MATRIX -A- (NX X NX )• = ( (HI l , J I , J- l ,N X ) , I = 1 . NX 1 5 

T.IhT is. The COEF F l C I ENT S uF THE PARTIAL 
DERIVATIVE MATRIX aSSGLi AT ED •» I T H THL * 
INDEPENDENT PLANT AND CunTRoL system state 
VAR iAULES ( THESC ARC Dl F iNfD by ARRAY INOEF) 

• OUTPUT MATRIX -A- AuX (NAUX X NX)* = ( (H ( I , J ) • J = I , NX ) • I = 1 , N AUX ) J 

THAT IS. THE CGLFFICIENTS 0" THE PARTIAL 

derivative matrix associated «ith the equations 

WHICH D L f ■ IN c SCNSGR AND TuxCJVl j! yNALS AS 

linlhr Functions of plant and control system 

STATE VARIABLES RL5P. 


** NCTc #* I MU CUNIcMj of THIS MATkIX ARh PARTICULARLY 

Ojef-JL WHEN TEE HIGHLY CUDPu-D SYSTEMS ARE 
MLDLLLEu. THE RELATIVE MAGNITUDES UF THE ELEMENTS 
IN A 1-4 Y ReW PROVIDE A MEAjjkc SF THE PARTICULAR 
Sl.NsUR CR I UHCUE SIGNAL'S DcPENdcNLE ON LACH CF 
T i tL SYSTEM'S INDEPENDENT UF FREEDGM IN 

the time Duma in 


SIMILARITY TRANSFORMATION 


018846 
018847 
01 B 848 
018849 
01 8 B 50 
C i 885 i 
018852 
018853 
016854 
01 8855 
018856 
01 8857 
Ot 8858 
Ci 8859 
01 8860 
018861 
018862 
01 8863 
01 8864 
01 8865 
01 8866 
01 8867 
01 8868 
01 8869 
01 8870 
01 8871 
018872 
01 8873 
Cl 8374 
01 8875 
01 8876 
01 8877 
01 8878 
01 8879 
Cl 8880 
Cl 8881 
018882 
01 8883 
Cl 8884 
018885 
01 8686 
Cl 8687 
01 0888 
01 686 v 
01 3890 
018891 
01 3692 
01 6693 
018894 
013895 
Cl 8896 
01 6897 
01 8696 
013899 
Cl 8900 
01890 1 
018902 
Oi Q 903 
Ci 8904 
018905 
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10 CtrUN TRANSFER FUNCT ItMj o E T E C N S£LFCUJ gcNSOH SIGNALS ANO 

selected roftout signals a similarity r.< ansformat ion is mace 

WHICH N'oMcklCAlLY StLLUS IN AN UP T I MU M MANNER lXACTY NAUX 
I NJLFLNutNr SYsTL.-l jTATc VARIABLES F HUM Tile dIAIl VECTOR 
AUu REPLACES THEM Kil TH THE NAUX SENSOR ANJ TOhOut SIC-NAL 
N, An l AI3LU S. IHC FiE.5ULUNo tOlAT ICN 111-24 U r VUL l IS CF THE 

flu*: (this ope mat ion is done in asim^r an) findti 

cUUI .1) = >*H*RC i .J) * Z ( J * T ) 


IMir.hh; 



( l . 1 = 1 ..MC2) 


INDICES CF THE PErT JKiJAT iON VARIABLES 
aoSCCIATEO WITH Trie PuAN f rtrllCri ARC NLT 
ELIMINATED oy the similarity 
TKmNSF crmat ICN 

( I . 1 - NY < ^ 1 . 

NY < YNXib 1 


i.wlCLS OF THE PER I uk* 3 A 1 l u N VARIABLES 
a SS UC IATEO WITH TH E NXob S t U S C R SIGNAL 
VARIABLES 

( l . 1 = NX- NJtL 1 A . 
NX- Nsru 1 


indices of the pfriuroat Iun variables 

ASSOCIATED WITH T,<11 CuNTkGl jYSTEM WHICH 
ARE NOT ELIMINATED UY THE SIMILARITY 
TR A N ;jF CRM AT ICN 

( 1 . 1 =.‘<X~NbTw* 1 , 
NX ) 


INDICES OF THE PER7 JkoAT ION VARIABLES 
ASSOC I A TED WITH Trie. Nrjfvi TORQUE SIGNAL 
VAR I A8LES 

2(1.0 


PtRTuREAT I CN VAR I A Jt_e 1 Al TIME T REFER 
70 * T HE TRANSPCRMlJ bl Alt VeCTOR 

CORRELATION ARRAY* Printed TO CORRELATE 
1 NO EX I WITH OR I SI N AL :• T A I t V AK I ABLE 
INDEXING STORED IN LeNu AND LGCU 

2 o r ( i . r > 

“ 

FIRST TIME DERIVATIVE uF Z(l.T) 
(INDEXING CONS IS Tan r *ITm Zii*T>> 

f y*(-i 1 . j ) 


THt (l.J) ELEMENT OF 7 He SIMILARITY 
TRANSFORMATION MATRIX (uuTPjT OF ASlMLR) 
CRoLRED AS JUST DEFINED AtlOVc 


THE Cut PUT MATRICES PRINTED AFTER THE FOL-JwIN^ CAP! IONS ARE 
• at IV Li MATRIX -a*- (NX X NX) = ( R** ( -I > *h*R ( l , J ) • J= l .NX ) . 


1=1 .NX) ; THAT 
TkANSFuKMAT ICN 
PAoSEG SACK TO 

* R T A • 

•no r e al part imaginary part* 


■R T A* • 

♦NO REAL PART IMAGINARY PART* 


** NOTE. 

nQTH SETS Uh CCMRLLX ROOTS 
SHCulO OL c(.UALi 1 Hi s 15 A 
CHECK CN THL QUALITY QF THE 
SIMILARITY TRANb* UkMAI ICN 


S THE ELEMENTS UF THE SIMILARITY 
MATRIX COMPUTED IN AS I MLR AND 
OYNS40 IN THE ARRAY to 2 

= A L I S 1* i i\t» IN UECREASlNG 
ORULr JF REAL PART OF ALL 
NX vOiPLeX RUOTS OF THE 
PARTIAL JcRl VATIVC MATRIX 
• H # Jl* 1 NcJ A6CVE 
= A LlSfiNG IN DECREASING 
QRDlK JF REAL PART OF ALL 
NX -JMPLEX ROUTS OF THE 
SIMILARITY TRANSFORMAT ICN 
MATRIX R**(-1)*H*R L)EF I NED 
A BJ V tl 


COMPLEX RCuTS VIA Iht vK-ALoORITHM 


01 8906 
Cl 8907 
01 8908 
01 6909 
018910 
018911 
0189 12 
Cl 89 l 3 
Cl 891 4 
018915 
Cl 89 1 6 
Cl 091 7 
01 891 8 
Cl 0919 
01 6920 
018921 
01 8922 
Cl 8923 
018924 
Cl 8925 
01 8926 
01 8927 
01 8928 
01 8929 
01 0930 
018931 
01 S932 
01 8933 
01 8934 
01 8935 
01 8936 
01 6937 
01 8938 
01 8939 
01 6940 
018941 
01 8942 
Cl 8943 
01 6944 
01 8945 
Cl 8946 
01 8947 
01 8948 
01 0949 
Cl 8950 
018951 
01 8952 
Cl 8953 
018954 
01 8955 
018956 
01 8957 
Cl 6958 
018959 
018960 
016961 
018962 
01 6903 
018964 
018965 
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COMPLEX PCiuTS OF OcNt;}<AL NON-S V VMt TK I C MAlRlCfb uF KtAL NUMBERS 
ANl. OBTAINED VIA i Ml OK -AL GOR l THM. GRjiiVK ACCEPTS THE N BY N 
PA 1 MIX U AMU KlIuKiNU lu THE CALLING RujUNl I ME COMPLEX RCCTS 
IN IFE A ;<KA V S kl< (kLAL kUCTS) AND pi ( IMAGINARY MOOTS). Tht 
FU.TS ARE AKRANvjL IN ASING ORDER GF MEAL PAK T • 


IF 


del'-jC(oa) -- • r KoE 

W A I R ILLS WILL Lc 
ELEMENTS Oh ARRAY 

UPPER Hf'.b itNUtRO 
OF Q L«^ f Of S'JUuI 


REAL RuOT S OUT OF 
0 F CcN ARE * 


. THL FLLLCWING CAPTIuwj Ainu ASSOCIATED 
Pf<I N I L: U l 

vJ • = THE N BY N INPJT MATRIX FOR WHICH THE 

COMPLEX ROOTS akl lu ul uUTAINED 
f-UKM ~ TH‘c 0- MATRIX U PASSED TU SUBROUTINE 
A lb* bUOOIA IN WHICH U IS TRANSFORMED INTO 
Ul* PER HFSSf.NftcKv* FORM {ALMOST 
TRIANGULAR) IM *U DUiNG THE ORIGINAL 
MATRIX IS DESTROYED* DUNE TC INCREASE 
SPEED AND EFFICIENCY uF UR- ALGORITHM 
= THt REAL PARTb OF I HE N COMPLEX ROOTS 
UF THE INPUT .MATRIX u IN DECREASING 
ORDER 


I N Ao l NA l<Y FOCI* OUT uF 
O R c L N ARE * 


THE ASSOCIATED IMAGINARY PARTS CF THE 
N COMPLEX ROOTS* Rc.SPc.CI IVELY 


AS I MLR b T lISiDl - PERFORM Tht SI PILAR ITT T R A NSF Uk M A T I L N 


DlSCCb MAS I HL UMuOc FEATukE THAT TRANSFER FUNCTIONS MAY OE 

f. bTAlNt-D OL'T WLLN PHTblLALLY WL AL I Z A DLc. INPJf oLNSOR SIGNALS 
and PHYSICALLY k c. A L I ZAbLL TCPQUF. SIGNalj. I HL SENSOR AND 
TUP OLc SIGNALS AKL U sc k DEFINED FUNCTION* bPLCIFitO In EQADO. 
10 ACHIEVE THIS CAPABILITY A SIMILARITY T R AN SF UR MAT ION MUST 
fcL DEVELOPED WHICH w ILL ALLOW FGR AN E X CHANon UF VARIABLES; 
TFaT IS. NX S S PLANT STATE VARIABLES A Rn tLi MINAT lD FfiCM THE 
STATE VECTOR AKu REPLACED BY NXSS SENsJR SIGNAL VARIABLES* 
SIMILARLY NBTu LUNTkLl STATE V AR I ABES Ant ELIMINATED AND 

replaced with nbtu torque signal variables . (icc page iii-7 

Cr V CL 1). The MATRICES COMPUTED IN THcSE ^JuTHES ARE CNLY 
STORED TLMPURAkLV I *>* THE WORK ARRAYS wl AND w B IN /LwORKl/ 


IiY StTTINo uEbUG(oS) AND Dt UUO ( 66 ) = • TRU E • I lit bl LPS TAKEN THROUGH 
ASi.VLR AND FI NOT TU ARRIVE AT THE SIMILARITY TRAN SFCRMA T l CN 
CAN BL FOLLOWED Fjk ANY PARTICULAR PRUducM* THE FOLLOWING 
CAPTIONS AND ASSOCIATED MATRICES ARE PkInTEd: 


INPuT MATRIX CUtiF h ICiu NT 6 
FUR LlNEAklBED sluNALS* 


SUERUuTINt. F l.ND T 
MATRIX* 


l NPUT 


VARIABLE ExCHAN*l MATRIX* 


THE NAUX BY NX MATRIX DERIVED IN 
LlNfcAR WHIv-H LAN OE USED TO Db'F I NE 
ALL SENSOR Awu TORQUE SIGNALS AS 
LINEAR FUNCTIONS UF INDEPENDENT 

plant and Control sysiem state 

VARIABLES* THIS IS I HE INPUT MATRIX 
TC ASlMLR* iT IS The PARTITION *C* 
IN EQUA ? IQv I I I - BO 

THE NAUX BY NJJ COEFFICIENT MATRIX 
IN EQUATION I I 1-Bo. FI NOT USES THIS 
MATRIX TO FIND THE Bl^T SET OF 
STATE VARIauLlS TO Be REPLACEO BY 
SENSOR AND TURjJl sloNAL VARIABLES 
THE NAUX BY N JO VARIABLE EXCHANGE 
MATRIX ILLUSTRATED PAGE E3* 


01 89b 6 
01 6967 
Cl 8966 
01 89 09 
01 6970 
01 6971 
01 8972 
01 8973 
Cl 89 74 
01 8975 
01 0976 
01 6977 
01 8976 
01 89 79 
01 0980 
01 6961 
016982 
018983 
C 1 8964 
Cl 89 86 
Cl 8986 
Cl 6967 
01 8988 
Cl 8989 
Cl 6990 
018991 
018992 
013993 
0 1 8994 
018995 
01 8996 
018997 
016998 
016999 
Cl 9000 
01 9001 
Cl 9002 
019003 
C l 90 0 4 
Cl 90 C 5 
Cl 9006 
Cl 9007 
Cl 9C0 8 
0 1 9009 
Cl 90 l 0 
01901 1 
019012 
019013 
C l 90 1 4 
019015 
019016 
01 9017 
019018 
C19019 
Cl 9020 
Cl 9021 
C 1 9022 
019023 
019024 
01 9025 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

<; 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


VOL t. THE cXlilANCE OF 1.0000*00 
IN COLUMN J uF rtOtf t IMPLIES THAT 
I HE J-TH lnJEPE.NJc.NT STATE VARIAGLE 
HILL BE NOT SURVIVE THE EXCHANGE 
PROCESS. TrtE jTaTc VARIABLES TC BE 
DELETED ARe THOSE WHICH THE SENSCR 
AND TORQUE SIGNALS ARC MOST 
STRONGLY DEPENDENT UPON. ThESE ARE 
DETERMINED .NUMERICALLY BY AN 
ALGORITHM WHICH ASSUMES THAT THE 
SIGNALS ARC Mol J ALL Y INDEPENDENT. 

• SIMILARITY TRANSFORMATION = I HE NX BY NX SIMILARITY 

MAlRiX IS* TRANSFORMA! 1 UN MAlklX. IT IS 

CONSTRUCTED OUcCTlY FROM ThE 
VARIABLE EXCHANGE. MATRIX AND 
RtTURNEO To AS! MLR IN THE DUMMY 
ARRAY 1 T 1 berlNED INFINDT. IT IS 
THE MATRIX *k* IN EQUATION 111-23 
GF VDC 1 BUI NOT URJERED EXACTLY 

as sho»n therein 

lei : 

YY - THE NX BY 1 CULUMN MATRIX Ur INDEPcNoENT PLANT AND 
LONTRUL SYSTEM STATE VARIASl.Es (INCREASING INDEX 
OROLR 1 

Y* = THE NX UY l CULUMN MATRIX Or IVjcPENdENT PLANT AND 
CUNIRUL SYSTEM STATE VARIAD.ES 10 Be RETAINED (THE 
FIRST NX-NAUX ROWS) AND T He SENSOR AND T ORQOE 
SIGNAL VAkIAuLCS (LAST NAUX Hurt S i 
rl = THE NX HY NX SIMILARITY T RAN jF U«M AT l UN MATRIX *R* 


1 Hu N 


WHERE I " 1 


Y Y ( I J = R(I.J) * Y*(J) 

• « . , NX ANU kePEATEO INDEX J 1MP_(CS SUMMATILN 


' I H t TRANSFORMED STATE 
VECTUR CUR RELATION ARRAY 
FOLLOWS' = IV 


(Iv(I).I — I* NY 2 1 

( (Vi l I . l-NYE*( . 

NYU* NXSS) 

( IV( l) *1— NYE*NXSS*i» 

N X— !.B T O 

( I V ( l ) .1-NX-NBIOH .NX 
■ U L TP UT MATRIX -1- • = 

• UL TPl I (AMIIX H' = 


- NX BY 1 APUaY LUMPJTED IN F I NDT AND 
PRINTED T HE HclY. II IS STORED ONLY 
TEMPORARILY IN IV IN 2LIJV7. THE 
PRINTED ARRAY ElcMEnTS HAVE THE 
FOLLOWING meaning: ALL INDICIES 

ARE CC.NSISIANT WITH THE LENU AND 
LOCU ARRAYS 

- INDICES ASSOCIATED »IIH THE PLANT 
STATE VARlASLcS which ARE NOT 
ELIMINATED JY I He SIMILARITY 
TRANSFORM Al ( UN 

= indices associated with the sensor 

SIGNAL VARIABLES wrllCrt ARE TC BE 
USED FOR TRans.-ER FONCTICN STUCIES 
= INDICES ASSOCIATED WITH THE CONTROL 
SYSTEM ST Al c VAklADL.ES WHICH ARE 
NOT ELIMINATED JY Tnc SIMILARITY 
TRANSFORMA! i UN 

J = INDICES ASjdCIAIEd with THE TOROUE 
SIGNAL VARlAoLca WHICH ARE TC EE 
USED FOR TRANSFER FUNCTION STUCIES 
THE NX UY NX SIMILAR! I Y JR AN SF CR MAT I L N 
MATRIX RETURNED 10 A S l MLk IN THE DUMMY 
ARRAY T FROM FI NOT. 

1HL NX EY I C0lJMN >4 A 1 k I a LF RETAINED 

independent $y_.tlm ui ail variables and 
S c N SCR AND TORUOC SIGNAL VARIABLES AS 


01 9026 
01 9027 
01 9028 
Cl 9029 
019030 
019031 
019032 
019033 
019034 
Cl 9036 
Cl 9036 
019037 
Cl 9038 
01 9039 
019040 
019041 
019042 
01 9043 
019044 
01 9045 
019046 
01 9047 
01 9048 
01 9049 
01 9050 
C 1 905 l 
Cl 9052 
019053 
019054 
Cl 9055 
Cl 9056 
019057 
019058 
01 9059 
Cl 9060 
C 1 9061 
Cl 9062 
019063 
Cl 5064 
01 9065 
01 9066 
019067 
Cl 9068 
01 9069 
C l 9 070 
01 9071 
019072 
019073 
019074 
01 9075 
015076 
019077 
01 9078 
Cl 9079 
Cl 9080 
019081 
019082 
01 9083 
Cl 5084 
Cl 5085 
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c 

c 

c 

c 

c 

c 

c 
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DEF INED ABOVE. 


LcT 

THcN 


V Hu: RE YY 


8 = (MATRIX OPERATION) 

Y*< l ) = B(iiJ)*YY(J) 

IS DEFINED ABOVE AND SUMMATIuN i'lPUti) BY REPEATED J 


*K*#<-l)*M*fi MATRIX IS* 


•REORDERED K**(-1)*H*K 
MATRIX IS* 


= THE NX BY NX MATRIX WHICH IS THE 

TRANSFORM OF THE PARTIAL DERIVATIVE 
MATRIX • H * C04 3 UTiD IN LINEAR. BY THE 
SIMILARITY TRAN SFURMA T 1 UN MATRIX *R * 
CUMPUTED IN FlNDT. THIS IS THE MATRIX 
R**(-1)*H»R APPEARING IN EQUATION 
II I -2 A OF VOL 1 i I HE RQwS AND CCLUMNS 
HOWEVER AT THIS POINT ARE CONSISTANT 
WITH Y* COLUMN MA T * 1 X DEFINED ABOVE 
= THE NX BY NX MATRIX K«*(-l)*H*R WHICH 
HAS HAD ITS ROWS AND COLUMNS 
INTECHANGED SJ As TO BE CUNSISTANT 
WITH THE TRANSFORMED STATE VECTOR 
CORRELATION ARRAY POINTED AND DEFINED 
ABCVE. THIS Is THs MATRIX WHICH IS 
RETURNED TO UYNS40. IT IS THE 
DESIRED SIMILARITY TH ANSF CRMAT I CN 
MATRIX (NOT T oil CONFUSED WITH THE 
MATRIX R ALONE) 


FREQUENCY DOMAIN ANALYSIS 


C 

C 

c 

C 

C 

c 

C 

c 

c 

c 

c 

C 

C 

c 

c 

c 

c 

c 


description of transfer function < the param^Tcrs which will 

DEFINE WnAT IRANSFER 

FUNCTIONS ARE TO BE SETUP 
AND HGw IHc FREQUENCY 
REsPunSL DATA IS TO BE 
DISPLAYED MUST BE USER 

specified ON input CARDS 

TJ BE READ in DYNS40) 

LNAM = INPUT PARAMETER. STORED LOCALLY 

IF ( LNAM. EQ. wHl I ME ) LINEAR TIME ResPUNSE ANALYSIS 
kECLESTEO by user 

IF( LNAM.cQ. AHTREU) FRECUENCY AMAlITSI j REQUESTED BY USER 
IF ( LNAM .EQ. AH ) FURTHER ANALYSIS jr lIMlARU£D 

EQUATIONS NOT KEQJlSIED 

NCyC - TOTAL NUMBER OF TRANSFER FUNCTIONS WHICH .ILL BE SETUP 
AND ANALYSED IN THE FREQUENCY DOMAIN. INPUT PARAMETER 
STukED LOCALLY. (MAXIMUM PER RUN EQUALS LI) 

LRY - TRANSFER r-VNCUtN DA T A SPL C I F I C Af l u»M ARkaY. STORED 

LOCALLY AND DIMENSIONED (9. LI) TU AVJiu eXCESSlVE LSE 
OF SUBSCRIPTED VARIABLES THE FOLLOWING PARAMETERS ARE 
SET. FOR TRANSFER FUNCTION I C YC • 1 C Y C= i • 2 . • • • , NC YC 
I T Y P c = LRY(l.ICYC) - TRANSFER FUNCTION TYPE. SEE SUBRCUTINE 
TFTYPE FOR DESCRIPTION CF 0 PJsslJLE TYPES AVAIlAELE 


I TF i N = 
JlFiiuT - = 


FOR U5t_K 

LRY(2.1CYC) = INTEGER USED 
SIGNAL ASSOCIATED WITH THE 

lpy(j.icyc) - integer used 


TO SPECIFY T He INPUT 

transfer function 
TO specify the output 


01 9086 
0 l 9087 
Cl 9088 
01 9089 
019090 
C 19091 
019092 
019093 
01 9094 
019095 
01 9096 
01 9097 
01 9098 
019099 
01 9 ICO 
01 91 0 l 
01 9102 
019103 
01 91 04 
0191 05 
Cl 91 06 
Cl 9 10 7 
01 9108 
Cl 91 09 
01 91 1 0 
0191 I 1 
0191 12 
Cl 9 I 13 
0191 l 4 
C191 15 
019216 
019117 
019118 
019119 
019120 
019121 
C19122 
019123 
019124 
019125 
Cl 9126 
019127 
01 9 128 
01 9129 
01 9130 
019131 
C19132 
019133 
019 1 34 
019135 
01 91 36 
01 9137 
019138 
019139 
019140 
019141 
01 9 1 42 
019143 
019144 
Cl 9 1 45 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SIGNAL Abs lC l A T cD W I TH THE THANL-F-K rJNCT ICN 
KFLuT = LrY ( ** . i C YC ) MNItOEP uSCO IG JuFIiMl Ir PLOTS TO BE 
■oLNeR A TtO 


IAFuG = LRY(5,iCYC> = INTEGER LSED TO JcFi.ME IF CHARACTERISTIC 
MATH l A uR ITS TRANSPOSE TO BE JaEJ IN ANALYSIS 
NEkP * LI\Y (6-1CYC) IF I T Y PE • NE. 7 UNUotiG JlHUUIaE = NUMBER OF 
F t: fi DO /»C K S i ^ NA L S T C RETAIN ( M4 K LF J ALL J'aEO I 
KEK^ID* L k Y ( C ♦ l . ICYC) .1=1 • NO KP = INTRutWi JtFlNlNG WHICH 
FEEDBACK j IGNALb ARE TO BE RETAiNiO 
I R Y = TRANSFER FUNCTION CO MPl T A T I ON AL I JLLKANCc JATA ARRAY • 

STDklO LOCALLY A NO DIMENSIONED (3.LH . FUR aC ME SPECIAL 
HKUHLEMS DEFAULT ILlERANCE CAT A a’ 1 LL NJT wU3K. THE CAT A 
IN THIS mKkAY ALLOWS FCR UVERRIJ- v.A j au!LIIY 
TCLM •= TOLD - 10-00 ** iRY(l.ICYC) = KOGf TOLERANCE FACTCR 

ALL NUMERATOR AM GUN C v I N A TOR RGUIS ,c5‘j I HAN THIS FACTOR 
St-T EQUAL 1U ^LRU IN SIFT. REALMS CONSIANT ^TOREO IN 


/L T (3L / 

SUL = 10. DO ♦ * IKY(2.2CYC) = THE NUMERATOR • j A 1 N MUST BE 
GREAT Than OTOL FOR CCW.PUT AT lU.x TO LUNTINUE 
P T LL = 10.00 ** IRYI3.ICYC) =ALL RGCTS L r atCUNJ TERM IN 

NUMcftAi O k oF transfer function i man ptol set 

EQUAL 10 <£ u kC ( StE NUMS AND Eo I 11-42). THIS REFERS 
TO THL SPECIAL TECHNIQUE USED IN OBTAINING NUMERATOR 
ROO TS 


TFT YPc_ - MATRICES F vK TRANSFER FUNCTION COMPUTATION 


CISC'S HAS THE BUILT IN CAPABILITY TU GENE RATE UPON USER SELECTION 
ANY ONE OF EIGHT JlF FlKlNT TRANSFER FUNCTIONS- THE 6ASIC 
.v«)Ot_L IN COMPUTER MEMORY wHEN TFTYPE ia CAcLED 15 IlLUSTRATEO 

e y I fi_ Following figure 


k T (S ) + j I 

>0 >j PLANT G(S> I >0 > 

-ii ii 

fCS(S) 1 | 


I * I X 3 S l S > 

II I F V 

0< | CONTROL H(S) | < Jc 

j | ♦ K S < S ) 


Hie £ I MULT ANEuUb ciOuAlICNS WHICH HAVE BttN JtklVtO ARE IN 
The. S-UUMAIN oIVEN IN MATRIX NOT AT I CN BY! 

5 * X l I • S ) = A< l . J ) * X < J . S ) ♦ ii(i.X)*J<K.S> 

WHERE I - I • 2 NX 

J=1i2....»NX 

K = ! • 2 * • • • . NAUX ( NAUX = NXSS*NST U) 

AND SUMMATION IS IMPLIED BY REPEATED iNUcX NUTATION. 

FROM * THE TRANSFORMED STATE VECTOR CORRELATION awRAY*: 

FOR INDEX I J 1 = 1 . • . • .NY 2 


019146 
019147 
019146 
019149 
01 9 l 50 
019151 
Cl 91 52 
019153 
019154 
01 9 1 65 
01 91 66 
019157 
01 9168 
019159 
01 9160 
C 1 9 1 6 l 
019162 
Cl 9163 
019164 
019165 
01 9 166 
01 91 67 
019168 
01 91 69 
01 9 1 70 
019171 
01 9 l 72 
019173 
C191 74 
Cl 91 75 
019176 
C l 9 1 7 7 
01 9 1 78 
01 91 79 
01 9 l 80 
019181 
019182 
01 9183 
01 9 1 84 
019185 
Cl 91 86 
019187 
01 9188 
Cl 9189 
019190 
C l 9 1 9 l 
019192 
01 9193 
019194 
019195 
01 9 196 
019197 
019198 
Cl 91 99 
019200 
01920 1 
Cl 9202 
Cl 9203 
01 9204 
Cl 9205 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


Xll.S) = Y ( 1 » S ) = 1-Th INDEPENDENT P z. * I JR 0 A T 1 CN VARIABLE 

EUR THE PLANT 4HIC.1 HAo NOT BEEN 

exchanged by rrit similarity 
TRANSFCRMAT ION EUR A sensor signal 


FOR INUtX 

X( l , s) 


FOR I NO LX 

>(1.5) 


FOR INDEX 

xi i . si 


EUR INDICE- 
A i I » J ) 


I ! I =N Y2 + 1 ,...,NY2tNXSS 

= XSSlL.3) = L-TH SENSOR S1 jNA_ <L=l~NY2i WHICH BY 
THE SIMILARITY TR A NGE UR M A T I ON IS LSED 
AS A PLANT STuTc VAkIAJLE 

I I l=NY2LNX5S+l . . . . • NX— NB T Q 

= Y(M,S) = M-TH INOFPENDENI PER TuR UA T I CN VARIABLE 
FOR THE CONTROL SYSTEM ( M = I -N Y 2-N X S S ) 
WHICH HAS NOT J LEV EXCHANGED BY THE 
SIMILARITY TRA.NsF jL-iAl I UN FOR A 1CRCUE 
S I GNAL 

I I 1 -NX-NUTOE l NX 

= TCs(N.s) = N-TH TORQUE SIGNa. ( N = I -N X E NBTQ ) WHICH 
ii Y THE SIMILARITY TRANSFORMATION IS 
oStO AS A CCNIROL sYslEM STATE 
VARIABLE" 

S 1 A NO JI NX AND J=i NX 

= R»*(- i ) *h»i<( i .J) = (i.J) element oe ihc 


SIMILARITY TRANSF DXMAI IUN MATRIX 


returned to dyns <*o from asimlr 


FUR INDEX k;k=1.NBT0 

Q(K.S) = hT(K.S) = REFERENCE INPJT IUrGUE SIGNAL THAT THE 
K-TH CONTROL fUKuJt sIuNaL IQS(K.S) IS 
SUBTRACTED FROM AND FcED TO THE PLANT 

fur index k ; k=nutge i , . . . . notoenxss 

U(K.S) = RSIL.S) = REFERENCE INPJT sEuSuR SIGNAL WHICH IS 
ADDED TO THE L-lh SENSOR SIGNAL 
XSS(L.S) AND E s Ed INTO IHE CONTROL 


SYSTEM (L=K-NDlU) 


fur Index 

E( I . K ) 


fur index 

b( I , K ) 
FUR INDEX 
E( l , K ) 
FuH INDEX 
B( l , K > 


i;i=i w»2enxss and k ; k=i , . ,nbto 

= -A(l,K) = (I.K) ELEMENT uF THE REFERENCE INPUT 

COEFFICIENT MA T R 1 X , TncsE ELEMENTS ARE 
ASSOCIATED with reference input TORQUE 
SIGNALS FEED 1 N r u THE PLANT 

l ; 1 = 1 . . . . ,NY2«-NXSS AND NBTQfNXSS 

= 0 


I. l = NY2tNXSS*l . ... .NX AND K ( K= 1 . . . . . NB T O 
= 0 

111 -NY 2 FNASS T 1 NX AND <l«.= VSTOH NDTQ* NX S S 

= At l.K) = (I.K) ELEMENT UF THE REFERENCE INPUT 

COEFFICIENT MATRIX. THESE ELEMENTS ARE 
ASSOCIATED WIIH ReH'eRlNCc INPUT SENSOR 

signal s fled into i ml cuntrgl 


IN GENERAL THE ELEMENTS X(I.S).t=l NX DEFINE mLL POSSIBLE 

CclPGT SIGNALS and THE ELEMENTS U(K,S).<=I NAUX DEFINE 

All POSSIBLE INPUT SENSOR AND TORQUE KeFErENLc SIGNALS. IN 
THE S-UOMAIN T nc EQUATIONS MAY BE EXPRESSED AS 

II(I.J)*S - A ( I , J ) ) *X< J ,S ) = HI l ,K> «U(K.S) 


WHERE 

I < I %J) = i IF < I . cC. J ) 

l < I .J) = 0 IF ( l -NE.J) 

1 = I .... .NX 

J = NX 

K = l NAUX 


01 920b 
01920 7 
C 19200 
Cl 9209 
01 9210 
019211 
C 1 92 1 2 
Cl 92 1 3 
01 92 l A 
019215 
019216 
C 1 921 7 
01 92 IB 
01 92 1 9 
01 9220 
01922 l 
019222 
Cl 9223 
019224 
Cl 9225 
01 9226 
019227 
0 1 9 2 2 B 
019229 
019230 
019231 
C l 9232 
01 9233 
019234 
01 9235 
019236 
019237 
Cl 9230 
01 9239 
01 9240 
Ct 924 1 
019242 
Cl 9243 
C 1 9244 
019245 
019246 
Cl 9247 
01 9240 
019249 
019250 
019251 
019252 
Cl 9253 
019254 
01 9255 
01 9256 
01 9257 
01 9258 
01 9259 
Cl 9260 
C 1 926 1 
01 9262 
01 9263 
Cl 9264 
019265 
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THE COEFFICIENT MA1HIX COMPLETELY DEFINES ALL COUPLING BETWEEN 

T He XX LINEARLY I NUtPENDtN T STATE VAHiAdLiS, SENSOR SIGNALS 
ANJ TURUUt: biOANLj USED TO MODEL THE sfN A41C RESPONSE OF THE 
SYSTEM 

SEVERAL DIFFERENT 1 YPes CF TRANSFER FUNCTIONS A Re USED IN THE 

LINEAR STABILITY ANALYSIS CF A PARTICULAR S Y ST cM • THE 'TYPES 
CF TRANSFER FUNCTIONS* MAY BE CLASSIFIEU ACCORDING TO WHAT 
FL'ECcACK i NF 0 RMA T I CM IS ALLOWED J THAT IS* WHICH FEEDBACK LOOPS 
ARe CPCN AND WHICH F LebbAC K LOOPS ARE ClOScD. 

FEEDBACK LOOPS ARL CUT IN THE DISCOS FURMJlATION DY SELECTIVELY 
SET 1 INS CERTAIN clLMLNTs IN THE’ 'A* MATRIX lQUal TO ZERC TO 
FORM THE' R.EDUClD MAIftiX * AR • • THE ASSuClMTeD IRAnSFER FUNCTICN 
WhICH DEFINES 1 me OUTPUT RESPONSE OF THE P-TH STATE VARIAELE 
>CP,E) TO THC C-TH KtFtKLNCE INPUT SIGNAL U(D.S) IS FROM 
CRAMER • S RUl. E uEPlNcD BY 

X(P.S) ULT ( AUG ( I *S - AR ) ) 


U ( Cl .b> Del < l «S - AR) 


W HE RE 
AJul I * S 


I 

AR ) 


DEI 


UNIT uIAGCNAL MATRIX 

A JoMtiN TL O MATRIX OBTAiNeU aY PLACING CCLOMN 
U OF The ' e • MATRIX (KEruTcNCt INPUT SIGNAL 
LOLFF1LIENT MATRIX ) INI u COLUMN P OF THE 
1 ( 1 *S - AR) • MATRIX 
• De TLRMI N ANT CF ' 


SUBROUTINE TFIYPE ACCEPTS FROM OYNS40 THE v.Odrr ICIcNT MATRIX *A* 
AND INTEGER COOES WHICH DEFINE WHICH FLeDoACk LOOPS ARE TC BE 
CUT AND WITH Re SPELT Tu WHICH REFE Re Nee I'JPuf SIGNAL THE 
TRANSFER heNClIUN IS TO bE GOTAINED. IT HfTURNs TO DYNS40 
THE RfcUU CEO MATRIX • AR • , ITS DIMENSION AND THE COLUMN OF THE 
«U* MATRIX ASsOCIAIED WITH THE REF E R LnC e iNPOl SIGNAL OF 
IN T ERL SI 


ITYPE - INTEGER CluE Ubeu TU DEFINE THE *TYP- up TRANSFER 

Function* to ue generated 

wC CL = INTEUeR CuOL JStD TU DEFINE PARTICULAR REFERENCE INPLT 

SIGNAL UP INTEREST 

A - DUMMY ARRAY IN WHICH THE *A« MATRIX is PASSED TO TFIYPE 

l = DUMMY ARRAY IN WHICH THE • AR * MATRIX IS RETURNED 

E = DUMMY ARRAY IN WHICH TPF. COLUMN U= THE *0* MATRIX 

ASsOClATLU with THE REFERENCE IN-»uT slG.xAL UF INTEREST 
Is Re TURNED 

NZ = INTEGER, el MENS I CN OF THE • AR • MATRIX 

NuKP = SPECIAL FOR IT Y PG= 7 

K8KP = SPECIAL FOR l I Y Pe = 7 


I T Y P C 


TRANSFER FUNCTICN SETUP 


= F OR a ARu PATH I R ANSF ER F UNC T i J ^ u ( s ) • 
KEOUCeD MATRIX • AR • IS ( NY *1 ♦ ^ X Sb ) BY 
THE REFERENCE INPUT TOROuc SIGNAL UF 
Ti.KuU L jIoNAl JCUL WHERE 0 < JLUL < 


THE 

( NY2 + NXSS I 
INTEREST IS 
NbTQ + 1 . 


01 9266 
01 9267 
Cl 926b 
01 9269 
019270 
019271 
Cl 9272 
Cl 9273 
019274 
01 9275 
01 9276 
01 9277 
01 927b 
01 9279 
01 9260 
019281 
Cl 9282 
019283 
019264 
01 9285 
Ci 9266 
Cl 9287 
Cl 9288 
Cl 9289 
019290 
01929 l 
019292 
01 9293 
019294 
Cl 9295 
01 9296 
019297 
Cl 9298 
Cl 9299 
019300 
Cl 930 l 
Cl 9302 
Cl 9303 
Cl 9304 
Cl 9305 
Cl 9306 
Cl 9307 
Cl 9308 
Cl 9309 
Cl 9 310 
019311 
019312 
019313 
019314 
019315 
019316 
Cl 931 7 
019318 
01 93 l 9 
019320 
019321 
01 9322 
Cl 9323 
Cl 9324 
01 9325 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


I T Y PC = 2 


nypt = 3 


ITVPl = 4 


THfc FOLLOWING COOL IS USEu IN TFTYPc 
NZ = NY2+NXSS 
JB - NY 2 FN XS S + ND2 F JCOL 
DO 1 1=1 * NZ 

CiC 1) = A ( I * J8 ) 

DO l J=1 * N Z 
Z { 1 . J ) = A { I , J) 

i COM I MjE 

IF ( i T YPt.LU.- 1 ) THE SIGNS OF I Hh ELEMENTS IN «B* 
ARE ALL CHANGED (NEGATIVE FE^UdAU FOR NUMERATOR) 
Tht TRANSFER FUNCTION BETwlE.M ANY OUTPUT SENSCH 
SIGNAL AND REFERENCE lNP\Ji TjROUt SIGNAL JCCL 

may be obtained 

FEEDBACK PA1H TRANSFER FJnCTIUN H(o). THE 
REDUCED Matrix ‘AW* IS (NuZ+nBTU) BY (ND2>NBTQ) 
TitE REFERENCE INPUT SENSuk SIGNAL UF INTEREST IS 
SLN30R SiUNAL JCOL WHERE 0 < JLJL < NXSSFl 
I HE FOLLOWING CODE IS USSR IN IF TYPE 
Nz. — NU2FNBTQ 
JB = . NY2+ JCOL 
DU 1 1 = 1 » NZ 

II = NY 2 FNXSSF I 
di I ) •= A ( I I • JB ) 

DU 1 J= l * NZ 
JJ = NY 2 F NXS S F J 
Z ( 1 » J ) = A( I I p JJ) 

i CONTINUE 

THE TRANSFER FUNCTION 8ETWLEN ANY OUTPUT TORQUE 
SIGNAL an U REFERENCE INPJT SEN:>u*k SIGNAL JCCL 
May L >L LOT Ai NEC 

UHlN LOCH lkANSFER FUNCTION G(S)*H(S). THE 
FtxJdACK PATH FROM THE CoNlRJ-_ SYSTEM TO THE 

plant is lumpletely cut. ihis is effected by 
setting all coefficients associated with control 

SYSTEM STATE VARIABLES, in The cUUATIUNS FOR THE 
PLANT STATE VARIABLES. EQUAL TO ZEkU. THE RECUCED 
MATRIX * AR • IS NX BY NX AND THE REFERENCE INPUT 
TORUUL SIGNAL CF INTEREST IS TURUUt SIGNAL JCOL 
whcRE U < JCCL < NUTG+I. THE FULLuwlNG CODE IS 
uSLO IN TFTYPE 



DO 1 1 = 1 ,NX 

6(1) = 0 .0D0 

IF4l.LL.NN) B(I) = A(i.JB) 

DO 1 J= l .NX 
Z ( I , J ) - C. ODC 

IF { i .Ll.NN.AND.J.GT.NN) oO TO 1 
Z { I • J ) = A( l . J) 

l CON T 1 NUc 

1F( tlYPE.LG.-2) TPE SIGNS OF THE tLtMtNTS IN »B* 
AkE ALL CHANGED. THE TRANSFER FUNCTION OE TWEEN 
ANY OOTPOT TORGUL SIGNAL A No REFEKlNCE INPUT 
TURUJc SIGNAL JCCL MAY G- ublAlNLD 

OPEN LUlP TRANSFER FUNCTION H(5)4G(s») • THE 
FlLl/DACX PATH FROM THE P.ANl lu lilt CONTROL 


01 9326 
01 9327 
01 9328 
Cl 9329 
019330 
019331 
01 9332 
01 9333 
Cl 9334 
019335 
01 9336 
Cl 933 7 
Cl 9338 
019339 
019340 
01934 1 
01 9342 
01 9343 
019344 
019345 
Cl 9346 
01 9347 
Cl 9348 
019349 
Cl 9350 
0 1 936 l 
01 9352 
01 9353 
Cl 9354 
019355 
01 9356 
Cl 9357 
019368 
019359 
Cl 9360 
019361 
01 9362 
019363 
01 9364 
Cl 9365 
01 9366 
Cl 9367 
01 9368 
Cl 9369 
01 9370 
019371 
Cl 93 72 
019373 
019374 
Cl 9375 
019376 
01 9377 
019378 
01 9379 
Cl 9380 
C 1938 l 
019382 
Cl 9383 
C 1 9384 
C i 9385 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


:>YbTf-M IS CuMHL£TtLY CUT, Thl j IS EFFECTED BY 
iLllUo ALL COLFF I C ILMT3 ASSJClAldU wl TH PLANT 
SI Ale. V AK I AOL 1: S • IN THE lJJAI t JNj FuR Tn£ CONTROL 
STATE V AR l AuL'dSi EOUAL TU cdkO. I He REDUCED 
MATRIX *Ak« IS NX BY NX AND frit RdFLkENCE INPUT 
StNSJR SIGNAL Of INTEREST IS JCOL *HLRE 
0 < J COL < NXSSM. THE FuLLu* I No CUUE IS USEC 
IN Ti- 1 Y PE 

NZ = NX 
NN = NY2 fNXSS 
Jb = NY2+JCGL 
DO l I - 1 .NX 
0(1) = 0 • OOC 

IF(I.GT.NN) P(I) = A(l,Jd) 

DU l J=1 • N X 
ZI 1 . J ) = C .0 00 

if 1 i • GT .NN.ANO. J .U:.NN) TO 1 

Z ( i » J ) = A ( i * J ) 

I CUM I NUtf 

Tml TRANSFER FUNC T I CN eETitLN ANY UjTPUT sensor 
SIGNAL AND REFERENCE I NPJ I SdSSGk SIGNAL JCCL 
MAY BE OBTAINED 

i type = b = cluscu loop transfer function - control ratig 

OlSJ/lUG(bl*H(S)l, ALL FEEDBACK PATHS ARE CLOSED 
ANJ HE NCL THE REDUCED MATkiX »AK» IS NX BY NX ANO 
EuUAL TC THE INPUTTED • A* MaT^IX. I'nfc REFERENCE 
INPuT TCROUE SIGNAL CJF INTEkEST IS JCOL WHERE 
0 < JCUL < nBTC«-1. the FijLLUi INu CQi> E IS USED 
IN TFT YPt 

NZ = NX 

NN = NY2*NXSS 

JB = NY Z ♦NXSS4ND24- JCOL 

Du L I-l .NX 

6(1) = 0 .90 0 

IHI.LU.NNi 6(1) = A ( I • J d J 

DU l J=l .NX 
Z(A.J) = A ( I • J ) 

1 CONTI NUE 

If ( 4 TYPE.EU. -5 ) THE S 1 GNs OF I Ht LLtMENTS IN *6* 
ARE ALL CHANGEC. THE TRANSFtk FUNCTION BETWEEN 
ANY OUTPUT SENSOR SIGNAL ANU T tiC ktFERENCE INPUT 
T Lk DUE SIGNAL JCOL MAY Dc OBTAINED 


I TYPE 


CLOSED LOOP TRANSFER FUN'CUuM 

G( S ) *H< S) / ( l ♦ G< S ) *H( S ) ) . hLl HEEDdACK PATHS ARE 
CLOSED AND HENCE THE REDUCED MATRIX *AR» IS 
NX bY NX AND ECUAL TO THE INPUTTED *A* MATRIX. 


1 HE k eF fc_k t NC C IN^UT 
JCOL hricKc 0 < JCOL 

1 S USED IN TFT YPE 
NZ 


SEN S J R S I v 
< NXSbFl. 


NN 

JB 


NX 

NY2+NXSS 
NY 2 + JCOL 


C 

Do 1 l = l .NX 

c 

e( 1 ) = 0 .000 

c 

IF < l .GT . NN ) E ( l ) 

c 

DO 1 J= l .NX 

c 

Z( l. J> = A ( I , J ) 

c 

1 CONTINUE 


NAE 

THE 


OF INTEREST IS 
FOLLOWING CODE 


A ( I , JtJ ) 


01 5386 
Cl 9387 
Cl 5388 
Cl 9 J39 
01 9390 
Cl 539 l 
019352 
01 9393 
015394 
01 9355 
019396 
01 9397 
Cl 9398 
Cl 9399 
Cl 9400 
C 19401 
Cl 9402 
019403 
01 9404 
Cl 9405 
019406 
019407 
Cl 9408 
Cl 9409 
019410 
C 1 94 I 1 
019412 
019413 
C 1 94 l 4 
019415 
019416 
019417 
019418 
01 94 19 
019420 
019421 
019422 
01 9423 
019424 
Cl 9425 
019426 
019427 
01 9428 
Cl 9429 
019430 
C 1 94 3 l 
019432 
Cl 9433 
019434 
Cl 9435 
Cl 9436 
Cl 9437 
01 9438 
019439 
01 9440 
C I 944 1 
Cl 9442 
01 9443 
019444 
01 9445 
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c 

c 

L 

c 

c 

c 

c 

c 

c 

c. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


Hit. i hANjh t.R FUNCTION HOT H LL N ANY OUTPUT SENSCR 
SIGNAL ANL> TriE REFERENCE IinPjI ScNSOR SIGNAL 
JLUL MAY L*L DETAINED 


itype = 7 = guasi uPln ljcp transfer funci i jn, the feeceack 

PATH t»<CM THE CONTROL SYSTEM IQ THE PLANT IS 
PAhTIALLY CLOSED. THE NOKP TJRuuE SIGNALS 
MjKP 1 l) • • • • iM3KP( NOKP I ARu THE ONLY TORQUE 
bluMALb FcKurfACK FROM T He lONTRUL SYSTEM TO THE 
Pc. A N I * All CT FEW LOOPS AR_ UP i N l NO* P . L b • 3 > . THIS 
IS £t I c L T t l> GY St 1 TING All cJ EFFICIENTS 
^jbuCiAJcl; WITH THE CCNTkUL SYSJcM oJATE 
VAk l AiiLLb » IN THE EQUATIONS FoR I HE PLANT STATE 
VARlAJLLS. tOuAL 1C ZERO cXLiPI THOSE ASSOCIATEU 
WITH Hit NHKP TOP CUE SIGNALS TU BL F LECHACK • THE 
KlOulEu MATRIX 'AK # I S NX bY NX ANi) THE REFERENCE 
INPUT TUCiUu SIGNAL OF I^TtREST TCRCUF SIGNAL 

Jc.UL uHLKt 0 < JCOL < THl FOLLOW ING CODE 


65 Ll) 

IN ft TYPE 



NZ 

= 

NX 



NN 


NY 2 tNXSS 



Jb 

= 

NYi»NXSStNJ2tJCJt 


DU 

1 

I - 1 .NX 



b l 

I ) 

= 0.000 



IF 

( 1 

.LE .NN ) e C I > 

= <u i 

• JO ) 

DO 

I 

J- I .NX 



i 

I t 

J ) - A ( I . J ) 



IF < J 

• L t • NN.CJR. I . 

jr , mn ) 

GO TO 

Z( 

I . 

J) = C.000 



uO 

2 

K= l .NOT G 



Lb 

- 

NY 2 *-NXS 5 + NO 

2«Kl>1 u 

( < ) 

It 

( J 

.EG. LE ) Z ( l . 

J ) = A( i iLtt) 


E COM I NUE 


1 CONTINUE 

It ( i T YPb.tQ. - 7 ) THE S I GNo OF THE ELEMENTS IN • Q» 
ARE ALL CHANG EC* THE TRANSFER FUNCTION UE TWEEN 
ANY OUTPUT TORGUE SIGNAL A NO THE KtFERENCE INPUT 
iL.KUCt SIGNAL JCOL MAY ed ubIAINLJ 

***** SPECIAL CASE *v*** 

A REFERENCE INPUT SIGNAL ASSOCIATED WITH any SYSTEM STATE 

VARlAHLt X ( 1 • • 1 - l i • • • • NX MAY BE Ftu INTO THE SYSTEM. 

EITHER ALL STATE VARiAdLcS CR ALL LXClPT T hc ONl ASSCCIATED 
WITH THE REFERENCE INPUT SIGNAL MAY zlc. FEtJdACK TO THE SYSTEM. 
ElFtER THE CLOSED LOOP OR THE ONE STATl uPEN LOUP TRANSFER 

function may bl ootainlo oetwcen any ^tatl variable and the 

REFERENCE INPjT SIGNAL 


I TYPE = 8 = J.\E STAIl UPFN LOCP TRANSFER FJNCT1UN. 

A REF lkLNC l INPUT SIGNAL MAY St SUMMED WITH ANY 
SYSTuM STATt VARIABLE X(JCUL.S). 0 < JCOL < NX ♦ 1 
AND FEED I NT U THE TOTAL oYSItM. FOR THIS CASE 
THE LOOP WHICH DEFINES X(JcG_.S) FEEDBACK INTO 
Trie SYSTEM 13 CUT. THIS IS EFFECTED BY SETTING 
TO ZERO ALL STATE VARIA^t LUJFLlNu COEFFICIENTS 
AoSuClATtO w I Tt STATE V AR 1ABLE JCOL FEEOEACK. THE 
FOLLOWING LODE IS LSED IN TFlYPE 
NZ - NX 
Jd = JCOL 


01 9 <146 
01 9447 
Cl 9448 
01 9449 
Cl 9400 
Cl 94 S l 
01 94 52 
Cl 9 40 3 
019454 
01 9455 
Cl 9456 
01 9457 
01 9458 
Cl 9459 
01 9460 
Cl 9461 
01 94o2 
0 l 9463 
019464 
01 9465 
Cl 9466 
019467 
Cl 9468 
01 9469 
0194/0 
019471 
01 9472 
01 9473 
019474 
019475 
01 9476 
Cl 94 7 7 
01 94 7Q 
01 9479 
01 9480 
019461 
Cl 9482 
019483 
Cl 9484 
Cl 9465 
0 l 9486 
01 94 67 
019488 
Ct 9 4 89 
01 9490 
01949 l 
01 9492 
Cl 9493 
0 19494 
01 9495 
019496 
019497 
01 9498 
01 9499 
Ci 9500 
019501 
019502 
C l 950 3 
C 1 950 4 
Cl 9505 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


OC I l ~ l . NX 
6(1) = 0.000 

IFU.Nt.JB) eu> = -A(ltJil) 

DU l J=1 ,NX 
Zi l » J > = All , J ) 

IF< J.NE. JB) GC TO l 
(F ( ( • LCi • JB > GO TO 1 
Zi l • J ) = C. 000 
1 CONTINUE 

T ml. TRANSFER FUNCITQN BET « ctN ANY STATE VARIABLE 
AND ANY REFERENCE INPUT SIGNAL MAY uE CETAlNEO 
(NEGATIVE FLECEACK USED) 

ITYPfc = -b = CLUSfcO LUOP TRANSFER FUNCTlbM. A REFERENCE INPUT 
SIGNAL MAY BE SUMMED WITH ANY otSTt* STATE 
VAklAbLL X(JCCL.S), 0 < JCGL < NX f i .AND FEED INTO 
THE TOTAL SYSTEM. FOR THI S CAS c All FEECEACK 

l cups are closed, the following cude is used 

IN TFTYPE 

NZ - NX 
JB 5= JCOL 
DO l I = 1 .NX 
8(1) - 0 .000 

IFU.Nt.JB) B ( l ) = -A(l.jCUL) 

Du l J-l .NX 
Zi 1 .J ) = A ( I . J ) 

I CONTINUE 

THE TRANSFER FUNCTION BETweEN ANY STATE VARIABLE 
AND ANY REFcRENCE INPUT SIGNAL MAY BE DETAINED 
(NEGATIVE FbECEACK USED) 

IF DEBUG! 6/) = • T KUE . THE FOLLOWING CAPTIONS AND MATRICES ARE 
FR i N tld: 

' SUEKUUT1NE TFTYPL. TRANSFER = INPUT TRANSFER FUNCTION INTEGER 

CODE ITYPE 

= THE NZ BY MZ DEDUCED MATRIX • AR • 
WHICH IS TJ Ul KtTuRr IEO TO D Y N S A 0 
IN THE DUMMY ARRAY Z 
= THE N L BY l COLUMN MATRIX 'B* 

WHICH IS IJ bt KtfJKNtU TO 0YNS40 
IN THE DUMMY ARRAY 6 


1 HE TRANSFER PUNC1 ION IN FACTORED POLYNOMIAL rURM 


fufcticn type* 

• THE CHAKAC TLR I ST 1C MAIKIa 

I s « 

• THE CORRESPONDING INPUT 
COEFFICIENTS ARl' 


SUERCUTINE TFTYPe ACCEPTS THE COCFFICIENT MATRIX 'A' OF THE. 

L l i J c AR L ZED EOUAT lt)N5 UF MOTION. IT ALSO aCLlPT-, THE USER 
CL* FINED INTEGER CU^c.S WHICH D EF l NE w HA 1 TYPe OF TRAN SF E R 
F l N L T I On IS desIRlD AND WHICH "STATE VAkI Ajl; w I L L BL HAVE ITS 

FelCUaCk modified uy a reference INPUT SIGNAL. 

SJbRCuriNL TFTYPC Re I URNS TL JYNSAO THE RLuUCED MATRIX ' AR « WHICH 
lb I HE CHAR AC I d< 1ST 1 L MATRIX F CR TmE TrAnG=-K FgNC I TON OF 
1NTLRLS1 . I< T ALSO «L TURNS THE COLUMN MAJRIa WHICH IS the 

FEFLKENCE INPul SIGNAL LGEFFICICnT MAIRIa. and NZ ITS ORDER 

GPCN HtTUINlNu 10 L/YN^»AU FROM TFTYPE THE FuLLuilNo CAPTIONS AND 
NA I RICES WILL ul PRINTED! 

• OUTPUT MATRIX -Ak- (NZ X NZ) = CHARACTER I ST 1 C MATRIX CCMPuTED 


019506 
019507 
Cl 9508 
Cl 9S09 
C1951 0 

0 196 1 l 
019512 
019513 
019514 
01 9515 
C19516 
019517 
C l 95 l 8 
019519 
01 9520 
Cl 9521 
01 9522 
019523 
019524 
Cl 9525 
01 9526 
01 9527 
019528 
Cl 9529 
Cl 9530 
019531 
01 9532 
01 9533 
019534 
01953S 
Cl 9536 
Cl 9537 
Cl 9538 
Cl 9539 
Cl 9540 
01 9541 
Cl 9542 
01 9543 
Cl 9 54 4 
01 9545 
Cl 9546 
019547 
C l 9548 
Cl 9549 
C 19550 
01955 l 
019552 

01 9553 
C 19554 
019555 
019556 
019557 
Cl 9558 
019559 
Cl 9560 
019561 
Cl 9562 
019563 
019564 
Cl 9565 
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C IN TFTYPc. A NJ HlTUHNED TO QYNS40 01 

C IN DUMMY ARRAY >1. THIS IS THE 01 

C REDUCED MAIRIX *AR* 01 

C • OUTPUT MATRIX BCOL l 1 X NZ ) = THE NZ 3Y l COLUMN MATRIX '6* 01 

C COMPUTED IN IFTYPE AND RETURNED 01 

c to dynsaj in dummy array vi, this ci 

is the column matrix of reference oi 

INPUT SIGNAL COEFFICIENTS tc BE 01 

USED FOR TRANSFER FUNCITCN 01 

COMPUTATION 01 

01 

THESE MATRICES ALUNO WITH OTHER STCRED CUANT1TIES PROVIDE 01 

SUFFICIENT DATA TO CONSTRUCT THE DESIRtO TRANSFER FUNCTION VIA 01 
APPL I C A T ION OF CRAMER'S RULE, THAT IS 01 

01 

X(P.S) UuTlAUG<l*S - AR)> 01 

01 

U (O ,S) UlK I *S - AR) Cl 

01 

WHERE THE DESlRcD CUTPUT SIGNAL X(P.S) IS JET uRM 1 NED FHCM THE 01 

integer codes jtfout and i type. oi 

oi 

ci 

denominator routs ci 

oi 

01 

THE FACTORED POLYNOMIAL FORM OF THE DLNOMi YATJl IS FOUND BY A 01 

SIMPLE CALL TO THE UR- ALGO P I THM WITH THE MATRIX • AR • TO FIND 01 

its complex roots, the user may request that • ar transpose 1 oi 

EE USED INSTcAu OF • AR • . TFIS AT T 1 MEa FUR SPECIAL PROBLEMS 01 

CAN EE USEFUL IN OVERCOMING NUMERICAL PROdcuMS. IN EITHER CASE 01 
I HE ROOTS OF 'AR' ANO • aR * * T • ARE HOTrl FOUND AND PR1NTEC UNDER 01 
I HE FOLLOWING lAPTIUNS: 01 

•H AR • - A LISlINu IN DECREASING ORDER 01 

•NO REAL PART IMAGINARY PART' OF R EA _ PART OF ALL NZ COMPLEX 01 

ROOTS UF THE *AR* MATRIX 01 

•RAPT* = A LISTING IN DECREASING ORDER Cl 

•NO REAL PART IMAGINARY HART' OF REAL PART DF ALL NZ CCMPLEX Cl 

slots uf the • ar* *t • matri x oi 

** NOTE ** CI 

BOTH sets of complex roots oi 

SNCuLO bE EQUAL. THIS IS 01 

a check, the ruuis of *ar' oi 

will Bt USED BY UEPAULI 01 

Cl 

let: oi 

ArL(K) = REAL PART OF K-TH COMPLEX RUDT JF • AR • Cl 

RIU(K) = IMAGINARY PART OF K-TH COMPLcX RUuT UF • AR • 01 

THEN 01 

QuTCIWS - AR) = (S - NRDI l) - J*RIJl 1 ) ) Cl 

* ( S - RHDI 2) - JWRIDi 2 ) ) 01 

. 01 

. Cl 


C! 

C *IS - KRQ(NZ) - JWRIDINZ) ) 01 
C WHERE 01 
C J=SQRT(-1.0) 01 
C AND REAL AND IMAGINARY PARTS .LE. TOLD ARE SET ID ZERO Cl 
C 01 


0566 

•1567 

9568 

9569 

9570 

9571 

9572 

9573 

9574 

9575 

9576 

9577 

9578 

9579 

9580 

9581 

9582 

9583 

9584 

9585 

9586 

9587 

9588 

9589 

9590 
959 1 

9592 

9593 

9594 

9595 

9596 

9597 

9598 

9599 

9600 

9601 

9602 

9603 

9604 

9605 
96 06 

9607 

9608 
9o09 
9610 

961 l 

9612 

9613 
96 14 

9615 

9616 
96 17 
96 18 

9619 

9620 

962 l 

9622 

9623 

9624 
9025 
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C 

c 

c 

c 

c 

c 


M.^t'KrtTijk ROOTS 


THE FACTORED POLYNOMIAL FUkM OF THE NUMERAIUK ij ,-,uT AS STRAIGHT- 
TO G 0 T A I N • Thl t; IS OCNt IN T Hi SJJkUJT 1 N t NUMS 
CljCU^b^u HtUJw. THE DIFFICULTY IN CUT A 1 Nl NO THE ROCIS OF 
1 Hii NUMtRATOK LUMtS FROM THE FACT THAT IIS utoKtE MAY (AND 

lsjally is) llSS than Thai of the jf.no a inator . 

Mj.VS j'.ICbl VtS FRCM OYNstO The Rt'UJCEO MATkIa • Ai<* , T MC COLUMN 
MATRIX *tJ» and The COLUMN LCCATICN P Dr T-<c OUTPUT STATE 
V AH l A uLl X(P.s)* IT FGkMS THE *UGMENTcU MATkIa »AUG(l*S - AR ) • 
£ Y REPLACING COLUMN P OF # (I*S - AR ) • WITH THt *0* COLUMN 
NATRIa TO FORM *AUO( US - AR I * • USINj SPECIAL TECHNIQUES 
THE Cl Tc RMl NATE IS FORMED ANO .RETURNED TO DYN540 IN FACTORED 
POLYNOMIAL FORM ViHhKb I HE FOLLOWING CA J I IONS AND MATRICES 
fi HE PR 1 N TED : 

* N CM * 

* NO Re At. PART IMAGINARY PART* 


< DEN « 

•NO RE Ac PART IMAGINARY PART* 


* * NU I E * * 

IF THE NUMBER OF NUMERATOR 
POCTS NN IS LESS THAN THC 
N U N 0 1 F OF DENOMINATOR ROOTS 
NZ THEN JNOCR THt TWU COLUMNS 
WITH CAPTION He ADI NO « NUM • 

THE LAST ( NZ— NN) RUrfS »*1LL 
Of cLANK 

LE T : 

GAIN = NUMERATOR ROOF GAIN 
NN = TOTAL NUMBER OF NUMERATOR RuDTS 

RRMK) = REAL PART OF K-TH COMPLEX RuD T JF NUMERATOR 
HIN(k) = IMAGINARY PART OF K-TH COMPLEX ROUT Jr NUMERATOR 

THEN 

Cr;T(AUG(I*S - AR ) ) = GAIN*(S - RRNC I) - J*KIN( l)) 

*<S - RRN< 2) - J*RlNl 2>) 


MS - RRMNM) - J*R 1N( NN) ) 

WHERE 

J = SORT (-1 .0) 

AN 0 REAL AND IMAGINARY P aK T S .LE. TOLN ARE St T TO ZeRO 


NUMS - FIND TRANSFER FUNCTION NUMERATOR RDJTS 


THE COM PCI AT I CN UF THt ROOTS OF THE NUMERATuR PRESENTS A PROBLEM 

WHICH MUST BE OVERCOME. THE ALGORITM MOST iic. ABLE TO DETERMINE 
NOT CNlY THE DEGREE lf.the PCLYNCMIAL OUT ALSO ITS ROOTS. 

The METHOD USED MAKES A QUICK CHECK TU oLE IF 1 He PIVOT 

element is zero; if nui . both numerator and oenuMInatcr have 


= A listing in decreasing order 

GF REAL PARIS UF ALL CCMPLEX 
ROOTS uF THE TRANSFER FUNCTION 
NUMEftrtlUK. 

= A LISTING IN DECREASING ORDER 
UF REAL PA^fS OF ALL CCMPLEX 
ROOTS OF The TRANSFER FUNCTION 
Dc NO Mi MAT OR 


010626 
01 0627 
Cl 9628 
019629 
0! 9630 
Cl 9631 
019632 
019633 
Cl 9634 
019635 
Cl 9636 
01 963/ 
01 9638 
019639 
01 9640 
C l 964 1 
01 9642 
019643 
Cl 9644 
019645 
01 9646 
019647 
019646 
01 9649 
01 9650 
01 9651 
019652 
01 9653 
01 9654 
01 9655 
Cl 9656 
01 9657 
01 9658 
Cl 96 59 
019660 
C i 966 1 
019662 
019663 
01 9664 
01 9665 
01 9666 
01 9667 
01 9668 
01 9669 
01 96/0 
01 9671 
01 9672 
019673 
019674 
01 9675 
Cl 9676 
01 9677 
01 9678 
019679 
019680 
Cl 9681 
019682 
Cl 9683 
C t 9684 
019685 
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c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


THE £ AML UEGHEL AND NUMllkAICR RCCTS AuE READILY OBTAINABLE 
E Y A DIRECT APPLICATION UP THE OR - ALG J .4 I T H M • 

IF IHt PlVlUl cLtMENl IS ZERO THE DEGHst UF TmL NUMtRATOR IS 
AT LEAST I LESS THAN THE DENOMINATOR. THt IHcORY USED TC SOLVE 
THIS PROBLEM IS ON PAULS 71-73. VOL I. 

E A 3 I CALL Y . THE SUBSTITUTION 

IS - ClN) = 1.0/P 


iS MADE IN THt i NLMLk'A TOR kHG RE CCN IS AN ARBITRARY CONSTANT 
NOT EOUAL TO A ROUT u f I HE NUMERATOR. I I HAS t>LEN AR3 I T RAH ILLY 
SET AS 

CON - — UbO R T (3.0) 

IN DISCUS 

THIS EVENTUALLY LEADS TO THE NEED TO jtTEkMlNt THE ROOTS CF A 
Ct TERM IN ANT EXPRESSION WH £ CH IS OF THE FORM 

ULT ( I *P - D ) 

WHERE 0 IS A uuRLVABLt NZ BY NZ MATRIX. Src tO II 1-41 VCL l. 
ALL. NULL ROUTS IMPLY ftuCTS AT INFINITY uft A CH ARAC T ER I S T I C 
POLYNOMIAL HAVING ukOtk LESS THAN NZ. I HUS I 


AND 


NN = 1;KdER OF NUMERATOR 

- NZ - NuMBtR OF ZERO ROOTS Or DtT(I*P - O) 

S(l> = i-TH ROUT OF NUMERATOR IS OBTAINED FRCM 

Sll) = CCN ♦ l.0/P(I) l COMPLEX ARITHMETIC) 


WHERE 

PCI) = i-Th NON-ZERO ROOT OF Oil ( U 3 - D) 


THE FOLLOWING PARAMt TE kS Akt PASSED TO NUMS FROM DYNS40 AND 

RETURNED. BY SlTTINu UtuUG(68) = .TRUc. SEVERAL MAY BE PRINTED 
ALONG WITH THE DESCRIPTIVE CAPTIONS INDICATED. 

A - INPUTTED NZ BY NZ REDUCED MATRIX ' Ak • alUCh WAS SETUP IN 

TFTYPE. ARRAY DESTROYED DURING COMPUTATION 
c = lummy array used as WORK SPACE 

fc) = COLUMN OF The 'o' MATRIX StlUP IN TFTYPE 

kin = OUTPUT OF NUMS. THt NZRC REAL PARTS JF THE COMPLEX RCOTS 

uf THt numerator 

RII = OUTPUT OF NuMS. THE N2RO IMAGINARY PAkfS UF THt COMPLEX 

ROOTS OF I HE NUMtRATOR 
F2h = WORK AREA 

F2 I - WORK AREA 

PTGL = TULERANCe FALTuh ALL P-ROCTS LESS THAN PTUt SET TO ZERO 

gain - Output, numerator gain see eq m-4d vol i 

IF LG — D IF" ERR Ok ZeRU NUMERATOR GAIN. =1 IF ><IU ERROR 

NN - 1 

NZRO = OUTPUT THt ORDER OF AND HENCE NUMUtK ^F NUMERATOR RCCTS 

IY = COLUMN LOU A T I UN IN * A R * OF OESIRtJ UJTPJT SIGNAL FOR 

TRANSFER FUNuTICN 

NA = DIMENSION UF • Ak • (DEFINED AS NZ ABOV z. ) 


• ANUM ( NA X NA) • = PRINTED IF THE ORDER OF THE NUMERATOR 

EQUAL TO THAT uF THE DENOMINATOR. IT 
IS THE (NZ BY NZ) AuGU.McNTED MATRIX 
PASSED TC THE GR-AuGQRlTHM ( N A = N Z ) 


Cl 9666 
019667 
019688 
Cl 9689 
019690 
Cl 9691 
01 9092 
019693 
019694 
01 9695 
01 9696 
Cl 9697 
019698 
019699 
01 9 700 
019701 
01 9702 
01 9703 
019704 
Cl 9 705 
01 9706 
01 9707 
Cl 9708 
C l 9 709 
Cl 971 0 
019711 
Cl 9712 
019713 
019714 
C l 9 7 1 5 
01 9716 
C 1 9 7 I 7 
019718 
019719 
019720 
Cl 9 72 1 
019722 
01 9723 
01 9724 
Cl 9725 
019726 
01 9727 
Cl 9728 
019729 
01 9730 
019731 
01 9732 
Cl 9733 
019734 
01 9735 
019736 
Cl 973 7 
C 1 9 7 38 
019739 
Cl 9740 
019741 
019742 
019743 
019744 
01 9745 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


• -c- 

i NA 

X NA ) • 


PRINTED IF THc oRDcR OF THE NUMERATOR 
LESS THAN THAT OF The DENOMINATOR. IT 
IS THE MATRIX »D» DLFINcU ABOVE USED 
TO OBTAIN THE ROUTS UH OET(I*P - D) 

• -R 1R- 

l 1 

X NZRUJ • 

- 

THE REAL PARTS UF He NZRU COMPLEX 
WUQIS OF THE NUMERATOR 

•-R1I- 

( 1 

X NZRUi * 

- 

ln£ IMAGINARY PARIS UH THE NZRO COMPLEX 
kUCTS OF THE NjMeftATOK 

• CR AT l C 

< 1 

X N A ) • 

= 

the NA PIVOT ELEMENTS UbTAlNEO IN THE 
PROCESS CF COMPUTING THC *D* MATRIX 

CRVE C 




IN DE T l I *P - D) . THEsE ARE STORED IN 
ARRAY URVEC DIMcNSIDNLD (IGASMX) IN 
/DR AT IO/ 

• GAIN 

( 1 

XI) • 

= 

NUMERATCR ROOT GAIN 


Pur IN 3 I AND ARU bUUL FL/KM 


HOW FWbULcNCY RESPONSE CALCULATIONS IT IS CuNVUNbNT TO CONVERT 
PCtcS « ZEROS AND KUl) I CAIN TC STANDARD dl)J± FORM. THAT IS TO 
t*f< I TO IHc TKANbfcK H UNCTION IN TERMS u F TIME CONSTANTS* 
CAMRING ZETAc> Anu RESONANT FREQUENCIES. I ^ RESPONSE IS THEN 
EASILY GENER Alt BY The: STANCARO SUGSTlTuTluN 

S - J IOMEGA 


AND cVALUmTICN UH THE TRANSFER FUNCTION EXPRESSION AT VARIOLS 
values uf omlga 


SUBROUTINE DCGRRT IS USED TO CLASSIFY ANO LuoMT I HE ROOTS OF THE 
CO NO MINA TOR AND NUMERATOR* WHILE SUBROUTINE uFORMB USES THE 
CUIHU1 OF D CORK I TO COMPUTE TIME CONSTANT. JAMPING ZETA AND 
RcbCNANl FRbUuLNLY A kR AYS 


THE I^Z COMPLEX ROLlS UH THl DENOMINATOR ARE STORED 1 LMPDRARLY IN 
I ML ARRAYS RRU ANl) RIO* THESE ARE PASjlJ TO ULJKkT ANU THE 
FCcLCWiNG CUUNIS ARE RETURNED AND STORciO IN /lCOuNT/J 
NOW - NUMBER OF REAL mND ZERO DCNCMlNAIuT kOuTS 

NUZ = NUMBER OF ZERO l/E NOMINATOR ROOTS 

ICO ■= NUM UER UH CCMPLcX PA I Hi IN DENCMIMaIJV kuuTS ARRAY 

i ml Gummy arrays rlrt anu cmpr ahc also loaded in ocqrrt. 

THESE ARc IN TuRN PASSEu TC OFCRMb WHERc DcNeMlNATGR TIME 
CONSTANT S* DA MP I No ZCTAS ANU RESONANT Fr<c J JtiNC i E S ARE COMPUTED 
AND RETURNED IN THE HOLLOWING ARRAYS wrliCH ARc STORED 
IN /LKAkAY/: 


fuhj 


FliiK 


T I M 
J IM 


D AM 

•M:u 


: COr^slANT ARRAY FCR REAL AND ZcKJ DcNJMlNAlOR ROOTS 
iNSlUNuO (LI 1- ELEMENTS OEFINcJ ACCORD ING 10 
F ii R U ( I ) = 0. OUu IF ELEMENT KlMT ( 1 ) *lU*0 

r bMJU i = TIME CONSTANT ASSdCIATED wITH THE I-TH 
lL cMENT IN 1 HE REAL D S T«u M i NA T Oft RCCTS 
ARRAY RLWT (I=l*,*« • NDR ) 

PING ZLTA, RESONANT FREQUENCY RKrxAt FUR DENOMINATOR 
TS WHICH APPlAr AS COMPLEX PAIRS. DIMENSIONED (Lt ) 
FGOC(2*L-l) - DAMPING ZETA AbSUClAlcO WITH THE L-TH 
COMPLEX 1-00 T PAIR IN Hie DENOMINATOR 
RGGTS ARRAY CM PR 

H UDLlclFL) = RE SC NANI FRCOdcNLY AogUCIATEO WITH THE 
L - f H COMPLEX kuOT pair IN THE 


019746 
019747 
01 9748 
019749 
01 9 7 SO 
019751 
Cl 9752 
0X9753 
019754 
01 9755 
019756 
CI9757 
019758 
019759 
Cl 9760 
Cl 9761 
019762 
019763 
01 9764 
019765 
01 9766 
01 9767 
019768 
Cl 9769 
C l 97 7 0 
C l 977 1 
C 1 9 772 
019773 
019774 
019775 
019776 
01 9777 
019778 
019779 
Cl 9780 
019781 
01 9782 
Cl 9783 
01 9784 
Cl 9785 
01 9786 
019787 
Cl 9788 
C19789 
019790 
01979 l 
019792 
01 9793 
019794 
019795 
Cl 9796 
019/97 
01 9798 
019799 
019800 
019801 
019802 
01 9803 
01 9804 
Cl 9805 
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OtiNGMlNATOR ROUTS ARRAY CMPR 
CL-1 .2 . . . . • I CD) 


THE N.N COMPLEX ROUTS OF Tilt NUMERATOR ARE STORED TEMPQRARLY IN 
1 He ARRAYS RRN ANJ RIN. IHESE ARE PASSdJ 1U DCURRT AND TF E 
FOLLOWING COUNTS arc: RETURNED AND STOReD l N /LCUUNT/: 


NNR 

- NUMBER 

of 

REAL 

ANu ZE PC 

NUMERATOR HDD T 6 

NN Z 

= NUMBER 

OF 

ZtKU 

NoMLR A TOR 

ROOTS 

ICN 

= number 

OF 

COMPLEX PAIRS 

IN NUMERATOR ROUTS ARRAY 


THE DUMMY ARRAYS RLkT AND CMPR ARE ALSO lJAJlD IN DCQRR T • 

THESE ARE IN TURN PASSED TO OF CRMB WHERE NUMERATOR TIME 
CONSTANTS, DAMPING ZtTAS AND RESONANT FREQUENCIES ARE CCMPUTEO 
AND RETURNED IN THE FOLLOWING ARRAYS WHICH ARE STORED 
IN /LKARAY/: 

FBNR - TIME CONSTANT ARRAY F Cfi REAL AND ZeRJ NUMERATOR ROOTS 
DIMENSIONED ILi ) . ELEMENTS DEFINED AoCURDlNG TC 
FBNKll) = 0 * D DO IF ELEMENT klRI(1).eQ.O 

FBNR(l) = T I Me CONSTANT ASSUCIAVLD » I TH THE I-TH 
ELEMENT IN THE REAL NJMERATOk RCOTS 
ARRAY RLkT ( 1= l • 2, . • • » NNR ) 

FONC = DAMPING ZLT A » RESONANT FREQUENCY ARRAY FOR NUMERATOR 
KOLTS WHICH APPEAR AS COMPLEX PAIRS. J I Me NS I GNEO (LI) 

FBNC(a*L-l J = DAMPING ZE T A ASSOCIATED WITH THE L-TH 
COMPLEX ROOT PAIR in the numerator 
ROOTS ARRAY CMPR 

F6NU2VL) = RC SC N ANT FREQUENCY ASSOCIATED WITH THE 

l-th complex Rout pair in the 

NUMERATOR ROOT o ARRAY CMPR 

(L^l .2 

s. 

EY SETTING UEDUG(BO) = .TRUE. 1 HE FOLLOW I No OAPTIUNS AND 

ASSOCIATED ARRAYS WILL 6L PRINTED UEFjUc. EXIT FROM OFCRMB 


CU T PU T 

MATRIX 

RLk 1 

( I 

X 

KR ) • 


REAL ANJ ZERO RUUT S ARRAY 
PASSED T U JrOkMB 

OU IPuT 

MATRIX 

CMPR 

( 1 

X 

KK 1 • 

= 

COMPLEX RU3TS ARRAY PASSED 
TO D FOR MO 

CU TPu T 

MATH I X 

FOR 

( 1 

X 

KR ) • 

- 

TIME CONSTANT ARRAY RETURNED 
BY OFOkMd 

OU TP JT 

MATRIX 

r OC 

( i 

X 

KK ) » 


DAMPING ZLT* AND RESONANT 
FREQUENCY ARRAY RETURNED BY 
DF'O PM0 

OUTPUT 

MAI R I X 

AC C D 

( l 

X 

l ) ' 


GAIN FDR NJMEkATUR* 1.0 FOR 
OENCMlNATU* kETJRNEO BY OFCRMB 

CU IP J T 

MATRIX 

Gto 

( l 

X 

2) • 

= 

PRODUCT OF ALL NJN ZLRC ROOTS 
RETURNED uY dt dhmd 


CaTA SETUP FOR FREQUENCY k E SPONGE AND ROOT LOCUS COMPUTATION 


i he numerical algor i t hmd used tc compute thl transfer function's 

FRUCOLNCY RL SPunSl. And ROUT LGCLS DATA RtJUlkE THAT THE PCLE 
ZERO JaT a UHTAINED uE PUT IN A PAH TULA R F J R MAT • THIS IS 
AOCCMPL l SHED BY SUURCUIINES TTFF, IN WHICH THE ROUTS ARRAY •«» 
C IS SETUP. CANlOR. IN WHICH ROOTS COMMON TJ f Ht NUMERATOR ANC 

C CENCMINATUH ARE CANCELLED AND RTOP, IN WHi CH THE POLYNOMIAL 

C COEFFICIENTS ARRAY ♦ Ra. • IS SETUP. 

C 

C 

C T IFF - SETUP RLo I S ARkAY ' K * 


C19806 
019807 
01 9808 
019609 
019810 
019811 
01 9812 
019813 
01 981 A 
019815 
01 981 6 
019817 
019818 
Ci 9819 
01 9820 
01 9821 
019822 
01 9823 
019824 
Cl 9825 
019626 
019827 
01 9826 
OL 9829 
01 9830 
019831 
019832 
01 9633 
019834 
01 9835 
Cl 9836 
01983 7 
C198 38 
Cl 98 39 
Cl 9 84 0 
01 9841 
01 9642 
Cl 9 8 4 3 
019844 
01 9845 
019846 
019847 
019848 
01 9849 
Cl 98 DO 
019851 
019852 
019653 
01 9854 
01 9855 
Cl 9856 
Cl 9857 
01 9858 
Ci 9859 
Cl 9860 
01986 l 
019862 
Cl 9863 
019864 
C l 9865 
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C 


c 

c 

c 

c 

c 

c 

c 

c 

c 


R = rtdurs ARRAY 'A' JlMtNSIDNFC {2*Llt?l A AID STORED 

IN /LHUUI / • ALL NUMERATOR AND OEnuM 1 1 A I Lin kuLT COUNTS. 
HCaL kUUIS. CuMPCLA I) COTS ANO 00J- V.AIN DATA ARE STORED 
IN lilt RuCIG ARRAY ACCORDING TO ( rlo rULLuwlNG FORMAT 
kill -- tl'JMUtH OF kfcAL NON-ZERO Nj/lnKHltJk ROOTS 
R(2) = NJMutR OF CCMPLCX PAIRS IN Nil'lLkATUk 

K I J 1 = NuM Oc R Of X EK 0 ROOTS IN' NuM lkA I OK 

R(4> = MorttJLH OK REAL RCN-ZeRO ltiW.HNArUk ROOTS 
ft{ S) = NU.Mbt-H OF COMPLEX PAIRS In Do N J .4 1 N AT UR 

11(0 1 = NJKULK Of tLkij ROOTS IN On NO.«il N A TOR 

K<7> = duLlt GAIN AS DEFINED t! V CjjAllUHo 1 1 1 -46 AND 70 

IN VOL 1. COMPUTED IN DYNS4U FROM DATA GENERATED 
IN UFokMa AND RETURNED IN JVIWf ARRAY 1 G6 • 

FOR I=dt Yt * . . .Li W HE R E L I - 7.k( l } 

R ( 1 ) = THE kill TIME CONSTANTS ACCOClATcJ WITH THE REAL 

NOjn - alR’O numerator WCOI s 

F Or: 1-LI WHERE L2 = 7.k( | | fd»kl7l 

kin = THE h ( 2 I DAMPING ZETAS ASsJClATEJ WITH THE 

Numerator roots which appear as complex pairs 

FUR l-Ll F 2 • L l f 4 L2 

Kill - The KUl RESPECTIVE RESCN4N1 FReuUENCIES 

AsSGClAIEU WITH THE NUMEHA I Jk ROOT'S WHICH APPEAR 
AS COMPLEX HA I RS 

FOR nu2H Lj WHERE L3 = 7fR( l|l2*S(2)fk(*l 

!<(i) = THE K I A I TIME CCNSTANTS ASSOCIATED WITH THE REAL 
NON- EL RU DENOMINATOR ROOTs 

FOR LA- 1 WHERE L4 = 7 FR ( 1 ) f 2 * R ( 2 I F R ( 4 I f 2 *R ( 5 I 

kill = the MSI DAMPING ZETAS ASSJclAIED WITH THE 

DENOMINATOR ROOTS WHICH APPEAR AS COMPLEX PAIRS 
FOR I=LJf2.L3fA, . . . .LA 

Rill - T He k ( "j 1 RE SPE C T I V E RE SCN4 N T F re uuE NC I E S 

associated with the denominator roots which appear 

As COMPLEX PAIRS 

(TO PRINT SET Ge Go u ( 6 j I = . T ROE . . ThF Following CAPTICN IS 
Fk I MEDI 

•SUERDuTINC TTFF ROOTS ARRAY IS' = THE FsLL ROOTS ARRAY *R* IS 

PRINTED FOLLOWING THIS 
C APT! UN 


CANCER - CANCEL ROOTS COMMON TC NUMERATOR AND DENOMINATOR 


S = ROUTS ARRAY 'R* DIMENSIONED (2*LIF7> AND STORED 

IN /LROOT/. THE ROOTS ARRAY *R' AS SETUP IN TTFF IS 
EXAMINED FUR ROOTS COMMON TO GOTH NUMERATOR AND 
DENOMINATOR. A TOLERANCE FACTOR OF 1JF*(-Z) IS USED TO 
COMPARE THE TIME CONSTANTS AND A STRICT EQUALITY IS LSED 
TU COMPARE DAMPING ZETAS ANO ASSOCIATED RESONANT 
FREQUENCIES. WHEN COMMON ROOTS Aft F JUNO THE APPROPRIATE 
COUNTS ARE CHANGED AND THE ROOTS ReMSVeD FROM 'R' 

(TO PRINT SET uEUUGl 04 I =. TRUE • THF. FOoLJWlNG CAPTION IS 
Ffi I NTEO I 

• ROOT ARRAY CUT OF CANCER IS' - THE F ULl. ROOTS ARRAY WITH RCOTS 

CCMMCN Tu NUMERATOR AND 
DENOMINATOR CANCELLED IS PRINTED 
FCLLCW I NO I. -lls CAPTICN 


Cl 986G 
010867 
Cl 08b 8 
Cl 9869 
Cl 98 70 
C 1987 I 
019872 
C 1 987 3 
019874 
019875 
01 9876 
C l 9 8 7 7 
019878 
Cl 9879 
01 9880 
C l 988 1 
01 9882 
Cl 988S 
Cl 9884 
019885 
Cl 9886 
019887 
01 9888 
Cl 9869 
01 9890 
01 989 1 
Cl 9892 
01 9893 
0 1 9894 
01 9895 
019896 
019897 
Cl 9898 
019899 
Cl 9900 
01990 1 
019902 
Cl 9903 
Cl 9904 
Cl 990 5 
C l 9906 
Cl 9907 
01 9908 
01 9909 
C19910 
019911 
019912 
019913 
Cl 99 l 4 
019915 
019916 
C 1 99 1 7 
019918 
01 99 19 
C1992C 
C 1 992 I 
01 9922 
01 9923 
019924 
C 1 9925 
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c 

c 

c 

c 

c 

c 


c 

C 

c 


r rup - construct pulynlmal coefficients »rx* 


THE ALUCRITM U £>tU FOk N U ML k ICAL COMPUTATION ur KujT LOCUS DATA 
PfcWUlkCS THAT JHL TRANSFER FUNCTION He uiY£N AS A RATIO OF 
POLYNUrtl ALS. THE. COEFFICIENTS CF THE NJMeTATOk AND DENOMINATOR 
f CLYNUMI ALS ARC LCMPUIeD IN RTCP DIRECT Y FkuM THE DATA STORED 
IN Tre U OUT S ARRAY * h. • 

RX = POLYNOMIAL CJLFf 1 C 1 1: N T S ARRAY • Rx • * D I MENS ! ON£D ( 4*L 1 ♦ M ) 

AND STUkeD IN /LkuLT/. THE DEGREE AND THE COEFFICIENTS 
UF DOTH THE .VOMER A TOR AND OEiVGM INA I GW POLYNOMIALS ARE 
oTORtD Ai> FOLLOWS 1 UX IS RETURNED Tu DY.NS4J IN DUMMY 

arm ay Poly ) 

ftxi l ) = THE ULoRfcfc OF THE NUMERATOR POLYNOMIAL 
K X l 2 ) = THE DLGftLe. OF THE DENOMINATOR POLYNOMIAL 
FOR 1 = 3* 4 * . . . , jtKX ( 1 ) 

hX( I ) = COEFFICIENT OF THE S**(I-J) ItHM IN THE 
NUMERATOR polynomial 

FOR l=4FftX< l) *3 + kX ( I ) 4FRX <2 >FRX ( l I 

RXCIJ = CGEFFICIeNT OF THE S«*( l-l 4+KXi U ) TERM IN THE 
DENOMINATOR polynomial 

THE CONTENT'S OF Tilt POLYNOMIAL COEFFICIENTS ARRAY ARE PRINTED 
E NDtR Trie FGLLttti liMG CAPTIONS ALWAYS 

« OUTPUT MATRIX PdEN (1 a NO) « = THE NU-ltAt k ) + l COEFFICIENTS 

ASSOCIATED WITH THE Dc. NJd I NA T OR POLYNOMIAL 
FCk ASCfcNDING POwlRs JF o 

* OUTPUT MATRIX PNUM (l X NP ) ■ = THE NP=RX(2)P1 COEFFICIENTS 

ASSLCIATF.D WITH THE NJMlkAuTR PCLYNCMIAL 
FOR ASCENDING POWERS OF S 


FRCOlENCY RCSPbNSui t 2 OENVEC TOP AND ROD / -LCDS COMPUTATION 


/'LL CATA k£uUIRED 10 CONSTRUCT THE USER REQUESTED TRANSFER 

Function is in t he data arrays r and r* siored in /lroot/. 

THE TRANSFER FUNCTION MAY 6 E EXPRESSED IN STANDARD BODE 
FACTORED POLYNOMIAL FORM FktM THE DATA IN »k» OK IT MAY BE 
F XP « E S 5 E D IN AN ON FACTORED POLYNOMIAL FORM WITH THE CATA 
IN » RX • * 


FOUR GRAPHICAL METHUUS OF TkANSFCR FUNCITUN ANALYSIS ARE AVAILABLE 
Fok 05 eW CcOUEdT IN DISCOS. THE CATA ASSOCIATED wlTH EACH 
NAY EE t ITHcR PLGTTtt DIRECTLY VIA C SE OF THE 5 C 4 G 20 PLOT 
PACKAGE Ok DUMPED UN TAPE FGR PROCESSING UJTSlOc OF DISCOS. 

THE graphical reprlslntat I CNS WHICH ARC AVAILAdLE for lser 
RLOUEST Akt: 

1 ) DUDE— PL ul ft EP kLSE NTAT I C NS 

2) NlCHULS CHARTS 
J) NYUOIST DIAGRAMS 
4) ftUUT-LUCoS PLOTS 


EIGENVECTOR ANALYSIS IN CONJUNCTION WITH FREOJcNCY RESPONSE 

ANALYSIS IS NOT A CuMMON PRACTISE; HOOVER. FOR COMPLEX HIGHLY 
COUPLED MULTI-RIGID AND FLEXIBLE BODY SYSTEMS IT BECOMES A 
NECESSITY. SYSTEM ROOTS OFTEN SHIFT SIGNIFICANTLY F ft CM BODY 
AND CONTROL FKc.UUt.NC IeS AND HENCE ARE IMPOSSIBLE TO PHYSICALLY 
INTERPERATE. ElUENVECTO R ANALYSIS OF THE CHARACTER! ST 1 C 


Cl 9926 
01 9927 
019928 
Cl 9929 
01 9900 
019931 
019932 
019933 
019934 
C 1 99 35 
01 9936 
019937 
Cl 9938 
019939 
01 9940 
C 1 994 l 
019942 
Cl 9943 
01 9944 
Cl 9945 
Cl 9946 
01 9947 
01 9948 
01 C949 
01 9950 
C l 9951 
019952 
C l 9953 
019954 
01 9955 
019956 
019957 
019958 
01 9959 
019960 
019961 
019962 
019963 
019904 
019965 
Cl 9966 
Cl 9967 
019968 
Cl 9969 
019970 
019971 
01 9972 
01 9973 
019974 
Cl 99 75 
019976 
019977 
01 9978 
019979 
Cl 9980 
C 19981 
Cl 9982 
019983 
C 1 9984 
019985 
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n n r r. r- r. nr nr. r n r 


C VAF^U AR AS5UL I AT ED WITH THE' TRANSFER r'U'JC.flUN UNDER STUDY 

(. CAN El_ USED TU ULFLRKINt HGW AND TO WHAT JiJRcc VARIOUS BODY 

C AND CONTROL SYSlEM MUUcS AND FREQUENCicS ciLcND TOGETHER TO 

C FORM THt TUTAL SYSTEM ROUTS AND ASSOCIATED MUDES OK VIBRATION 

C {EIGENVECTORS) 

C 

C TO ACTIVATE THE clGcNVCCFOK ANALYSIS CAPABILITY THE USER MUST 

C INPUT THE CODE WORD: 

C 

C LEIGV = A HE 1 GV ON THE SAME DATA CARD WITH LPNAMu AND LPT APE 

C 

C UPON RECOGNITION I Hu COMPUTER READS In FuMlN AND FQMAX WHICH 

C CLF 1NE *rlICH COMPLEX REEFS OF THE CHAR A C I EH I S I I C MATRIX AR 

C F EJ U !Uc ASSOC lATh J EIGENVECTOR COMPUTATION. ALL COMPLEX SCOTS 

C HAVING IMAGINARY PAkT . Gt . FQMlN .AND. . Lc . FuMAX ARE FED INTO 

<: SUSiPLU T I NL EIGVLC WHICH COMPUTES THE ASSOCIATED c. I GEN VE C TOR S 

c 

C **** PROVIDING THAT ROUTS ARE NOT MULTIPLE ROUTS 

C 

C SCMCJAY I'LL rlNu A btTTek FCUTINE F Ok MULTiPoE kOOTS H . P .F 

C 

C 

C THE CUIPOT MATRICES PRINTED AFTER THE FCLt-JwlNG CAPTIONS ARE: 

C 

•OUTPUT MATRIX RGUTKL IS* = REAL PARTS CF THE ROUTS UP THE 

CHARACTERISTIC MATRIX AR FOR WHICH 
cl GEN VECTORS HLl Jc CuMPUTED 

•output matrix hugtil i^* = imaginary parts of thc roots of tke 

character i st ic matrix ak for which 

EIGENVECTORS HlL 3d COMPUTED 

•EIGENVALUE =' = THE ElCcNVALUc ASSOCIATED WITH THE 

KOLLCWlNG EIGENVECTOR 

•EIGENVECTOR OF NORMAL MAKRlX* - THE NZ ELEMENTS OF THE 

EIGENVECTOR ASSOCIATED WITH THE 
A LOVE E I%.LNV AUl • THE DEGREES OF 
FREEDOM CONTAINED IN TKE 
EIGENVECTOR ARE THOSE ASSOCIATED 


C WITH THE L ARRAY CONSTRUCTED 

C ABOVE F tW The OPTION • I TYPE* 0 SED 

C IN SJBRUOf INi TFTYPE 

C 'MERE THAN 10 LOUPo FOR = PROOAbLf ROOT SLNl TO EIGVEC IS 

C EIGENVECTOR OF ... DIFFERENCE A MULTIPLE ROOT, EIGENVECTORS 

C OF CANNOT be FUjNJ • EIGENVECTOR LIST 

C FOLLOWING HKj[J«bLr GARBAGE 

C NOTE ♦ TO f INj THE DLGRcL OF FREEDOM ASSOCIATED WITH EACH 

C ELEMENT oF THt EIGENVECTOR UsE • Trie TRANSFORMED 

C STATE VtLluK CORRELATION ARRaY* JcFlNtV ABOVE 

C AND IhE LOGIC LOOPS LSED FOR I ME PAkIICJLAR I TYPE 

C O'A'iVjFLU - FUNCI IUN EVALUATED UY TP TYPE 

C ~ 

C THE LSl_R MUST [NPuI VaKILUg CODE WORDS TO jr»cLlFT WHICH.rrPE CF 

C CIsPLAY IS REw^cSTLu AND IF THE GRAPHIC Dl SPLAT DATA 15 TO BE ~~ 

C COMPEL*. THE FOLLOWING CONTROL WORDS ARE Re ad IN UYNS40 

C LPNA^C = DISPLAY Type LO Ll word INTEGER ARRAY J I Me NS I ONE D (5). 

C wKTC«< EACH kLOUcS I Li) TRANSFER FUNCT1JN IS CONSTRUCTED 

C THE FOUL u lllMLNI ARRAY LPNAM E h R_AJ. I «iE FOLLOWING 

C C J j L j ArL iU.CUuM ZLU TC Me AN: 

C LP.NAiVu ( I ) = AH = NO DISPLAY REOJeSTeD 

C I — l • « . . .5 4H’3UoE = *jc I BODY DISPLAY UnlY 

C AfiNlCH - uLT MCmClS DISPLAY ONLY 


t 


Cl 9986 

01 9937 
Cl 9988 
01 9989 
019990 
C I 999 l 
01 9992 
Cl 9993 
019994 
019995 
01 9996 
Cl 99 97 
019998 
Cl 9999 
C2 0 0 0 0 
02000 l 
020002 
C2G003 
020004 
C20005 
020006 
C20007 
C20008 
C20009 
C2 00 1 0 
0200 1 l 
0200 12 
020013 
0200 l 4 

02 00 15 
C20016 
C2 00 1 7 
020018 
020019 
C20020 
02002 1 
020022 
020023 
020024 
020025 
020026 
02 0 0 2 7 
C20028 
020029 
02 0 0 30 
020031 
0200 32 
0200 33 
020 0 34 
020035 
C20 J36 

- 0200 3 7 
020038 
C20039 
020040 
02004 l 
C20042 
020043 
02 J04 4 
020045 
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c 

c 

c 

c 

c 

c 

<; 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. 

c 

l 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


4HNY0U = GET NYOUIST DISPLAY ONLY 
4HN1 NY = GET MCHOLS AND NYJUlST DISPLAYS 
4HBONN = GET CODE « NICHOlS AND NYUUIST DISPLAYS 
4HRULT = GtT ROOT LOCUS JIS^lAY 

LP TAPE - DISPLAY DATA DUMP CUDE. THIS CODE IS HEAD FROM THE SAME 
INPUT DATA CARD USED TO DEFINE TrlS LPNAML ARRAY. ALL RAW 
DISPLAY DATA I COMPUTED IN EITHER S.-REQ2 JK RLUCUS AND 
STORED IN /PSIUFf/. IMMEDIATELY uPON RcIJixN TO DYNS40 
FROM SFREu^ OR RLUCUS THE FOLLOWING CODED CHECK IS MADE: 
IF ( LP TAPE. NE • 4H 7TRK > Gu Tu 1 
wRl IcIUi 100) KSAVE 

«RiTE(U*10I) ( S A VEO ( I) , SAvEPI I ) • 

♦ SAVED ( I) • SAV EA { 4 ) • I = l * KSAVE) 

i CONTINUE 

100 F UK MAI (IS) 

101 FORMAT I 4 D l 8 • 8 ) 


FREQUENCY response processing 


THE FktCLLiNLY RESPUNSu PR OcESSlNG SEC1IUN 3 F JYNS*+J IS ENTERED 
IF I LPNAMEI 1 ) .tO. 4FBODE .UR • 

LPNAME( 1 ) .LO, 4FNICH.OR. 

LPN AM L ( i ) .EO.4FNYGU.OR. 

LPNAMEI l ) . tU . 4hN I NY .OR . 

LPNAMEI 1 ) . tO. 4H6LNN ) 

WHukE .. o. SOJKOUTINE sfRE02 DUES ALL UF THE BASIC 

COMPUTATION REOUIRLD. I HE L SLR HAS CONI Ru_ uf I Hu FREQUENCY 
RANGE OVER WHICH FREQUENCY RESPCNSE DA I A is TU aL COMPUTED* 
TFJS IS DONE dr USER SPECIFICATION OF I wU RANGE PARAMETERS: 
FMIN = LOWER LIMIT F LR FREQUENCY RESPONSE C J MPU I A I l ON IN SFREQ2 
A R t AL * 4 CONSTANT STORED IN /lBDAIA/ JcrlNcl) FOR EACH 
LPNAMEI I) .1 = 1 ,U SATISFYING THE AdUVt CKlJ'fcKlDN 
FMAX = UPPER LIMIT FOR FREQUENCY RESPONSE COMPUTATION IN SFREC2 
A REAL*4 CONSTANT STUPED IN /LQDATA/ DuFIHuq FOR EACF 
LPNAMEI l ) ti =1 «S gAIISFyING THE AduVL CH l I tK i ON 

IF c 1 1 ML k d UDl PLOTS OK MChCLS CHARTS ARE TU UE GENERA TEC VIA 
THE SC 40 20 PLGI PACKAGE ROUTINES A RANQu r U < Dd MAGNITUDE OF 

the frequency kcspgnsl must be given, nils is dune by user 

SPECIFICAT I JN UF THU RANGE PARAMETERS: 

DOMIF - LOWER LIMIT F UK DU MAGNITUDE CF ^KlqJuNCY RESPONSE CAT A 

FO DL PLuITlj. A kL AL * 4 CONSTANT STORED IN /LBCAT A/ • USER 
DEFINED FUR uALH L PN A ME I l ) . I = l * 5 SATISFYING THE ABOVE 
CHI TER ION 

CBM A > = UPPER LIMIT FCK t>b MAGNITUDE CF f-RuQjuHCY RLSPCNSE CAT A 

TO UL PLUTTEd. A REAL *4 CONSTANT SIO^LD IN /LBDATA/ • USER 
DLF l NED F"UK EAlH l PN A ME ( I ) . I = 1 , S SATISFYING THE ABOVE 
CRI TER ION 


IF NYOUI ST D I AuKmM S ARc TO EE GENERATED VIA 1 Hu SC4020 PLCT 
PACKAGE KOUTINu AN ArtFUTUOK RANGE FUR THE F ncUOtNCY RESPONSE 
MUST BE GIVEN. T rll S IS DONE BY USER SP - L i - I CA T I UN OF TwQ 
P A N G L PA M AM C ILhS 


AM l N 


AM AX 


lUwlR LlMil 
ot. i J LU T T r_D . 
D uh I MiJ F lK 

CkI ter ion 

UPPER LIMIT 


FUR AMPLITUDE CF FREQUENCY kESPuNSE DATA TC 
A Re AL *4 CONSTANT STJkLu LJCALLY USER 
EACH LPNAMEI I ) ♦ I — 1 *5 SATISFYING THE ABOVE 

r Lf\ AMPLITUDE OF FREUjENwY RESPONSE DATA TG 


02004G 
020047 
020048 
020049 
020050 
020051 
020052 
020053 
020054 
C20055 
C20C56 
020057 
020058 
020059 
020060 
020061 
020062 
020063 
02 0 064 
020065 
020066 
020067 
020068 
020069 
C20070 
020071 
C20072 
020073 
0200 74 
020075 
020076 
020077 
020078 
020079 
020080 
020081 
C20082 
020083 
C20084 
020085 
020086 
020087 
C 2 0 0 88 
020089 
020090 
02009 l 
020092 
02 0093 
020094 
020095 
020096 
02 0097 
020098 
C20099 
020100 
020 101 
020 102 
C20 103 
C2 0 l 04 
020105 
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C 

C 
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c 

c 

c 

c 

c 
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c 
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c 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 
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LL PLOrtLis. A kC4L*4 CONSTANT SFJ<Ll> LUtALLY# USER 
D t_ r 1 NtL/ F uK c_ A CH u HN A :/£ (I)»l=l»5 jAl 1 jf Yl>^ T ML Ac3UVE 
Cm l T HU i 'Jin 


FREQUENCY KESPlNSL l) A T A 


eooe . nycjist and niciigls frequency response ji^lays simply 

FULGENT THE S AML JAT A IN «J IFFERENT *AYS. A_L KrttOUF.NCY 
f’CSPLNj* DA T A IS GCNtk A Tli> IN SUSRLUTiNE ANO S T ORE L 

IN /PSlUf-F/. V Ak 1 A nl £ I NCR uMENT I NG TECTNiJJES A«t USE IN 
IHli rKLOoKNCY uaNL) F MI N TO FMAX TO ACrUEVc. ADEQUATE RE SOLUTION 
AFOUNU SYSTEM NATURAL FREQUENCIES* F He. 1 -uLLJwINvj k t AL * 4 ARRAYS 
Ci MENS I UNCO (L-jI ANO SI L«i.O IN /P5TUEF/ CONTAIN THE FOLLOWING 
CAT A N L O A OtO VIA SFkc G<? 

KSAVE = iNlc'jtk CONSTANT, DEFINES TOTAL H’JrfUiH uF FREQUENCY 
RESPONSE uAl'A POINTS IN EACH OF T.-iL /PSlJrF/ ARRAYS 

V Ak I AoLc I NC K£ Me. NT INC TECHNIQUES ARE u jtlJ 10 CHOOSE THE VALUES 
CF ' CMtvjA' A f WHICH I ML TRANSFER FUNCTION •Tf (IN OOOE FCRN) 
IS FC UE E VACUA ICO. let: 

I = SCRT (-1.0) 

COMPLEX VALUE OF IRANSFfcR FWVCITON • T~ • At FREQUENCY ' C MEG A • 

IF l l *UMc GA ) = ALPHA -f l * Gu f A 

fi MPL 1 ruu l 

Ak = OSQP T ( ALPHAS *2 *■ Bel A**2) 

FHASE(otsKEEs) 

O PM l = 0 A r AN2 (BET A. ALPM A > 7* 2958 
0 < OPHI < j 

amplitude IN Do. 

Ot»ELL = 8*68588961 *Dluo| AR > 

8.68588961 = 20*_UQ<E> 

THEN • 

SAVEC = All VALUcS UP * UduA • FOR WHICH TRANSFER FUNCTION IS 
L VALUATEU 

SAVE* = ALL RESPECTIVE VALUES CF AMPL I TUuE 'Ak' 

SAVLP = ALL RESPLuTIVL VALUES OF PHASE IN jdJkEuS 'UPHI* 

SAVEC = ALL RESPECT IVL VALUES CF AMPL I T Jjc IM DO 'ODELL* 


foot locus process inc 


THE FOOT LUCuLi PROCESSING SECTICN OF 0 1 SCUo IN DYNS40 IS ENTEREO 
IF ( LPNAMLI I ) • EQ • 4 HR 00 T ) 

VHEHE l=l.2.*««*5» SUbkLUTINE PLGCUS uJES ALL OF THE EASIC 
-C.CMPul AT l CN REQUIRE^ F uR RGCT LOCUS PL J T C :Nck A F i CN • 

1L EFFECT IV ELY -APPLY THIS CAPABILITY IN Ol SCUS THE USER MUST 
EE LCOta 2ANT OF THE uASlC TECHNIQUE JS-0 .= uk ROUT LOCUS 

cenlRati ln: " - . 

1) kLUCUS ACCt-P T S A NUMERATOR POLYNOMIAL NlS) AND A 

dlndminator polynomial disi. it assumes that the ratic 

U THESE NuMLR IC ALLY DERIVED POLYNOMIALS IS EITHER AN 
OPEN OR u UA s l —OPEN loop TRANSFER FjnCFIun. DISCOS does not 
CROSS CHECK THib, kLUCUS BLINDLY ACCENT:* ANY PAIR OF 
POLYNOMIALS NIS) AND D(S). 

2 ) let: 

M s ) 

GlS)*hlS) — K * = OPEN LOOP TRANSFER FUNCTION 


CEO 106 

020 io r 
0201 oe 
020 I cs 
020 1 10 
020 l 1 l 
C20 I 12 
0201 1 3 
C2 0 t 14 
020 l IS 
020 1 16 
020117 
02 0 l 18 
C20I I 9 
020 l 20 
02 0 l 2 1 
020 1 22 
020123 
0201 24 
C201 25 
C20 126 
02 0 1 2 7 
0201 28 
0201 29 
020 1 30 
020 l 31 
020 1 32 
020133 
020134. 
020 1 35 
0201 36 
0201 37 
0201 38 
020 i 39 
0201 40 
020141 
020142 
020143 
020144 
020145 
020146 
020147 
C201 48 
0201 49 
020150 
020151 
020152 
020 153 
020154 
020 1 55 
020156 
020157 
02 O 1* 58 
020 l 59 
020160 
020161 
020162 
C20 163 
020164 
020165 
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c 
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c 

c 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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THEN 


C ( S ) 


C ( '3 ) (i ( b ) 

~ t CSc. J LiiuP I HAN GF Lft FONCT ION 

H<S) I ♦ C.( b)v|i.{S) 

AND 

N( S ) 

l . K* = 0 = CMAKAC1 ERl uT IC tGuAliUN. T HE LCCUS 

ul S) Or THE fi Li 01 S H.OilLJ IN THE CLJ'PLEX 

S-PLANfc. AS A hJ.Nt.1lON CP TiiE OPEN 
LOOP GAIN « ACrJ?i K !;> THE DtSIRLO 
fitilil LOCOS 

5) ht.P COM PL. LX IlivitiLU LkDL.fi SYSTEMS I rid C^MPUTaLTUN l)P ALL 
MhJI I OL 1 IS UNNECESSARY# CCNSC QUiiNILY t/IbCUS USES AN 
ITlNATIVE PkUCLuuRL 'AM I CM REQUIRE.* THAT lilc USER DCF INE 
THE PARTICULAR O H;N LOOP 1 RANSI EM rUNvIluN POLL OR 2EfiO 
WHICH WILL tit. fMt Si A k T l NO POINT h UP T Me ALOUfUTM. CNCE 
LHOuSI. M 1 ML LOCUS I KUM OPEN LOUP POLE IK = 0) 10 OPEN LOOP 

A l kG (KsIM IhllV) IS EVALUATED# T.ic f JuLUdWu PARAME1ERS 

ap l. So i t-j v input data cards: 

NkLC = ■ 1 U T A 1. NUMuEk Lh KuUT LOCI TC UH UUMPJleD FUR PARTICULAR 
JPLN LOOP TKANbM.R FUNCTION DEFINED jY MS) AND 0<S) 

IJM = lull SI API INC P Li I N T ARRAY. A jy NULL I l.NlCOtR ARRAY 

STORED LUUAL.LV. PCfi J = 1 •?••••. Nfi«_C 
IJMM - 1 JMd ,J) = 1 II STARTING POINT Oh frit: J-fH LOCUS TC PE 

COMPUTED IS AN GPc-N LJOP EtRJ THAT IS. A 

KuL) T OF N ( S ) 

= c IF STARTING POINT jF I HE J-1H LOCUS TC EE 

COMPUTED IS AN OP_N LOOP PULE ; THAI IS. A 

KUO! OF D(S) 

ALL POUTS UF I HE NUMERATOR N(S) A.ltl LiSIEO UNDER THE 
LAP T 1 ON 

• N U M • 

•NL kLAl PART IMAG INARY . PAk I • 

ALL huCTS OF THE OL.NU M I N A 1 OR O ( Si ARE lISIcO UNULR TFE 
CAP T I ON 


•ULM* 


W 1 


•NO KEAl PART IMAGINARY PAR f * 

J J - I JM( ? » J) = T He INTEGER NUMBER. TAKEN FRuM T FiE DATA 

PRINTED UNDER THE AOJVL t APT IONS. ASSOCIATED 
WITH THE PARTICULAR PulE Ok 2ER0 WHICH IS TG 
tit ^SLD AS THE STARfiNo PjINT FOR THE J-TH 
kuCl LOCUS GENERA! L J 

4) IHL Klii'iT LOCUS ITtkAl ICN ALGORITHM ^ JisCUssED IN VOL l 

APPENDIX t. SIX AJul I ICNAL PAR AMET - »<S MubT cie USER 

supplied f ~r each hoot locus, the fol-jwing input array 

SETS THL i l ERA T I ON CONTROL PARAMETERS 
- ITERATION CONTROL DATA AfiPAY. A ( 6 oY NRL C ) RE AL *8 ARRAY 
SlORLu IN THE WORK AREA IN /L WORK I/. FOR J~ I.2.....N RL C 
THE I AC - WI(l.J) - INITIAL SEARCH ANGLE r UR J-Irt LuCUS. 


SCL = Vt I (2 i J) 
ALOC = wi ( J , J > 


NOMINALLY EQUAL TG ItiJ.UDU (DEGREES) 

SCALE FACTCR FOR J-Tn tUCUS. NOMINALLY ECUAL 
TO l.uuO. IF ( * l (2 , J > . _ E . J . 0 ) ^CALE FACTOR 
WILL HE CCMPUTEl) 

PHASE CONTROL PAR AM El E R tJUALS l.ODO IF CAIN 
FACTOR POSITIVE; EQUALS -1.0 IF GAIN FACTCR K 


NEC AT I VL 


> M I N = W 1 ( 4 , J ) 
>MAX = W I ( 5. J ) 


M I N 1 M u M 
MAXIMUM 


ADMISSIBLE R-_AL ^jUT 
A DM I SS I DLE Re. A L *JUT 


VALUE 

VALUE 


020 166 
CEO I 6 f 
C20 1 08 
020 l 69 
020 l 70 
020 1 7 1 
020 1 72 
C20 l 73 
C2 01 74 
020175 
0201 76 
02 0 1 7 7 
0201 78 
02 01 79 
020 I 00 
020 1 6 l 
C20 1 02 
020 l 83 
020184 
C201 05 
C20 1 86 
C2 0 l 8 7 
0201 88 
C201 89 
020190 
C20191 
020192 
020193 
020194 
020195 
020196 
020197 
C20 198 
020199 
C2 02 0 0 
G20201 
020202 
020203 
020204 
C20205 
G20206 
02020/ 
C2 02 08 
020209 
0202 10 
02 02 l 1 
02 02 12 
02 02 13 
0202 1 4 
0202 15 
0202 16 
02021 7 
C2 02 l 8 
C20219 
020220 
02022 l 
020222 
020223 
020224 
020225 
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o 
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Y 4 A X = l> 1 ( 6 * J ) = MAXIMUM ACMISSIULE 1.4AUi4 4Ht WuUT VALUE 
5) eklETY; THE ALUUttlTM IS STARTED AT A X'lGwN HU l NT CN THE 
LGCU5. NAMlLY AN UPL’N LCOP P CL E GW ZLAl. A SMALL CIRCLE 
IN mt S-PlANE AtlUUI THE STARTING POINT (DIAMETER VARIED 
i N 1 E WNAL LY ) IS DeFlNED AND A SEARCH MADE TJ FIND WHERE 

the lc-cus intersects the circle, rnt intersection point 

is A POINT GN THL LOCUS, A CIRCLE IS ABOUT THE NEW 

HUI NT AN Trie PkuCLuUwC REPEATED. S i Nee 


Ni S) 

K * - l 

D ( 5) 

CIRCLE iNTLKbdCT ION IS OEF I NE tlY THAT VALUE UP S FOR WHICH 
THL PHASE ANGLE OF (N(S)/D(S)> = 130 JtiiKtt S. THE UPON 

LOOP GAIN FACT UK r C CAN THEN HE COMPUTED DIRECTLY FROM THE 
cUUAriON K = 1>AUS(D(S) )/DABS(N( S)l 


FOol LOCUS DATA 


ALL FCGT LGCUS CUvIPul A f I ON 1 j DONE IN SUBROUTINE RLUCUS# THE USER 
CLF- iNc'S THE NJkGcW DF WGOT LCCl CF INI £xc>( F-UR EACH TwANSFcR 
FUNCTION AND A STARTING POINT FOR T He ALGUkllM UN EACH 
FESPcCIlVL LUCuS. DYNS40 CALLS RLUCUS EaaGTY NRlC TIMES. EACH 
CALL TC RLUCUS kEUGES'Ig Inc COMPUTATION UK AWJTHlW root lcccs 
/LL L'AIA IS SIOWLU in /PSTUFF/ AND MAY iiL uUlPUTfED ON TAPE 
IF( LPT APl.LU .4HF TRKI . THE FOLLOWING ARRAYS IN /PS TUFF/ ARE 
LSLU GY RLUCUS 

KSAVt -= TGTAL NUMbc_r< GF PulNTS CN THE PA,<I iCj^Ak WUUT LOCUS 
Set. ERA T £j 

SAvEC - AlL REAL lUuRDINATES CF' THE KSAVl POINTS UN THL ROCT 
LuCUS GlInLKATlJ 

SAVER - ALL IMAGINARY LLGkGInATlS OF THE WLSPECTIVc KSAVE POINTS 
UN the i<uC;T LCCgS GC.NLKATEO 

IN J i‘o4 0 AF TLK l A Cm KLlUKN FRCM UL OCj j I He Jm IA IN /PS TUFF/ 
IS CITHER PL CITED OR UOMPlD ON TAPE Uvil i t_ UR cjjTH 


L VERY I I Me R LOCUS i U ENILKEu SEVERAL DATA SETS A/\c. PRINTED FOR THE 
Thl DATA PRINTLg along WITH THE rULLJrt’Jru CAPTIONS Af'< E l 
• g { 5 J = - POLYNOMIAL =GRM OF THE 

t { AO ) F ( 1 ) * jvv 1 NUMrL R A T J 4 UF I Ht T,tANSTER 

(A,j f { ;\j) F . FUNCTION FUR «r1lCH THE ROOT 

LOCUS 1C cJu CUMPUTED A0.A1. 

A 2 . « . « Aal 1 H L CUlPFICIF. NTS 
- = I’L'LYNLMIAl r UF THL. 

F t'OJ'J -- .f i u i ) vs *•* i DENCMINaTGk UF lllu TRANSFER 

F ( tic* ) * o <• • * 2 f ( Uw J Fj v'viS-l- . • * F uNC T ( CN e U:< .vMlUM T HE ROOT 

'locus- i.* ~i u. _ o c. cjmputlo. c o . b i . 
02 •• ARE I jtL LGer F I t-I LN T.S_ 

•il WIINxi POINT - = THE ktA. AND • MAu i i>iAK Y PARIS Of" 

( UK ) ♦ IMbl) • THE STA.vIlfw Pul. MI UN TF-E ROOT 

LOCUS Tu i -» l V.LNLKAI t'D 
= SCAN Ll:«li To -CR I r UE REAL PART X 
AND IMAGINARY PART t FOP. EACH 
^UINT On III. RGLl LG'CUS 
CCMf’UTAIIGN 1‘ercM 1T-.A Th‘D IF A 
L I M I T Ca l c E -D dl g 
= OPEN LCuP UAIN IS POSITIVE 


Sc an Liriilo: 

a / In < x < Alik k 

- YM AX < Y < Y i»1A X 


IFJ Gl^RLL LUCuj' 


0202^0 
C2022 7 
020228 
020229 
02 02 SO 
02 02 J 1 
020232 
020233 
020234 
020235 
020236 
020237 
020238 
020239 
020240 
C20241 
020242 
C20243 
020244 
020245 
020246 
02 024 / 
020248 
020249 
020250 
020251 
C 20 2 52 
020253 
02 02 54 
020255 
020256 
020257 
C2C258 
020259 
02 0260 
020261 
020262 
020263 
020264 
020265 
020266 
020267 
02 0268 
020269 
020270 
02 02 7 1 
C 20 2 72 
020273 
C20274 
C2 02 75 
02. 02 76 
020277 
02 02 78 
G20279 
020280 
020281 
02J282 
02.02 8 3 
020284 
C2 0265 
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nrnnnnnr'nnrtnn 


c 

c 

c 

c 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

L 

c 

c 

c 

c 

c 

C 

c 

c 

c 

t: 

c 

c 

c- 

c 

c 

c 

c 

c 

c 

c 

c 

c 


• 0 DEGREE LOCUS* 

•SC#Lc FACTOR = * 

•GAIN ROUTS tiRRUR * 


CPEN LOOP WIN K NEGATIVE 
SCALE FACTOR USED DURING 
CCMPUTAIIUN uF NGUT LOCUS 
LISTED jNJcS Trfc'Sc HEADINGS ARE 
FOR EACH PoiNT found cn the 
ROOT LOCJS: THE OPEN LOOP GAIN 

FACTOR x% IrliL RlAL AND IMAGINARY 
PART OF THE KuOT » AND THE REAL 
AND IMAGINARY PAR T ;> OF THE ERROR 
MEASURE- LoMPoTEo • I NT CRN ALL Y FOR 
THE ROOT 


LINEARISED TIME DOMAIN ANALYSIS 


THE LINEARIZED I I Ml DOMAIN ANALYSIS PORTION or THE PROGRAM IS 
ENTERED ONLY 

IF ( LN AM.LJ • AFT l ME ) 

ViHc: RE 

LN AN = INPUT CCNTRUL wLRD DEFINED AMOVE JNUlK * r RE DUE NC Y 
DOMAIN ANALYSIS* 

T He LINEARISED D l FF £ KEN T l A L EQUATIONS OF 4oTlDN wtllCH AWE 
f* uMtW I CALL Y SOLVED IN ^ OOP OU TINE L T WESP Arl st UF THE FORM: 

ZDT(l.T) - -l ) *H*W< I * J)*Z( J ,T ) 4- bl I • J ) *U( J . T > 

to HE K E THE ELEMENTS CLMlAiWtC IN MA T W It" j 

ZD 1 ( 1 • T ) 

Z< I . T > 

k**l-n»H*RU.j) 

A RE DEFINED UNuLK THE TITLE * SIMILARITY TRANSFURMAT ION* ABOVE, 
AND THE LEANT A J V 

b ( 1 • J) *U< J . T i = USLR SUPPLIED EXTERNAL jV'jTlM INPUT ACTING 
UN Iht r-lH' PERlUWOAMuN VAKlAHLE* T F t USER 
MUST CODE THIS QUANI I TY IN aVoKOUTINE LICWQL 

CN PAGE 05 • VuL I THE RECURSIVE FCHMUuAk JiLJ F uK 
F Ui*IEh I CAL I N f E GW A T I uN U F T HF LINEAR! Z~ u LJ JA 1 IONS IS DEFINED# 
INITIAL CONDITIONS F Ur ALL PER TuRbAT ION VAkIAULES APE ASSUMED 
TC fct ZERO# Nul L I HAT 1 huSE EQUATIONS INCLUDE AlL NAUX SENSOR 
AND TORQUE SIGNAL LUUATIUNS AS PER T UW't>4 I ION VaRIAHLES. 
SvJKUuriNE LPRi-il 1 ^ ENTtiRc-J EVERY N 0 PR N I InTL^RaJIUN CYCLES. 

A ..L,v r 'LLTL SELF uXPLANATuRY PRINTOUT uF h_L PiiKl jROATIGN 
V AR l AOLc S IS PPUVIdLD 


I APE NUMEEKS AND No MLR l C CONSTANTS 


THE FULLCWING PARAMETERS DEFINE THE TAPE NUMuE-tS ftfUCH IN TF E JCL 
Ai<e ALLUCATLD FUk USc AG scratch TAPES laHOJ.J dr. u I SK SPACE) 
ThEV AFL I NTtijCi<»4 CUN b 1 A R t S , SET IN MAIN, j I 'Jml J IN / T APtNO/ 

NT Apf I ~ I 
NTAPLe = id 
NT AP t J = J 

T H L FClLCwING AR E Dll UThek UN IIS USED IN JiSCJS 
MT =: 5 (CARD WLADlR) DEFINED HY DATA STATEMENT 


020266 
020287 
020288 
020209 
02 0290 
020291 
020292 
020293 
020294 
020295 
020296 
C20297 
C2 0298 
020299 
020000 
02C30 l 
020302 
02 0303 
020304 
020305 
020306 
C20307 
02 0300 
C2C309 
C 2 0 3 1 0 
02 031 l 
020312 
02031 3 
020314 
020315 
020316 
020347 
020310 
020319 
C20320 
C2032I 
020322 
020323 
020324 
020325 
020326 
02032 7 
020320 
C20 329 
02 0330 
02 0 33 l 
020332 
020333 
C20334 
C20335 
020336 
020337 
020338 
C20339 
C20340 
02034 i 
020342 
020343 
020344 
020345 
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l 
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c 
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c 

c. 

c 
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c 


c 

c 
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c 

c. 

c 

c 

<: 

c 

c 

c 

c 

c 


c 

c 

C 


c 

c 

c 


NG l 6 ( l. I MG HU IN1L!\| Jli 1 N f' C t«yi)A T A SUk MtW 1 

!iih FiH.tCt, l UN l 1' j Ar<c At. ‘ uCATfO IN THE w..FC iuO-vl VfRSICN 
C F i « T;«c i i-»*“ u^tu AT ThE C 5 E H * S u I jC T luN 


GN I T 

t 0 - 

9 “ TRACK 

1 AHL 

f-Uk 

UGr.k 

TAPE 

I N *>L t 

GN I T 

l i ~ 

- TRACK 

1 API. 

F L.V 

J SF.R 

T APE 

tiU I P j T. 

CN I r 

l 2 = 

/ - TWA CN 

1 apl 

f Lk 

u'j^k 

1 APL 

i:u ir»j T 

CM l T 

l A = 

9 - I RA CK 

T ;,p L 

Fi,H 

L 5 F. r« 

FLEXIBLE J DD f UaIA INPUT 


Hit FULLLWlNC H A f< A ML I C. R 5 A»iL REAL*3 NUMERIC C^Nal ANU SET IN VAIN 
ANC b fi.Ni'.t) 1 N /NJ.MbKi/ 

2RC = 0*0 JO 

LNC = t . ‘J JO 

T W C = 2 .0i)0 

THUS = 5*000 


FRINIUuT L I 3ilt.Mf.NT HAUAMhrCKS 


1HF. F *JL*_l.W l in (j PAtniMcTw^b Akc INPUT TEO IN ;» j t ik.i j I l Nt S T A k T 
ANC bTCRr.i> IN /LblfiU/ Ao‘ i < E AL *8 ARRAYS 
LN’VMf = UM.NS NAMt READ wiln JAb PCkMAT • J i MuNS i u'NL J (3) 

flTLfcl = KlwSI T l f Lb 10 AfM-'cAR CM EACH DATA Ujh'ul PA GET OF 

I'Ri ft TOUT « ki.Au WllFi 12A6 KkWAT, Ji^NilONcu (12) . 

I I T L E 2 •= SLL END T i luE lu AkkL An ON E AC M DmI A DL I P«> I PAGE OF 
f»Rl NTOUr* kUu rtlTH t 2AO FG«MAr» J i M ;Nl>lU NL l) (12) 

JM’C f-GLU'.AiNG PAkAf-.clLkS Akl c ITHt F K£AJ JR IOHAL1ZEO IN 
SU£R«.l T 4 Isb OT API mNJ jluKcu IN /L START/ 

IRLNNO = RON MuMbf.N, Wt.AU 1 N , IN START AS A R2AL*8 PARAMETER U l TH 

FORMAT A v • I r I kuNM • EQ • CK)t HUG Tilt ucUUG PRINT OPTIONS 
WILL .'ll. ke.AD IN* IF I RuNNC.cQ. G»OI u2 1 tic PROGRAM WILL 
at STUPPLU 

U AT L = DATE. OF RuN . OUTPuUtTU FHC.V SUOHJ j I i DATE AS A R E AL *£ 
I'AKAMfTKK WITH HJKMAT (AS) A 

i\p AG t = UOJPUT J.l A PAjt CCUN TCH . UPCATEl) OPP \( L.'iTkY (MG PAGt.hG. 
A l NlEGL'Kt<t VAkiAoLE 

THL f -JL l.CwlNG PARAMETER IS A R E AL * A ARRAY iNPJllLD IN 0YNS40 
ANC STCKcJ IN /Lit (L l/ 

TlTLl ; = I l TLti TO Oh PR1NTL0 WITH ALL RELA/cNT FREQUENCY RESPONSE 
JaTA* R L AL WITH FORMAT (20A4) DlikNSlUNbJ (20) 


C 

c 

c 

c 

c. 

c 

c 

c 

c 


c 

c 

c 

c 

c 


C t'fc-ue PRINT control 


CK6UC = OuOUG PRINT LCnIRCL TABLE* INPUTIC J wJGiCAL*4 ARRAY 
* o I MLNGKmNLD 112 0) AN 0 STORED IN / l. DE J J G/ 

IF ( IRUNfsJ* tDTo'FULbUG.. )_ J F E CE RUo TAdlc IS READ IN CSING 

Format (ocli) in ^lbrcut i ne s t ari - - __ 

IF (UEOjCIK ) . F.U * * TRUE . ) E.XECISE u£buu PRINT OPTIONS IN 

SUbROUTlN* DEDDo * K 

lr (OCOUG(K) • L l.. FALSE. ) SKIP ALL DEJJG PRINTING IN 

SLdRCUTlNL Jb'UUo # K 

TO I NCLUDL ULL.UG PRINT STATEMENTS IN SuokuUTINE DEBUG » M 
1 rtt_ FOLLOW I NG STATEMENTS M L ST BE iNSiWTEu 
DA TA NOl/o/ 

LOGICAL DtLUU.LE GU 
CUMMLN/L jLBuG/ l) E DUG (120) 

EGlLVALLf.cE ( LEUU . DLEUGt M ) > 


020346 
C2 0 J47 
02034 B 
02 0349 
C203S0 
C2036 l 
0 2 0 J t» 2 
02 03t>3 
C203S4 
0203S5 
02 03SG 
02 0 36 7 
02 0 JSb 
02 0 359 
020360 
02 0 36 I 
C20362 
020363 
020364 
C2036S 
020366 
C20 367 
02 036 0 
020369 
020370 
C2037 l 
020372 
020373 
020374 
02037S 
020376 
0203 7 J 
020378 
C2037V 
020380 
020 J 8 l 
C 2 0382 
020383 
020384 
020385 
02 0386 
C20387 
020388 
C20389 
020390 
02039 I 
020 392 
02C393 
020394 
C20395 
020396 
020 39/ 
02 0398 
02 0399 
020400 
02040 1 
020402 
C20403 
020404 
020405 
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c 

c 



c 

L 

u 

c 

c 

c 

c 

c 

c 

C 

C 

c 

c 

c 

c 

c 

c 

f. • 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c; 

c 

c 

c 

c 

c 

c 

c 

c 

c 


I , »/. ;i TO i H t;J i*li l I SF 

lT(l.c*lu) i< 1 i i. ( N i t T i ) » t ) 


V'Hi.K a^L-L, l N MLMiiKr (al MAKFS USE JP l h r I L l ljm T I *R lK»!?AV MI MG 

t'KACMOiS HY OliH.aNj 3 lV LftAl. AREAS IN 

CuKu AS ':iC r»K ARliAS • vAi< 1 AiJLtS V. H I C P VEST 

ut i.OMPurr.0 »'Kii W--LJ mut ot: saved are 

I t. f '» U R A R .A I. L Y SI 0» I c D H E H L ) 

fi S U ’A R Y - k t. A L < 8 A « vfv A Y u L Pr. NSl'l \fcO ( K 1>U MR Y , 3 ) al'UMtJ IN / !>U M M K Y / 

r.-iUMJ. Y - I N I r.‘-Os*. * 4 ARRAY D 1 Ml; • i SIC NF f) ( K f»GM -< Y « J I aloKEO IN / S U V M TV Y / 

Fk - I lXi'i’kAk Y AKl. A USED IN ADAMS HKt D l L T UK/ CD PRCC f 0 R 

lfils«?HA| iuN, l 1 •■'■i. f. S l NED ( KY # ‘3 ) * A i(t A ALSU USED GY LINEAR 

11 I L A ,\ AR h AY Lh K fc A L * 3 V A W I A Bl. c 3 ;> I U R L cy I N /f-WWO R K ✓ 

IV » 1 N 1 i: UCR <■ 4 '(.CKK AH LA USED IN AS l Ml k A9l> HNUl FOR STORING 

INlSjOtP DtbL.-b U-jt_ (0 Hr. ORDER SMlLA«HV TRANSFORMATION 
MAI Hi X ULnlVu). DIMENSIONED (KY) 

JV - I :l I t.SEK * A ARt. A JSL':> IN HINDI IN I ML l UN STRUCT l C N 

ui IV, I NLNS l UN LU < K Y ) 

V, l :-! 1. A L v 3 A hr AY u I ML N SIGNED (LI »Ll ) JiLJ tMt N 3 I VF l.Y 

I MKlJ^iHCbT L I Nr.. Ah T A 0 I L l I Y ANALYSIS rUK 1 Mu STORAGE 
L t i A R 3L LG L F HUc N I Y A TP I C £ S 

*A 2 - U .\>l j 1 N %. ijiN jJNL I ION * l T H W l * R K Ai_ Vo -i »v»i A i u 1 M t. NS l G NE 0 

G AM L. A S a i 

LHM.iR I LAv.S ( ‘jVAILAl f v LAGS ARC JER l Nt J W I IHIN OISCCS 

n.cY /-» Kc L Ojcu 10 INFORM T Ht DSuK THAT A PHYSICALLY 

VNKLAtl/AJLt C..1N0 1T ICN HAS JLbN LNUlbN I LRfcL) ) 

f-H/sKAl L> JNim.ALUAOLL JVSICM 


NC ! »'HC« = PRLJK.AM i|u I in T LOCATOR IN 0YNS10* AN i.NPul iiHUQR WAS FOUND 
c. HR Of' M L S o A Dr' l-hu M JYNSIO 

(* INi , Ol DA l A cRKijR, NFRRljR #13) 

IrLANSiER “ U NL I i CM GAIN (ERROR Sl^NA^t lh THfc. UE rCHM IN ANT 

L;h NUMERATOR ZLRu A Z-tRC GAIN 

CONDITION cNLUjh 1 t.t<E'U ) 

THE KQLU.t.iNj ARE INTC^LR*A VARIABLES STORuD IN /DR AT 10/. THEY ARE 
LS ED TL DEFINE DiLRu Call TO GAUSS I IS Fhl.M AND IF ZERO GAIN 
CUi^Di I ICN lMCujMlkl J 

IF L l - L IF Trlit LALL I L GnuSSl IE FRCM Njrtb. LUUALS 0 CTHERwISE 

TFL 2 = ) IF A / 1 . k u NUMfc r<AIUH GAIN CONDITION CNCOuNl (zftLOS IF SO# 

LOMBUT AT I LN JUMPS TO the analysis Jr Tile NEXT RE CUES TED 

i r4A.\oFEi< Function# ecuals o othchai 


R t£ TUr N 
tNJ 


CP 0 A 06 
C«!0A0 7 
0c?0A()G 
CP. 0 * 0 <) 
02 0 A I 0 
02 0 A l l 
0204 l 2 
020413 
020414 
02.04 15 
020416 
02 04 l / 
C2 0 4 l ii 
C2 04 19 
020420 
020421 
020422 
C20423 
020424 
020425 
020426 
020427 
020428 
C 2 0 4 2 9 
020430 
020431 
020432 
020433 
0204 34 
020435 
02 04 36 
C20437 
02 04 38 
0204 JV 
020440 
02044 l 
020442 
C 2 0 4 4 3 
020444 
020445 
020446 
02 0 44 7 
020448 
020449 
02C 450 
C 204 5 1 
020452 
C20453 
020434 
C20435 
C20456 
C 2 0 4 3 7 
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suekcuiine eigveciivc. a, b, w . 

I RCA • XR. XI. VR 

• V I 

, RGOTRtE. 

020468 


i near it:* nu» nmax, T 2 * swi. ccunte, erri 



020459 





DEBUG « 117 

020460 


IMPLICIT HEAL*C IA-H.O-Z) 




020461 


SCEKUul INC to UNO THE EIGENVECTORS OF A NON- 

SYMMETRIC MATRIX 

C20462 


BY A MOO! FIED wILNINSONivS INVERSE ITERAliUN ME I HOl). 

020463 


CCMRCL I VC CODE lj 




020464 


1 F 1 NO ONLY THE NLliULAR 

EIGENVECTORS (4 

X = 

LAMBDA XI 

020465 


2 FIND ONLY Trtt T KAN5ROSEO 1 1 GENVEC loi^b 

(AT 

V = LAMBCA V) 

020466 


3 F L Nu DCTh TYPtS QF EIGENVECTORS. 



020467 


DIMENS1LN A( NMAX iNMA X ) ■ dINMAX , 

NMAX). W (N M AX . 4 1 

. XKINMAX). 

020468 


lXl(NI»AX), VRlNMAX). VIlNMAXI. I RC X { N MAX , Z) 



020469 


iniecln count, cuunte. tz 




C20470 


RQGTF = ROOT RE 




020471 


RdCT I — ROUT IE 




020472 


N = RE 




020473 


N l — N — 1 




020474 


NP1 = N * 1 




020475 


IVCl = IVL - 1 




020476 


ivcz - i vc i — i 




020477 


CCLNT = 1 




020478 


CL IM = l.GU-A 




020479 


IF (h COT 1 ) 1 • b(3, l 




020480 


COMPLEX EIGENVALUE. 




C2048I 






020482 

i 

TEMP ■= - riOOlR - KLEIN 




020483 


ISA = i 




020484 


1EMP£ = .001 K**2 * KUUTl**x. 




020465 


jj = joo 




020486 


CL) 6 Co l = 1 . N 




020467 


IF I T £ ) 60C • 003 . cOD 




020488 

60 C 

CO 6C3 J = 1 • N 




C20469 


JJ = JJ + l 




020490 


IFIJJ - £Sl) EOe. oOi. 001 




02049 l 

60 1 

II 




020492 


REAU ITE) (w(LL.l). LL = I.EdO) 




C20493 

6 0c 

EII.Jl -= A( I . J ) * TEMP f AlJJ.i) 




020494 


GO TC oCE 




020495 

60 3 

LU 6 C A J = I . N 




020496 

6 04 

fclt.J) = All ,JJ*TlkH ^ U(I.J) 




020497 

60 6 

EC 1 . I 1 = U( 1 • I > * IcMPd 




020498 

6 0 6 

A(I.i) = All til - t-.UUl'K 




020499 


If < T £ *NLi 0 1 REW H.u T 2 




020600 


CC T C CuC 




C2060 l 

60 7 

IF (ICO tx£. GJB. o££ 




020502 


MA TR IX SINGULAR . 




020503 

62 2 

lFIIVL.-il cE3. o2E>. utJ 




C20504 

62 3 

CO G£n lL = I« N 




020505 


* I LL . 2 1 - 0. CO 




02 0506 

62 4 

X I I L L ) = 0.00 




020507 


If ( IVCl > oZb . J l ■* . Ot -> 




020508 

62 5 

00 bit LL = 1. N 




020509 


A< LL , A ) - 0.00 




020510 

626 

V I ( L L ) = 0 . u J 




02051 1 


GO TC b l 1 




C2051 2 


MATRIX NET SINGULAR. 




020513 

60 e 

00 6 C S LL = l. N 




C2051 4 


A( LL .2 I - 1.00 




C205 1 5 


'A I LL . J 1 = 1.00 




020516 


Vl( LL • '* 1 = 1 . 00 




02051 7 

60? 

'* ( l.L . 1 I - l . DO 




02 C 5 1 6 

6 i 0 

IE I I VL2 ) c t J • i a • oio 




020519 


B-355 


u u 


6 L C 

6 l 1 

6 1 2 

6 13 
6 l 5 
616 

6 1 7 

6 1 e 

6 1 <3 

620 

62 1 


C 

627 

628 

629 

630 

o 3 l 

632 

633 

634 
638 

636 
63 7 


CO 6 1 1 I = 1 . N 


020520 

Id = lilCM I . 2) 


020521 

>1(12) = a < i . n »Ruu I 1 


020522 

CC 6 11 J = 1 . »N 
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